# HG changeset patch # User Agustin martin <agustin.martin@hispalinux.es> # Date 1283882483 -7200 # Node ID 280c5216180d6cc68277b2a8e054ee76bbe7d82d # Parent 97a40b7935bd1c03bca67c44098e770ac3906347 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). diff -r 97a40b7935bd -r 280c5216180d lisp/ChangeLog --- a/lisp/ChangeLog Tue Sep 07 06:23:16 2010 +0000 +++ b/lisp/ChangeLog Tue Sep 07 20:01:23 2010 +0200 @@ -1,3 +1,8 @@ +2010-09-07 Agust鱈n Mart鱈n <agustin.martin@hispalinux.es> + + * textmodes/ispell.el (ispell-start-process): Make sure original + arg list is properly initialized (Bug#6993, Bug#6994). + 2010-09-06 Alexander Klimov <alserkli@inbox.ru> (tiny change) * files.el (directory-abbrev-alist): Use \` as default regexp. diff -r 97a40b7935bd -r 280c5216180d lisp/textmodes/ispell.el --- a/lisp/textmodes/ispell.el Tue Sep 07 06:23:16 2010 +0000 +++ b/lisp/textmodes/ispell.el Tue Sep 07 20:01:23 2010 +0200 @@ -2591,12 +2591,13 @@ 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)))