Mercurial > emacs

changeset 34632:a0dab8c91962

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check-ispell-version): If `ispell-program-name' is "aspell", pass it the -v switch instead of -vv.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Dec 2000 15:13:31 +0000
parents aeb6db8df2b9
children 3a16306fdadf
files lisp/textmodes/ispell.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Sat Dec 16 01:44:39 2000 +0000
+++ b/lisp/textmodes/ispell.el	Sat Dec 16 15:13:31 2000 +0000
@@ -729,7 +729,15 @@
     (save-excursion
       (set-buffer (get-buffer-create " *ispell-tmp*"))
       (erase-buffer)
-      (setq status (call-process ispell-program-name nil t nil "-vv"))
+      (setq status (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"))))
       (goto-char (point-min))
       (if interactivep
 	  (progn