From db6e1f82976a7f232a4a206a3c850ed34cfbfdd3 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Sun, 4 Dec 2016 21:50:18 +0000 Subject: [PATCH] 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 b3fee99b361..412e838e11b 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)) -- 2.39.2