(check-ispell-version): If

`ispell-program-name' is "aspell", pass it the -v switch instead
of -vv.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c631175e61e8d8c77227532e2dc57cc29b7ecd2c..f3cb28da3e73657d6c833433202114f3c83f2e09 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -729,7 +729,15 @@ Otherwise returns the library path if defined."
     (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