[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el,v
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el,v |
Date: |
Fri, 09 Jun 2006 13:04:13 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el,v,
Kim F. Storm <=