Mercurial > emacs
changeset 71289:95f5febb2bb5
(ispell-kill-ispell): If ispell has been
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>
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 09 Jun 2006 13:04:13 +0000 |
| parents | 5bf4824174e1 |
| children | 3f1743ca9233 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 2 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Fri Jun 09 13:03:18 2006 +0000 +++ b/lisp/textmodes/ispell.el Fri Jun 09 13:04:13 2006 +0000 @@ -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)