[Emacs-diffs] /srv/bzr/emacs/trunk r101380: Make sure original ispell arg list is initialized in (ispell-start-process).

[Agustin martin]

------------------------------------------------------------
revno: 101380
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Tue 2010-09-07 20:01:23 +0200
message:
  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).
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-06 16:38:03 +0000
+++ b/lisp/ChangeLog    2010-09-07 18:01:23 +0000
@@ -1,3 +1,8 @@
+2010-09-07  Agustín Martín  <address@hidden>
+
+       * textmodes/ispell.el (ispell-start-process): Make sure original
+       arg list is properly initialized (Bug#6993, Bug#6994).
+
 2010-09-06  Alexander Klimov  <address@hidden>  (tiny change)
 
        * files.el (directory-abbrev-alist): Use \` as default regexp.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-09-04 18:47:29 +0000
+++ b/lisp/textmodes/ispell.el  2010-09-07 18:01:23 +0000
@@ -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)))