procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ispell.el: Fix ispell personal dictionary name expansion.

Browse source 
textmodes/ispell.el (ispell-init-process, ispell-start-process): 
Make sure ispell personal dictionary name is expanded after initial
`default-directory' value (Bug#13019).
This commit is contained in:
Agustín Martín 2012-12-03 17:08:23 +01:00
parent 20edc1c9ed
commit 329bfd64c2
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/ispell.el
View file

@ -2669,7 +2669,8 @@ Keeps argument list for future Ispell invocations for no async support."
orig-args
(if ispell-current-personal-dictionary ; Use specified pers dict.
(list "-p"
(expand-file-name ispell-current-personal-dictionary)))
(expand-file-name ispell-current-personal-dictionary
current-ispell-directory)))
;; If we are using recent aspell or hunspell, make sure we use the
;; right encoding for communication. ispell or older aspell/hunspell
;; does not support this.
@ -2706,6 +2707,9 @@ Keeps argument list for future Ispell invocations for no async support."
(let* (;; Basename of dictionary used by the spell-checker
(dict-bname (or (car (cdr (member "-d" (ispell-get-ispell-args))))
ispell-current-dictionary))
;; The directory where process was started.
(current-ispell-directory default-directory)
;; The default directory for the process.
;; Use "~/" as default-directory unless using Ispell with per-dir
;; personal dictionaries and not in a minibuffer under XEmacs
(default-directory