(gdb): Restore existing session if user

tries to start a second one in graphical mode.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index c5183f954eeff2a3d05155d0c6683c7009600a11..1ec9e97822927cafc8146f99649511d5683e6a60 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -723,14 +723,13 @@ text command mode to debug multiple programs within one Emacs
 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)