Mercurial > emacs

changeset 78768:d8140314e60f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-ready): New variable. (gdb): Set it to nil. Set gud-running to nil here... (gud-common-init): ...instead of here.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 13 Sep 2007 06:26:20 +0000
parents fd5ce80ad827
children ca61e14e02a6
files lisp/progmodes/gud.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Thu Sep 13 06:14:15 2007 +0000
+++ b/lisp/progmodes/gud.el	Thu Sep 13 06:26:20 2007 +0000
@@ -104,6 +104,8 @@
   "Non-nil if debugged program is running.
 Used to grey out relevant toolbar icons.")
 
+(defvar gdb-ready nil)
+
 ;; Use existing Info buffer, if possible.
 (defun gud-goto-info ()
   "Go to relevant Emacs info node."
@@ -764,6 +766,8 @@
   (setq comint-prompt-regexp "^(.*gdb[+]?) *")
   (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 'gdb-mode-hook))
 
@@ -2519,7 +2523,6 @@
 	 (and file-word (file-name-nondirectory file))))
   (set (make-local-variable 'gud-marker-filter) marker-filter)
   (if find-file (set (make-local-variable 'gud-find-file) find-file))
-  (setq gud-running nil)
   (setq gud-last-last-frame nil)
 
   (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter)