mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(gud-reset): Use unless & with-current-buffer.

Browse source
This commit is contained in:
Stefan Monnier 2004-05-19 19:00:02 +00:00
parent d490ebbe49
commit 27149c587c
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/gud.el
View file

@ -2554,12 +2554,11 @@ It is saved for when this flag is not set.")
(defun gud-reset ()
(dolist (buffer (buffer-list))
(if (not (eq buffer gud-comint-buffer))
(save-excursion
(set-buffer buffer)
(when gud-minor-mode
(setq gud-minor-mode nil)
(kill-local-variable 'tool-bar-map))))))
(unless (eq buffer gud-comint-buffer)
(with-current-buffer buffer
(when gud-minor-mode
(setq gud-minor-mode nil)
(kill-local-variable 'tool-bar-map))))))
(defun gud-display-frame ()
"Find and obey the last filename-and-line marker from the debugger.