From 458ce40a6ab1437e388809fa4ec0dd31aa4437a8 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 28 Jul 2008 20:18:52 +0000
Subject: [PATCH] (flyspell-word, flyspell-large-region, flyspell-region): Call
 ispell-maybe-find-aspell-dictionaries.

---
 lisp/textmodes/flyspell.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 91b3f7549d1..121b4b29d3f 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -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
-- 
2.39.5