mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

ispell.el (ispell-init-process): Fix personal dictionary condition in default directory check.

Browse source
This commit is contained in:
Agustín Martín 2010-04-27 12:35:00 +02:00
parent 64a09d2d8a
commit 7fd689fc4a
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/ispell.el
View file

@ -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.