From 8c70e8715505f9f4e6ad99d48a931986b1d13853 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Tue, 13 Dec 2016 00:43:21 +0000 Subject: [PATCH 24/25] Remove support for aspell < 0.60 (from 2004) lisp/textmodes/ispell.el (ispell-check-version): Require Aspell 0.60. (ispell-aspell-dictionary-alist): Remove check that we have Aspell 0.60. --- lisp/textmodes/ispell.el | 35 ++++++++++++++++------------------- 1 file changed, 16 insertions(+), 19 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c45b620..37a6ffc 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -727,8 +727,7 @@ ispell-check-version ;; Make sure these variables are (re-)initialized to the default value (setq ispell-really-aspell nil - ispell-aspell-supports-utf8 nil - ispell-really-hunspell nil + ispell-really-hunspell nil ispell-encoding8-command nil) (goto-char (point-min)) @@ -742,24 +741,24 @@ ispell-check-version nil t) (match-string 1))))) - (let ((aspell-minver "0.50") - (aspell8-minver "0.60") - (ispell-minver "3.1.12") - (hunspell8-minver "1.1.6")) - - (unless (version<= ispell-minver ispell-program-version) - (error "%s release %s or greater is required" - ispell-program-name - ispell-minver)) + (let* ((aspell8-minver "0.60") + (ispell-minver "3.1.12") + (hunspell8-minver "1.1.6") + (minver (cond + ((not (version<= ispell-minver ispell-program-version)) + ispell-minver) + ((and ispell-really-aspell + (not (version<= aspell8-minver ispell-really-aspell))) + aspell8-minver)))) + + (if minver + (error "%s release %s or greater is required" + ispell-program-name + minver)) (cond (ispell-really-aspell - (if (version<= aspell-minver ispell-really-aspell) - (if (version<= aspell8-minver ispell-really-aspell) - (progn - (setq ispell-aspell-supports-utf8 t) - (setq ispell-encoding8-command "--encoding="))) - (setq ispell-really-aspell nil))) + (setq ispell-encoding8-command "--encoding=")) (ispell-really-hunspell (if (version<= hunspell8-minver ispell-really-hunspell) (setq ispell-encoding8-command "-i") @@ -838,8 +837,6 @@ ispell-aspell-dictionary-alist (defun ispell-find-aspell-dictionaries () "Find Aspell's dictionaries, and record in `ispell-aspell-dictionary-alist'." - (unless (and ispell-really-aspell ispell-encoding8-command) - (error "This function only works with Aspell >= 0.60")) (let* ((dictionaries (split-string (with-temp-buffer -- 2.7.4