diff options
author | Eli Zaretskii <eliz@gnu.org> | 2000-12-16 15:13:31 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2000-12-16 15:13:31 +0000 |
commit | 7d31de95ada1dac996eead877b74e39224e036f2 (patch) | |
tree | 00f07994023485f94f9f76418fcdc4f97095b348 /lisp | |
parent | 0ffd78fc61599dd6cb63b187c8561581c71b6847 (diff) | |
download | emacs-7d31de95ada1dac996eead877b74e39224e036f2.tar.gz |
(check-ispell-version): If
`ispell-program-name' is "aspell", pass it the -v switch instead
of -vv.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/textmodes/ispell.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c631175e61e..f3cb28da3e7 100644 --- 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 |