mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(check-ispell-version): If

Browse source 
`ispell-program-name' is "aspell", pass it the -v switch instead
of -vv.
This commit is contained in:
Eli Zaretskii 2000-12-16 15:13:31 +00:00
parent cbbe648933
commit 6ef3fdfb94
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/ispell.el
View file

@ -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