From 2a997209bd49f0a969b628f2036fa401245bb76d Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 9 Jun 2006 13:04:13 +0000 Subject: [PATCH] =?utf8?q?(ispell-kill-ispell):=20If=20ispell=20has=20been?= =?utf8?q?=20launched=20asynchronously,=20delete=20its=20process=20instead?= =?utf8?q?=20of=20being=20cool.=20(ispell-async-processp):=20Check=20for?= =?utf8?q?=20`delete-process'=20existence=20instead=20of=20`kill-process'?= =?utf8?q?=20one=20for=20consistency.=20Submitted=20by:=20Micha=C3=ABl=20C?= =?utf8?q?adilhac=20=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/textmodes/ispell.el | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 7bfedb1bd97..a4d873a543d 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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) -- 2.39.5