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

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/06/09 13:04:13

Index: ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.199
retrieving revision 1.200
diff -u -b -r1.199 -r1.200
--- ispell.el   21 May 2006 20:25:43 -0000      1.199
+++ ispell.el   9 Jun 2006 13:04:13 -0000       1.200
@@ -865,7 +865,7 @@
 (defvar ispell-process nil
   "The process object for Ispell.")
 
-(defvar ispell-async-processp (and (fboundp 'kill-process)
+(defvar ispell-async-processp (and (fboundp 'delete-process)
                                   (fboundp 'process-send-string)
                                   (fboundp 'accept-process-output)
                                   ;;(fboundp 'start-process)
@@ -2572,15 +2572,7 @@
       (or no-error
          (error "There is no ispell process running!"))
     (if ispell-async-processp
-       (progn
-         (process-send-eof ispell-process)
-         (if (eq (ispell-process-status) 'run)
-             (ispell-accept-output 1))
-         (if (eq (ispell-process-status) 'run)
-             (kill-process ispell-process))
-         (while (not (or (eq (ispell-process-status) 'exit)
-                         (eq (ispell-process-status) 'signal)))
-           (sleep-for 0.25)))
+       (delete-process ispell-process)
       ;; synchronous processes
       (ispell-send-string "\n")                ; make sure side effects 
occurred.
       (kill-buffer ispell-output-buffer)