[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el, v [EMACS_22_BASE]

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Chong Yidong <cyd>      08/07/28 20:18:52

Index: flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.118.2.6
retrieving revision 1.118.2.7
diff -u -b -r1.118.2.6 -r1.118.2.7
--- flyspell.el 7 Jan 2008 02:21:45 -0000       1.118.2.6
+++ flyspell.el 28 Jul 2008 20:18:52 -0000      1.118.2.7
@@ -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