From 2863ab168217df1d428ab95d5402420ac220e736 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 13 Sep 2007 06:26:20 +0000 Subject: [PATCH] (gdb-ready): New variable. (gdb): Set it to nil. Set gud-running to nil here... (gud-common-init): ...instead of here. --- lisp/progmodes/gud.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index d5632ffe09f..abe61929abe 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -104,6 +104,8 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist." "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 @@ session." (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 @@ comint mode, which see." (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) -- 2.39.2