(lookup-words): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e4db938f5078624079b9f7f6815f47e1e5a889b..86f92e0aaf50027a8e8eff91a9d5a18e8b1cd17e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-30  Dave Love  <fx@gnu.org>
+
+       * textmodes/ispell.el (lookup-words): Fix last change.
+
 2003-01-29  John Paul Wallington  <jpw@gnu.org>
 
        * font-lock.el (lisp-font-lock-keywords-1): Match `deftheme'.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 249cbe28972def424e3068c087a8f32eadee570f..d4abe76818740301123e72ca85ae763df812310e 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1929,8 +1929,9 @@ Optional second argument contains the dictionary to use; the default is
            (while (search-backward "*" nil t) (insert "."))
            (setq word (buffer-string))
            (erase-buffer))
-         ;; Use apply since `lookup-dict' can be nil.
-         (setq status (apply #'call-process prog nil t nil args word lookup-dict))
+         (setq status (if lookup-dict
+                          (call-process prog nil t nil args word lookup-dict)
+                        (call-process prog nil t nil args word)))
          ;; grep returns status 1 and no output when word not found, which
          ;; is a perfectly normal thing.
          (if (stringp status)