Mercurial > emacs

changeset 80653:3843bed9cf0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flyspell-word, flyspell-large-region, flyspell-region): Call ispell-maybe-find-aspell-dictionaries.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 28 Jul 2008 20:18:52 +0000
parents 3d0f5d74bca9
children c2235fc45f89
files lisp/textmodes/flyspell.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el	Mon Jul 28 20:18:25 2008 +0000
+++ b/lisp/textmodes/flyspell.el	Mon Jul 28 20:18:52 2008 +0000
@@ -1004,6 +1004,7 @@
 (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 @@
     ;; 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 @@
 (defun flyspell-region (beg end)
   "Flyspell text between BEG and END."
   (interactive "r")
+  (ispell-maybe-find-aspell-dictionaries)
   (if (= beg end)
       ()
     (save-excursion