From 41c8cdc3b07972b0c23a37505ff1f2728a247013 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 8 Jun 2006 12:15:27 +0000 Subject: [PATCH] (gdb-set-gud-minor-mode-existing-buffers-1) (gdb-prompt, gdb-set-gud-minor-mode-existing-buffers): Show status in mode line at startup. --- lisp/progmodes/gdb-ui.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 0f92523e306..bb821907aa8 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -426,7 +426,8 @@ With arg, use separate IO iff arg is positive." (when gud-tooltip-mode (make-local-variable 'gdb-define-alist) (gdb-create-define-alist) - (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))))) + (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))) + (gdb-force-mode-line-update "ready")) (defun gdb-find-watch-expression () (let* ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list)) @@ -1238,6 +1239,7 @@ happens to be in effect." "An annotation handler for `prompt'. This sends the next command (if any) to gdb." (when gdb-first-prompt + (gdb-force-mode-line-update "initializing...") (gdb-init-1) (setq gdb-first-prompt nil)) (let ((sink gdb-output-sink)) @@ -3239,7 +3241,8 @@ is set in them." (when gud-tooltip-mode (make-local-variable 'gdb-define-alist) (gdb-create-define-alist) - (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))) + (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))) + (gdb-force-mode-line-update "ready")) ; Uses "-var-list-children --all-values". Needs GDB 6.1 onwards. (defun gdb-var-list-children-1 (varnum) -- 2.39.5