Commit 2a997209 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(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>
parent 36ac5ea5
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment