Index: emacs/lisp/textmodes/ispell.el
diff -c emacs/lisp/textmodes/ispell.el:1.171
emacs/lisp/textmodes/ispell.el:1.172
*** emacs/lisp/textmodes/ispell.el:1.171 Tue Aug 9 14:11:49 2005
--- emacs/lisp/textmodes/ispell.el Mon Aug 15 01:37:41 2005
***************
*** 2150,2158 ****
(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)))
;; grep returns status 1 and no output when word not found, which
;; is a perfectly normal thing.
(if (stringp status)
--- 2150,2162 ----
(while (search-backward "*" nil t) (insert "."))
(setq word (buffer-string))
(erase-buffer))
! (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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
