Commit 7924c5df authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(lookup-words): Cope with case where ARGS is empty.

parent 498eb267
......@@ -2150,9 +2150,13 @@ 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 (if lookup-dict
(call-process prog nil t nil args word lookup-dict)
(call-process prog nil t nil args word)))
(setq status (apply 'call-process prog nil t nil
(nconc (if (and args (> (length args) 0))
(list args)
(if look-p nil
(list "-e")))
(list word)
(if lookup-dict (list lookup-dict)))))
;; 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