emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r100056: ispell.el: Kill ispell proce


From: Agustin martin
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r100056: ispell.el: Kill ispell process when killing its associated buffer.
Date: Tue, 27 Apr 2010 12:44:44 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 100056
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-27 12:44:44 +0200
message:
  ispell.el: Kill ispell process when killing its associated buffer.
  
  (ispell-init-process,ispell-kill-ispell,kill-buffer-hook): 
  Kill ispell process when killing its associated buffer.
modified:
  lisp/textmodes/ispell.el
=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-04-27 10:35:00 +0000
+++ b/lisp/textmodes/ispell.el  2010-04-27 10:44:44 +0000
@@ -1334,6 +1334,9 @@
 (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 @@
          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 @@
       (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?


reply via email to

[Prev in Thread] Current Thread [Next in Thread]