mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

ispell.el: Kill ispell process when killing its associated buffer.

Browse source 
(ispell-init-process,ispell-kill-ispell,kill-buffer-hook): 
Kill ispell process when killing its associated buffer.
This commit is contained in:
Agustín Martín 2010-04-27 12:44:44 +02:00
parent 7fd689fc4a
commit 681c14d0b4
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/textmodes/ispell.el
View file

@ -1334,6 +1334,9 @@ Protects against bogus binding of `enable-multibyte-characters' in XEmacs."
(defvar ispell-process-directory nil
"The directory where `ispell-process' was started.")
(defvar ispell-process-buffer-name nil
"The buffer where `ispell-process' was started.")
(defvar ispell-filter nil
"Output filter from piped calls to Ispell.")
@ -2630,7 +2633,8 @@ Keeps argument list for future ispell invocations for no async support."
ispell-process-directory default-directory
ispell-process (ispell-start-process)
ispell-filter nil
ispell-filter-continue nil)
ispell-filter-continue nil
ispell-process-buffer-name (buffer-name))
(if ispell-async-processp
(set-process-filter ispell-process 'ispell-filter))
;; protect against bogus binding of `enable-multibyte-characters' in XEmacs
@ -2691,10 +2695,16 @@ With NO-ERROR, just return non-nil if there was no Ispell running."
(kill-buffer ispell-session-buffer)
(setq ispell-output-buffer nil
ispell-session-buffer nil))
(setq ispell-process-buffer-name nil)
(setq ispell-process nil)
(message "Ispell process killed")
nil))
;; Kill ispell process when killing its associated buffer
(add-hook 'kill-buffer-hook
'(lambda ()
(if (equal ispell-process-buffer-name (buffer-name))
(ispell-kill-ispell t))))
;;; ispell-change-dictionary is set in some people's hooks. Maybe this should
;;; call ispell-init-process rather than wait for a spell checking command?