mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove support for ispell < 3.1.12

Browse source 
* 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.
This commit is contained in:
Reuben Thomas 2016-12-04 21:50:18 +00:00
parent 3affed01e1
commit db6e1f8297
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/ispell.el
View file

@ -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))