andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ispell-kill-ispell): If ispell has been

Browse source 
launched asynchronously, delete its process instead of being cool.
(ispell-async-processp): Check for `delete-process' existence
instead of `kill-process' one for consistency.
Submitted by: Michaël Cadilhac  <michael.cadilhac@lrde.org>
This commit is contained in:
Kim F. Storm 2006-06-09 13:04:13 +00:00
parent 36ac5ea59b
commit 2a997209bd
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/textmodes/ispell.el
View file

@ -865,7 +865,7 @@ and added as a submenu of the \"Edit\" menu.")
(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 @@ With NO-ERROR, just return non-nil if there was no Ispell running."
(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)