[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el |
Date: |
Sun, 14 Aug 2005 21:37:42 -0400 |
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)