(gud-kill-buffer-hook): Don't kill unrelated

process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a49d97b0048fd752af3a8fc40f3a1514fe8d5c5..7d68058a8d7756c8599ada4aaf76cf4910e80c42 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-19  Andreas Schwab  <schwab@suse.de>
+
+       * progmodes/gud.el (gud-kill-buffer-hook): Don't kill unrelated
+       process.
+
 2005-08-18  Luc Teirlinck  <teirllm@auburn.edu>
 
        * cus-start.el (minibuffer-prompt-properties): Correct typo.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 21f61ec1dc854460d37b404486587eba38687c94..0577e2a2bb763586c43d6108d8b63ab7f9575553 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2598,7 +2598,7 @@ It is saved for when this flag is not set.")
 (defun gud-kill-buffer-hook ()
   (setq gud-minor-mode-type gud-minor-mode)
   (condition-case nil
-      (kill-process (get-buffer-process gud-comint-buffer))
+      (kill-process (get-buffer-process (current-buffer)))
     (error nil)))
 
 (defun gud-reset ()