diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2010-09-07 20:01:23 +0200 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2010-09-07 20:01:23 +0200 |
| commit | 308e764f26f61572067a959f6cbf94d7bd3f2e4e (patch) | |
| tree | a7d49526a4851ad76389d22bb8401c1e7fd724f0 /lisp/textmodes | |
| parent | ecc74b38f3bd7dc0d22bd808e07a63373f196424 (diff) | |
| download | emacs-308e764f26f61572067a959f6cbf94d7bd3f2e4e.tar.gz | |
Make sure original ispell arg list is initialized in (ispell-start-process).
* textmodes/ispell.el (ispell-start-process): Make sure original
arg list is properly initialized (Bug#6993, Bug#6994).
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index e30da02df4f..0e853cc3ccd 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2591,12 +2591,13 @@ Keeps argument list for future ispell invocations for no async support." default-directory ;; Defend against bad `default-directory'. (expand-file-name "~/"))) + (orig-args (ispell-get-ispell-args)) (args (append - (if (and ispell-current-dictionary ; Use specified dictionary. - (not (member "-d" args))) ; Only define if not overridden. + (if (and ispell-current-dictionary ; Not for default dict (nil) + (not (member "-d" orig-args))) ; Only define if not overridden. (list "-d" ispell-current-dictionary)) - (ispell-get-ispell-args) + orig-args (if ispell-current-personal-dictionary ; Use specified pers dict. (list "-p" (expand-file-name ispell-current-personal-dictionary))) |