Mercurial > emacs
changeset 49535:dd7295763a84
(lookup-words): Fix last change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 30 Jan 2003 22:58:32 +0000 |
| parents | 162bedf2b10a |
| children | ac620c0b7435 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)