diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-19 19:00:02 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-19 19:00:02 +0000 |
| commit | 27149c587cdfede04c2cda8edc9c37eefb853dfa (patch) | |
| tree | 236bf30600073b1d7ecd617b427d87e7790c19a0 /lisp/progmodes/gud.el | |
| parent | d490ebbe49f75a5041e97621a72a55fe033226f7 (diff) | |
| download | emacs-27149c587cdfede04c2cda8edc9c37eefb853dfa.tar.gz | |
(gud-reset): Use unless & with-current-buffer.
Diffstat (limited to 'lisp/progmodes/gud.el')
| -rw-r--r-- | lisp/progmodes/gud.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 84dec78d895..eb0b887bdf3 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -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. |