From a386b0959d81786a197f2c71170ba716c71702df Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 24 May 2006 12:05:03 +0000 Subject: [PATCH] (gud-sentinel): Condition on GUD buffer if it has not been killed. --- lisp/progmodes/gud.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index bda30b196e1..bbb9df4cb2c 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2693,10 +2693,10 @@ It is saved for when this flag is not set.") ((memq (process-status proc) '(signal exit)) ;; Stop displaying an arrow in a source file. (setq gud-overlay-arrow-position nil) - (with-current-buffer gud-comint-buffer - (if (memq gud-minor-mode-type '(gdbmi gdba)) - (gdb-reset) - (gud-reset))) + (if (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + '(gdba gdbmi)) + (gdb-reset) + (gud-reset)) (let* ((obuf (current-buffer))) ;; save-excursion isn't the right thing if ;; process-buffer is current-buffer -- 2.39.2