diff options
| author | Nick Roberts | 2007-11-05 06:40:26 +0000 |
|---|---|---|
| committer | Nick Roberts | 2007-11-05 06:40:26 +0000 |
| commit | c91d7cbb087fa8119fbf1f32c68472bb61df2750 (patch) | |
| tree | 609e6252ef1b1e3e65d4d05facfe38406bb6409e | |
| parent | 146836787ab306b254ebb40e48435345d92afd80 (diff) | |
| download | emacs-c91d7cbb087fa8119fbf1f32c68472bb61df2750.tar.gz emacs-c91d7cbb087fa8119fbf1f32c68472bb61df2750.zip | |
(gud-gdb): Remove vestigial gdba doc and code.
| -rw-r--r-- | lisp/progmodes/gud.el | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index e5217b7162a..5e11b73916e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -696,25 +696,14 @@ The option \"--fullname\" must be included in this value." | |||
| 696 | (defvar gud-filter-pending-text nil | 696 | (defvar gud-filter-pending-text nil |
| 697 | "Non-nil means this is text that has been saved for later in `gud-filter'.") | 697 | "Non-nil means this is text that has been saved for later in `gud-filter'.") |
| 698 | 698 | ||
| 699 | ;; The old gdb command. The new one is in gdb-ui.el. | 699 | ;; The old gdb command (text command mode). The new one is in gdb-ui.el. |
| 700 | ;;;###autoload | 700 | ;;;###autoload |
| 701 | (defun gud-gdb (command-line) | 701 | (defun gud-gdb (command-line) |
| 702 | "Run gdb on program FILE in buffer *gud-FILE*. | 702 | "Run gdb on program FILE in buffer *gud-FILE*. |
| 703 | The directory containing FILE becomes the initial working | 703 | The directory containing FILE becomes the initial working |
| 704 | directory and source-file directory for your debugger. By | 704 | directory and source-file directory for your debugger." |
| 705 | default this command starts GDB using a graphical interface. See | ||
| 706 | `gdba' for more information. | ||
| 707 | |||
| 708 | To run GDB in text command mode, replace the GDB \"--annotate=3\" | ||
| 709 | option with \"--fullname\" either in the minibuffer for the | ||
| 710 | current Emacs session, or the custom variable | ||
| 711 | `gud-gdb-command-name' for all future sessions. You need to use | ||
| 712 | text command mode to debug multiple programs within one Emacs | ||
| 713 | session." | ||
| 714 | (interactive (list (gud-query-cmdline 'gud-gdb))) | 705 | (interactive (list (gud-query-cmdline 'gud-gdb))) |
| 715 | 706 | ||
| 716 | (require 'gdb-ui) | ||
| 717 | |||
| 718 | (when (and gud-comint-buffer | 707 | (when (and gud-comint-buffer |
| 719 | (buffer-name gud-comint-buffer) | 708 | (buffer-name gud-comint-buffer) |
| 720 | (get-buffer-process gud-comint-buffer) | 709 | (get-buffer-process gud-comint-buffer) |
| @@ -723,8 +712,8 @@ session." | |||
| 723 | (error | 712 | (error |
| 724 | "Multiple debugging requires restarting in text command mode")) | 713 | "Multiple debugging requires restarting in text command mode")) |
| 725 | 714 | ||
| 726 | (gud-common-init command-line nil 'gud-gdba-marker-filter) | 715 | (gud-common-init command-line nil 'gud-gdb-marker-filter) |
| 727 | (set (make-local-variable 'gud-minor-mode) 'gdba) | 716 | (set (make-local-variable 'gud-minor-mode) 'gdb) |
| 728 | 717 | ||
| 729 | (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") | 718 | (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") |
| 730 | (gud-def gud-tbreak "tbreak %f:%l" "\C-t" | 719 | (gud-def gud-tbreak "tbreak %f:%l" "\C-t" |