From: Dave Love Date: Mon, 6 Jan 2003 20:46:57 +0000 (+0000) Subject: (lookup-words): Cope with null lookup-dict. X-Git-Tag: ttn-vms-21-2-B4~11800 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3849454a12a90566ca7ff6557b0e860dfb24f570;p=emacs.git (lookup-words): Cope with null lookup-dict. --- diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 9efe8c9ee33..249cbe28972 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1240,7 +1240,7 @@ pass it the output of the last ispell invocation." ;; terrible kludge, and it's a bit slow, but it does get the work done.) (let ((cmd (aref string 0)) ;; The following commands are not passed to Ispell until - ;; we have a *reall* reason to invoke it. + ;; we have a *real* reason to invoke it. (cmds-to-defer '(?* ?@ ?~ ?+ ?- ?! ?%)) (default-major-mode 'fundamental-mode) (session-buf ispell-session-buffer) @@ -1929,7 +1929,8 @@ Optional second argument contains the dictionary to use; the default is (while (search-backward "*" nil t) (insert ".")) (setq word (buffer-string)) (erase-buffer)) - (setq status (call-process prog nil t nil args word lookup-dict)) + ;; Use apply since `lookup-dict' can be nil. + (setq status (apply #'call-process prog nil t nil args word lookup-dict)) ;; grep returns status 1 and no output when word not found, which ;; is a perfectly normal thing. (if (stringp status)