[Emacs-diffs] /srv/bzr/emacs/trunk r100055: ispell.el (ispell-init-process): Fix personal dictionary condition in default directory check.

[Agustin martin]

------------------------------------------------------------
revno: 100055
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-27 12:35:00 +0200
message:
  ispell.el (ispell-init-process): Fix personal dictionary condition in default 
directory check.
modified:
  lisp/textmodes/ispell.el

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-02-02 22:33:52 +0000
+++ b/lisp/textmodes/ispell.el  2010-04-27 10:35:00 +0000
@@ -2614,9 +2614,11 @@
   "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.