(lookup-words): Fix last change.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e4db938f50..86f92e0aaf5 100644
--- 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 249cbe28972..d4abe768187 100644
--- 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)