Commit 78f886f2 authored by Dave Love's avatar Dave Love

(lookup-words): Fix last change.

parent fe43016c
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'.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment