diff options
| author | Nick Roberts | 2008-02-16 07:03:15 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-02-16 07:03:15 +0000 |
| commit | 517045bc37831d78eb0b24a0ee20e7a011641d95 (patch) | |
| tree | 4f4627c00f3afcd0ad2d9b43c425d4d3e7e7269b | |
| parent | ef6cb9e834cdc7ebd987bfa407aac556eda1b11e (diff) | |
| download | emacs-517045bc37831d78eb0b24a0ee20e7a011641d95.tar.gz emacs-517045bc37831d78eb0b24a0ee20e7a011641d95.zip | |
(gud-gdb): Don't reset gdb-ready.
(gdb-ready): Move declaration to gdb-ui.el.
| -rw-r--r-- | lisp/progmodes/gud.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 4e9d73c0a00..f8daa99675e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -63,7 +63,7 @@ | |||
| 63 | 63 | ||
| 64 | (defgroup gud nil | 64 | (defgroup gud nil |
| 65 | "Grand Unified Debugger mode for gdb and other debuggers under Emacs. | 65 | "Grand Unified Debugger mode for gdb and other debuggers under Emacs. |
| 66 | Supported debuggers include gdb, sdb, dbx, xdb, perldb, pdb (Python), jdb." | 66 | Supported debuggers include gdb, sdb, dbx, xdb, perldb, pdb (Python) and jdb." |
| 67 | :group 'processes | 67 | :group 'processes |
| 68 | :group 'tools) | 68 | :group 'tools) |
| 69 | 69 | ||
| @@ -109,8 +109,6 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist." | |||
| 109 | "Non-nil if debugged program is running. | 109 | "Non-nil if debugged program is running. |
| 110 | Used to grey out relevant toolbar icons.") | 110 | Used to grey out relevant toolbar icons.") |
| 111 | 111 | ||
| 112 | (defvar gdb-ready nil) | ||
| 113 | |||
| 114 | (defvar gud-target-name "--unknown--" | 112 | (defvar gud-target-name "--unknown--" |
| 115 | "The apparent name of the program being debugged in a gud buffer.") | 113 | "The apparent name of the program being debugged in a gud buffer.") |
| 116 | 114 | ||
| @@ -771,7 +769,6 @@ directory and source-file directory for your debugger." | |||
| 771 | (setq paragraph-start comint-prompt-regexp) | 769 | (setq paragraph-start comint-prompt-regexp) |
| 772 | (setq gdb-first-prompt t) | 770 | (setq gdb-first-prompt t) |
| 773 | (setq gud-running nil) | 771 | (setq gud-running nil) |
| 774 | (setq gdb-ready nil) | ||
| 775 | (setq gud-filter-pending-text nil) | 772 | (setq gud-filter-pending-text nil) |
| 776 | (run-hooks 'gud-gdb-mode-hook)) | 773 | (run-hooks 'gud-gdb-mode-hook)) |
| 777 | 774 | ||
| @@ -2307,7 +2304,6 @@ gud, see `gud-mode'." | |||
| 2307 | (gud-def gud-run "run" nil "Run the program.") ;if VM start using jdb | 2304 | (gud-def gud-run "run" nil "Run the program.") ;if VM start using jdb |
| 2308 | (gud-def gud-print "print %e" "\C-p" "Evaluate Java expression at point.") | 2305 | (gud-def gud-print "print %e" "\C-p" "Evaluate Java expression at point.") |
| 2309 | 2306 | ||
| 2310 | |||
| 2311 | (setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ") | 2307 | (setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ") |
| 2312 | (setq paragraph-start comint-prompt-regexp) | 2308 | (setq paragraph-start comint-prompt-regexp) |
| 2313 | (run-hooks 'jdb-mode-hook) | 2309 | (run-hooks 'jdb-mode-hook) |
| @@ -2867,7 +2863,7 @@ Obeying it means displaying in another window the specified file and line." | |||
| 2867 | (set-marker-insertion-type gud-delete-prompt-marker t)) | 2863 | (set-marker-insertion-type gud-delete-prompt-marker t)) |
| 2868 | (unless (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) | 2864 | (unless (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) |
| 2869 | 'jdb) | 2865 | 'jdb) |
| 2870 | (insert (concat expr " = ")))))) | 2866 | (insert (concat expr " = ")))))) |
| 2871 | expr)) | 2867 | expr)) |
| 2872 | 2868 | ||
| 2873 | ;; The next eight functions are hacked from gdbsrc.el by | 2869 | ;; The next eight functions are hacked from gdbsrc.el by |