(ispell-word, ispell-region): Call ispell-maybe-find-aspell-dictionaries.

(ispell-accept-buffer-local-defs):
Don't call ispell-maybe-find-aspell-dictionaries

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 3b3132757f96c9cf1dbb01025aab49c286411481..235df7140151497b4a17e6d4f4fe6fe8ca9e384b 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1557,6 +1557,7 @@ quit          spell session exited."
   (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 @@ a new one will be started when needed."
 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 @@ You can bind this to the key C-c i in GNUS or mail by adding to
 
 (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))