Mercurial > emacs
changeset 109047:089bea4d9fb3
ispell.el (ispell-init-process): Make sure ispell and default directories are expanded.
| author | Agustin martin <agustin.martin@hispalinux.es> |
|---|---|
| date | Fri, 25 Jun 2010 10:28:01 +0200 |
| parents | 4795588540bb |
| children | e1b36fd5197d |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))