diff options
| author | Dave Love <fx@gnu.org> | 2003-01-30 22:59:07 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2003-01-30 22:59:07 +0000 |
| commit | 78f886f2244d16f3662d8e2dc5fd52e62ec87e42 (patch) | |
| tree | b712e4213e38d2f2fdd5dc847981b19d9d252ed7 /lisp | |
| parent | fe43016c17995a8af7838d5736681c951361d82d (diff) | |
| download | emacs-78f886f2244d16f3662d8e2dc5fd52e62ec87e42.tar.gz | |
(lookup-words): Fix last change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 5 |
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) |