emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master db6e1f8 17/23: Remove support for ispell < 3.1.12


From: Reuben Thomas
Subject: [Emacs-diffs] master db6e1f8 17/23: Remove support for ispell < 3.1.12
Date: Tue, 13 Dec 2016 19:44:37 +0000 (UTC)

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

    Remove support for ispell < 3.1.12
    
    * lisp/textmodes/ispell.el (ispell-offset): Remove.
    (ispell-check-version): Require ispell >= 3.1.12, released in 1994.
    (ispell-process-line): No longer use ispell-offset.
---
 lisp/textmodes/ispell.el |   10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index b3fee99..412e838 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -673,9 +673,6 @@ here just for backwards compatibility.")
 
 
 
-(defvar ispell-offset -1
-  "Offset that maps protocol differences between ispell 3.1 versions.")
-
 (defconst ispell-version "ispell.el 3.6 - 7-Jan-2003")
 
 
@@ -758,13 +755,10 @@ Otherwise returns the library directory name, if that is 
defined."
 
       (let ((aspell-minver    "0.50")
            (aspell8-minver   "0.60")
-           (ispell0-minver   "3.1.0")
            (ispell-minver    "3.1.12")
            (hunspell8-minver "1.1.6"))
 
-       (if (version<= ispell0-minver ispell-program-version)
-           (or (version<= ispell-minver ispell-program-version)
-               (setq ispell-offset 0))
+       (unless (version<= ispell-minver ispell-program-version)
          (error "%s release %s or greater is required"
                 ispell-program-name
                 ispell-minver))
@@ -3360,7 +3354,7 @@ Returns the sum SHIFT due to changes in word 
replacements."
          ;; Markers can move with highlighting!  This destroys
          ;; end of region markers line-end and ispell-region-end
          (let ((word-start
-                (copy-marker (+ ispell-start ispell-offset (car (cdr poss)))))
+                (copy-marker (+ ispell-start (car (cdr poss)))))
                (word-len (length (car poss)))
                (line-end (copy-marker ispell-end))
                (line-start (copy-marker ispell-start))



reply via email to

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