Mercurial > emacs
changeset 70878:8740ce7e1367
(gud-sentinel): Condition on GUD buffer if it has not been killed.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 24 May 2006 12:05:03 +0000 |
| parents | 3652c0618b06 |
| children | 238e43ed886e |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Wed May 24 12:04:23 2006 +0000 +++ b/lisp/progmodes/gud.el Wed May 24 12:05:03 2006 +0000 @@ -2693,10 +2693,10 @@ ((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