From: Agustín Martín Date: Tue, 27 Apr 2010 10:35:00 +0000 (+0200) Subject: ispell.el (ispell-init-process): Fix personal dictionary condition in default directo... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~369 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fd689fc4ab40d925d8db85f3550fe29f590a2e4;p=emacs.git ispell.el (ispell-init-process): Fix personal dictionary condition in default directory check. --- diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 81b87cd5641..c9ede28e054 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2614,9 +2614,11 @@ Keeps argument list for future ispell invocations for no async support." "Check status of Ispell process and start if necessary." (if (and ispell-process (eq (ispell-process-status) 'run) - ;; If we're using a personal dictionary, ensure - ;; we're in the same default directory! - (or (not ispell-personal-dictionary) + ;; Unless we are using an explicit personal dictionary, + ;; ensure we're in the same default directory! + ;; Restart check for personal dictionary is done in + ;; `ispell-internal-change-dictionary', called from `ispell-buffer-local-dict' + (or (or ispell-local-pdict ispell-personal-dictionary) (equal ispell-process-directory default-directory))) (setq ispell-filter nil ispell-filter-continue nil) ;; may need to restart to select new personal dictionary.