diff options
| -rw-r--r-- | lisp/progmodes/gud.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index c5183f954ee..1ec9e978229 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -723,14 +723,13 @@ text command mode to debug multiple programs within one Emacs | |||
| 723 | session." | 723 | session." |
| 724 | (interactive (list (gud-query-cmdline 'gdb))) | 724 | (interactive (list (gud-query-cmdline 'gdb))) |
| 725 | 725 | ||
| 726 | (if (and gud-comint-buffer | 726 | (when (and gud-comint-buffer |
| 727 | (buffer-name gud-comint-buffer) | 727 | (buffer-name gud-comint-buffer) |
| 728 | (get-buffer-process gud-comint-buffer) | 728 | (get-buffer-process gud-comint-buffer) |
| 729 | (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))) | 729 | (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))) |
| 730 | (let ((same-window-regexps)) | 730 | (gdb-restore-windows) |
| 731 | (display-buffer gud-comint-buffer) | ||
| 732 | (error | 731 | (error |
| 733 | "Multiple debugging requires restarting in text command mode"))) | 732 | "Multiple debugging requires restarting in text command mode")) |
| 734 | 733 | ||
| 735 | (gud-common-init command-line nil 'gud-gdb-marker-filter) | 734 | (gud-common-init command-line nil 'gud-gdb-marker-filter) |
| 736 | (set (make-local-variable 'gud-minor-mode) 'gdb) | 735 | (set (make-local-variable 'gud-minor-mode) 'gdb) |