# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1128457707 0
# Node ID 153b746cc2d0ec0678fccd4f5051185694550ac5
# Parent  fca34be2db31bea0a1ba341402bac6d610b34db2
(ispell-word, ispell-region): Call ispell-maybe-find-aspell-dictionaries.
(ispell-accept-buffer-local-defs):
Don't call ispell-maybe-find-aspell-dictionaries

diff -r fca34be2db31 -r 153b746cc2d0 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Tue Oct 04 20:27:58 2005 +0000
+++ b/lisp/textmodes/ispell.el	Tue Oct 04 20:28:27 2005 +0000
@@ -1557,6 +1557,7 @@
   (interactive (list ispell-following-word ispell-quietly current-prefix-arg))
   (if continue
       (ispell-continue)
+    (ispell-maybe-find-aspell-dictionaries)
     (ispell-accept-buffer-local-defs)	; use the correct dictionary
     (let ((cursor-location (point))	; retain cursor location
 	  (word (ispell-get-word following))
@@ -2615,6 +2616,7 @@
 Return nil if spell session is quit,
  otherwise returns shift offset amount for last line processed."
   (interactive "r")			; Don't flag errors on read-only bufs.
+  (ispell-maybe-find-aspell-dictionaries)
   (if (not recheckp)
       (ispell-accept-buffer-local-defs)) ; set up dictionary, local words, etc.
   (let ((skip-region-start (make-marker))
@@ -3576,7 +3578,6 @@
 
 (defun ispell-accept-buffer-local-defs ()
   "Load all buffer-local information, restarting Ispell when necessary."
-  (ispell-maybe-find-aspell-dictionaries)
   (ispell-buffer-local-dict)		; May kill ispell-process.
   (ispell-buffer-local-words)		; Will initialize ispell-process.
   (ispell-buffer-local-parsing))