emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 8af9cb2 19/23: Remove meaningless defconst ispell-v


From: Reuben Thomas
Subject: [Emacs-diffs] master 8af9cb2 19/23: Remove meaningless defconst ispell-version
Date: Tue, 13 Dec 2016 19:44:37 +0000 (UTC)

branch: master
commit 8af9cb220d1e0b16ee7ad4b5514f8d53b152bcf3
Author: Reuben Thomas <address@hidden>
Commit: Reuben Thomas <address@hidden>

    Remove meaningless defconst ispell-version
    
    * 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 894e2ea..398e83e 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -671,11 +671,6 @@ here just for backwards compatibility.")
 ;;; 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 @@ Otherwise returns the library directory name, if that is 
defined."
                      (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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]