# HG changeset patch
# User Agustin martin <agustin.martin@hispalinux.es>
# Date 1277454481 -7200
# Node ID 089bea4d9fb3304225954badf3632835c016ef3b
# Parent  4795588540bb13266f64d8c44921f6528d57d2ed
ispell.el (ispell-init-process): Make sure ispell and default directories are expanded.

diff -r 4795588540bb -r 089bea4d9fb3 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Fri Jun 25 10:19:11 2010 +0200
+++ b/lisp/textmodes/ispell.el	Fri Jun 25 10:28:01 2010 +0200
@@ -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))