# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1124463808 0
# Node ID 96450052ed7732cac5c251710a8d69b74a7bf9b8
# Parent  0d1f97bd87d9d9ef930bed4f004f11e9495d050d
(gud-kill-buffer-hook): Don't kill unrelated
process.

diff -r 0d1f97bd87d9 -r 96450052ed77 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Fri Aug 19 02:08:56 2005 +0000
+++ b/lisp/progmodes/gud.el	Fri Aug 19 15:03:28 2005 +0000
@@ -2598,7 +2598,7 @@
 (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 ()