(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)
;; 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
(defun flyspell-region (beg end)
"Flyspell text between BEG and END."
(interactive "r")
+ (ispell-maybe-find-aspell-dictionaries)
(if (= beg end)
()
(save-excursion