changeset 91868:46a8e4f391fb

(gud-gdb): Don't reset gdb-ready. (gdb-ready): Move declaration to gdb-ui.el.

--- a/lisp/progmodes/gud.el	Sat Feb 16 06:45:07 2008 +0000
+++ b/lisp/progmodes/gud.el	Sat Feb 16 07:03:15 2008 +0000
@@ -63,7 +63,7 @@
 
 (defgroup gud nil
   "Grand Unified Debugger mode for gdb and other debuggers under Emacs.
-Supported debuggers include gdb, sdb, dbx, xdb, perldb, pdb (Python), jdb."
+Supported debuggers include gdb, sdb, dbx, xdb, perldb, pdb (Python) and jdb."
   :group 'processes
   :group 'tools)
 
@@ -109,8 +109,6 @@
   "Non-nil if debugged program is running.
 Used to grey out relevant toolbar icons.")
 
-(defvar gdb-ready nil)
-
 (defvar gud-target-name "--unknown--"
   "The apparent name of the program being debugged in a gud buffer.")
 
@@ -771,7 +769,6 @@
   (setq paragraph-start comint-prompt-regexp)
   (setq gdb-first-prompt t)
   (setq gud-running nil)
-  (setq gdb-ready nil)
   (setq gud-filter-pending-text nil)
   (run-hooks 'gud-gdb-mode-hook))
 
@@ -2307,7 +2304,6 @@
   (gud-def gud-run    "run"           nil    "Run the program.") ;if VM start using jdb
   (gud-def gud-print  "print %e"  "\C-p" "Evaluate Java expression at point.")
 
-
   (setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ")
   (setq paragraph-start comint-prompt-regexp)
   (run-hooks 'jdb-mode-hook)
@@ -2867,7 +2863,7 @@
 	    (set-marker-insertion-type gud-delete-prompt-marker t))
 	  (unless (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
 		      'jdb)
-	      (insert (concat  expr " = "))))))
+	    (insert (concat  expr " = "))))))
     expr))
 
 ;; The next eight functions are hacked from gdbsrc.el by