[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el

[Richard M . Stallman]

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)