# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1129583378 0
# Node ID 9698655085d399084e5e72895c1ac1f56772844d
# Parent  5992ae60fb6b690fad1d8e04d1dc7c1c4e7e247f
(gdb-var-create-handler): Make watch
expressions display in speedbar for all buffers when debugging.
(gdb-speedbar-expand-node): Ensure node contraction is always
updated.

diff -r 5992ae60fb6b -r 9698655085d3 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Mon Oct 17 21:08:15 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Mon Oct 17 21:09:38 2005 +0000
@@ -437,6 +437,9 @@
 			 nil nil)))
 	  (push var gdb-var-list)
 	  (speedbar 1)
+	  (unless (string-equal
+		   speedbar-initial-expansion-list-name "GUD")
+	    (speedbar-change-initial-expansion-list "GUD"))
 	  (if (equal (nth 2 var) "0")
 	      (gdb-enqueue-input
 	       (list
@@ -600,7 +603,9 @@
 	 (dolist (var gdb-var-list)
 	   (if (string-match (concat token "\\.") (nth 1 var))
 	       (setq gdb-var-list (delq var gdb-var-list))))
-	 (setq gdb-var-changed t))))
+	 (setq gdb-var-changed t)
+	 (with-current-buffer gud-comint-buffer
+	   (speedbar-timer-fn)))))
 
 (defun gdb-get-target-string ()
   (with-current-buffer gud-comint-buffer