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
(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