[Emacs-diffs] /srv/bzr/emacs/trunk r100641: ispell.el (ispell-init-process): Make sure ispell and default directories are expanded.

[Agustin martin]

------------------------------------------------------------
revno: 100641
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Fri 2010-06-25 10:28:01 +0200
message:
  ispell.el (ispell-init-process): Make sure ispell and default directories are 
expanded.
modified:
  lisp/textmodes/ispell.el

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-06-17 14:44:34 +0000
+++ b/lisp/textmodes/ispell.el  2010-06-25 08:28:01 +0000
@@ -2622,7 +2622,7 @@
           ;; 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)))
+              (equal ispell-process-directory (expand-file-name 
default-directory))))
       (setq ispell-filter nil ispell-filter-continue nil)
     ;; may need to restart to select new personal dictionary.
     (ispell-kill-ispell t)
@@ -2638,13 +2638,13 @@
     (if (window-minibuffer-p)
        (if (fboundp 'minibuffer-selected-window)
            ;; Assign ispell process to parent buffer
-           (setq ispell-process-directory default-directory
+           (setq ispell-process-directory (expand-file-name default-directory)
                  ispell-process-buffer-name (window-buffer 
(minibuffer-selected-window)))
          ;; Force `ispell-process-directory' to $HOME and use a dummy name
          (setq ispell-process-directory (expand-file-name "~/")
                ispell-process-buffer-name " * 
Minibuffer-has-spellcheck-enabled"))
       ;; Not in a minibuffer
-      (setq ispell-process-directory default-directory
+      (setq ispell-process-directory (expand-file-name default-directory)
            ispell-process-buffer-name (buffer-name)))
     (if ispell-async-processp
        (set-process-filter ispell-process 'ispell-filter))