From 966a7f495bfbc49e5744c7950fd25ce4f9958903 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 4 Oct 2005 20:28:27 +0000 Subject: [PATCH] (ispell-word, ispell-region): Call ispell-maybe-find-aspell-dictionaries. (ispell-accept-buffer-local-defs): Don't call ispell-maybe-find-aspell-dictionaries --- lisp/textmodes/ispell.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 3b3132757f9..235df714015 100644 --- 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)) -- 2.39.5