# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1043967512 0
# Node ID dd7295763a84beabcedffa9fb4b13eb26cbea8a9
# Parent  162bedf2b10a1a028a8d141e2dc434334effdfdf
(lookup-words): Fix last change.

diff -r 162bedf2b10a -r dd7295763a84 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Thu Jan 30 18:58:22 2003 +0000
+++ b/lisp/textmodes/ispell.el	Thu Jan 30 22:58:32 2003 +0000
@@ -1929,8 +1929,9 @@
 	    (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)