From 640b41cd9b7e1196eea51a5664a3756916e37715 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Mon, 2 Nov 2020 21:41:05 +0000 Subject: [PATCH] =?utf8?q?Simplify=20ispell-check-version=E2=80=99s=20use?= =?utf8?q?=20of=20-vv=20flag?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/textmodes/ispell.el (ispell-check-version): All supported spell checker programs accept -vv, including aspell for many years, so use it. --- lisp/textmodes/ispell.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index da518b10749..60415b02b8b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -684,13 +684,11 @@ Otherwise returns the library directory name, if that is defined." (with-temp-buffer (setq status (ispell-call-process ispell-program-name nil t nil - ;; aspell doesn't accept the -vv switch. (let ((case-fold-search (memq system-type '(ms-dos windows-nt))) (speller (file-name-nondirectory ispell-program-name))) - ;; Assume anything that isn't `aspell' is Ispell. - (if (string-match "\\`aspell" speller) "-v" "-vv")))) + "-vv"))) (goto-char (point-min)) (if interactivep ;; Report version information of ispell -- 2.39.2