# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1084993202 0
# Node ID 83b3b9e4e001830e241a1f723c100279b985b29f
# Parent  ed6e91c53c82c98cabdc66c07b0bdf6cff3727b3
(gud-reset): Use unless & with-current-buffer.

diff -r ed6e91c53c82 -r 83b3b9e4e001 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Wed May 19 18:58:21 2004 +0000
+++ b/lisp/progmodes/gud.el	Wed May 19 19:00:02 2004 +0000
@@ -2554,12 +2554,11 @@
 
 (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.