Commit 966a7f49 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(ispell-accept-buffer-local-defs):
Don't call ispell-maybe-find-aspell-dictionaries
parent 1a1dd431
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment