Mercurial > emacs
comparison lisp/progmodes/gud.el @ 77073:1248605d9e44
(gdb): Restore existing session if user
tries to start a second one in graphical mode.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 09 Apr 2007 06:52:30 +0000 |
| parents | 8199e6703268 |
| children | da64d72c22b5 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 77072:2a5d9704a6f6 | 77073:1248605d9e44 |
|---|---|
| 721 `gud-gdb-command-name' for all future sessions. You need to use | 721 `gud-gdb-command-name' for all future sessions. You need to use |
| 722 text command mode to debug multiple programs within one Emacs | 722 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) |
| 737 | 736 |
| 738 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") | 737 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") |