mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 03:11:09 -08:00
Code Issues Projects Releases Wiki Activity

(flyspell-word, flyspell-large-region, flyspell-region): Call

Browse source 
ispell-maybe-find-aspell-dictionaries.
This commit is contained in:
Chong Yidong 2008-07-28 20:18:52 +00:00
parent 1bd045d53a
commit 458ce40a6a
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/flyspell.el
View file

@ -1004,6 +1004,7 @@ Mostly we check word delimiters."
(defun flyspell-word (&optional following)
"Spell check a word."
(interactive (list ispell-following-word))
(ispell-maybe-find-aspell-dictionaries)
(save-excursion
;; use the correct dictionary
(flyspell-accept-buffer-local-defs)
@ -1512,7 +1513,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
;; this is done, we can start checking...
(if flyspell-issue-message-flag (message "Checking region..."))
(set-buffer curbuf)
(ispell-check-version)
(ispell-maybe-find-aspell-dictionaries)
(let ((c (apply 'ispell-call-process-region beg
end
ispell-program-name
@ -1558,6 +1559,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
(defun flyspell-region (beg end)
"Flyspell text between BEG and END."
(interactive "r")
(ispell-maybe-find-aspell-dictionaries)
(if (= beg end)
()
(save-excursion