# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1149768927 0
# Node ID 99ed754e8f500f5e4ac8ab3cdda5d4ea55ba5845
# Parent  3e72da0c198d8aac6505388b3c79d69735f52320
(gdb-set-gud-minor-mode-existing-buffers-1)
(gdb-prompt, gdb-set-gud-minor-mode-existing-buffers): Show status
in mode line at startup.

diff -r 3e72da0c198d -r 99ed754e8f50 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Thu Jun 08 12:14:48 2006 +0000
+++ b/lisp/progmodes/gdb-ui.el	Thu Jun 08 12:15:27 2006 +0000
@@ -426,7 +426,8 @@
 	  (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 @@
   "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 @@
 	(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)