# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1176101550 0
# Node ID 1248605d9e447a2094e2b39c025bf66f7aab7396
# Parent  2a5d9704a6f6194d01ffda24f758c99de5b5bf2d
(gdb): Restore existing session if user
tries to start a second one in graphical mode.

diff -r 2a5d9704a6f6 -r 1248605d9e44 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Mon Apr 09 06:51:32 2007 +0000
+++ b/lisp/progmodes/gud.el	Mon Apr 09 06:52:30 2007 +0000
@@ -723,14 +723,13 @@
 session."
   (interactive (list (gud-query-cmdline 'gdb)))
 
-  (if (and gud-comint-buffer
+  (when (and gud-comint-buffer
 	   (buffer-name gud-comint-buffer)
 	   (get-buffer-process gud-comint-buffer)
 	   (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
-      (let ((same-window-regexps))
-	(display-buffer gud-comint-buffer)
+	(gdb-restore-windows)
 	(error
-	 "Multiple debugging requires restarting in text command mode")))
+	 "Multiple debugging requires restarting in text command mode"))
 
   (gud-common-init command-line nil 'gud-gdb-marker-filter)
   (set (make-local-variable 'gud-minor-mode) 'gdb)