From 4383a2b1209071b2394bbc51c2ca35b7d00afed4 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Sun, 4 Dec 2016 21:58:00 +0000 Subject: [PATCH 20/21] Remove meaningless defconst ispell-version MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/textmodes/ispell.el (ispell-version): Since ispell.el is now firmly part of Emacs, and the version hasn’t changed since 2003, and isn’t used anywhere, remove it. 3rd-party code can better use the Emacs version, or feature or function checks. (ispell-check-version): No longer report ispell.el version. --- lisp/textmodes/ispell.el | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c733332..9bd43cc 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -671,11 +671,6 @@ ispell-dicts-name2locale-equivs-alist ;;; The following are used by ispell, and should not be changed. ;;; ********************************************************************** - - -(defconst ispell-version "ispell.el 3.6 - 7-Jan-2003") - - (defun ispell-check-version (&optional interactivep) "Ensure that `ispell-program-name' is valid and has the correct version. Returns version number if called interactively. @@ -710,13 +705,11 @@ ispell-check-version (if (string-match "\\`aspell" speller) "-v" "-vv")))) (goto-char (point-min)) (if interactivep - ;; Report version information of ispell and ispell.el + ;; Report version information of ispell (progn (end-of-line) - (setq result (concat (buffer-substring-no-properties (point-min) - (point)) - ", " - ispell-version)) + (setq result (buffer-substring-no-properties (point-min) + (point))) (message "%s" result)) ;; return LIBDIR or LIBRARYVAR (overrides LIBDIR) env. (progn -- 2.7.4