aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAgustín Martín2010-04-27 12:35:00 +0200
committerAgustín Martín2010-04-27 12:35:00 +0200
commit7fd689fc4ab40d925d8db85f3550fe29f590a2e4 (patch)
tree3c4d39067c734feb4e72eeb3030e5de6caa74e46
parent64a09d2d8aab2967c61bf0b01182619778fab332 (diff)
downloademacs-7fd689fc4ab40d925d8db85f3550fe29f590a2e4.tar.gz
emacs-7fd689fc4ab40d925d8db85f3550fe29f590a2e4.zip
ispell.el (ispell-init-process): Fix personal dictionary condition in default directory check.
-rw-r--r--lisp/textmodes/ispell.el8
1 files changed, 5 insertions, 3 deletions
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."
2614 "Check status of Ispell process and start if necessary." 2614 "Check status of Ispell process and start if necessary."
2615 (if (and ispell-process 2615 (if (and ispell-process
2616 (eq (ispell-process-status) 'run) 2616 (eq (ispell-process-status) 'run)
2617 ;; If we're using a personal dictionary, ensure 2617 ;; Unless we are using an explicit personal dictionary,
2618 ;; we're in the same default directory! 2618 ;; ensure we're in the same default directory!
2619 (or (not ispell-personal-dictionary) 2619 ;; Restart check for personal dictionary is done in
2620 ;; `ispell-internal-change-dictionary', called from `ispell-buffer-local-dict'
2621 (or (or ispell-local-pdict ispell-personal-dictionary)
2620 (equal ispell-process-directory default-directory))) 2622 (equal ispell-process-directory default-directory)))
2621 (setq ispell-filter nil ispell-filter-continue nil) 2623 (setq ispell-filter nil ispell-filter-continue nil)
2622 ;; may need to restart to select new personal dictionary. 2624 ;; may need to restart to select new personal dictionary.