aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2008-02-16 07:03:15 +0000
committerNick Roberts2008-02-16 07:03:15 +0000
commit517045bc37831d78eb0b24a0ee20e7a011641d95 (patch)
tree4f4627c00f3afcd0ad2d9b43c425d4d3e7e7269b
parentef6cb9e834cdc7ebd987bfa407aac556eda1b11e (diff)
downloademacs-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.el8
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.
66Supported debuggers include gdb, sdb, dbx, xdb, perldb, pdb (Python), jdb." 66Supported 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.
110Used to grey out relevant toolbar icons.") 110Used 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