# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1084993101 0
# Node ID ed6e91c53c82c98cabdc66c07b0bdf6cff3727b3
# Parent  b25f4dadde901bb5f16aabfa2aa90d018f316442
(gdb-reset): Use unless.  Fix regexp.

diff -r b25f4dadde90 -r ed6e91c53c82 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed May 19 18:55:51 2004 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed May 19 18:58:21 2004 +0000
@@ -1728,15 +1728,15 @@
   "Exit a debugging session cleanly by killing the gdb buffers and resetting
  the source buffers."
   (dolist (buffer (buffer-list))
-    (if (not (eq buffer gud-comint-buffer))
-	(with-current-buffer buffer
-	  (if (memq gud-minor-mode '(gdba pdb))
-	      (if (string-match "^\*.+*$" (buffer-name))
-		  (kill-buffer nil)
-		(gdb-remove-breakpoint-icons (point-min) (point-max) t)
-		(setq gud-minor-mode nil)
-		(kill-local-variable 'tool-bar-map)
-		(setq gud-running nil))))))
+    (unless (eq buffer gud-comint-buffer)
+      (with-current-buffer buffer
+	(if (memq gud-minor-mode '(gdba pdb))
+	    (if (string-match "\\`\\*.+\\*\\'" (buffer-name))
+		(kill-buffer nil)
+	      (gdb-remove-breakpoint-icons (point-min) (point-max) t)
+	      (setq gud-minor-mode nil)
+	      (kill-local-variable 'tool-bar-map)
+	      (setq gud-running nil))))))
   (when (markerp gdb-overlay-arrow-position)
     (move-marker gdb-overlay-arrow-position nil)
     (setq gdb-overlay-arrow-position nil))
@@ -2013,5 +2013,5 @@
 
 (provide 'gdb-ui)
 
-;;; arch-tag: e9fb00c5-74ef-469f-a088-37384caae352
+;; arch-tag: e9fb00c5-74ef-469f-a088-37384caae352
 ;;; gdb-ui.el ends here