(gdb): Pop up current GUD buffer if user

tries to start a second session in graphical mode.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 1662af1c9246bdde82b8fb3e8612cd3007a3b9e6..8db7c28219e6934669f5c12e6958776d3cbc2be6 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -690,7 +690,10 @@ session."
           (buffer-name gud-comint-buffer)
           (get-buffer-process gud-comint-buffer)
           (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
-      (error "Multiple debugging requires restarting in text command mode"))
+      (let ((same-window-regexps))
+       (display-buffer gud-comint-buffer)
+       (error
+        "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)