mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(gud-sentinel): Condition on GUD buffer if it has not been killed.

Browse Source
This commit is contained in:
Nick Roberts 2006-05-24 12:05:03 +00:00
parent a62c3993bd
commit a386b0959d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/gud.el
View File

@ -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