# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1141253059 0
# Node ID 67e921172c0d84e87f6594d8f38e2568561b6154
# Parent  4ec5a067baf35e269d7f346000ad3e49c1e2c9d3
(gdb-speedbar-refresh): Quieten speedbar-refresh.

diff -r 4ec5a067baf3 -r 67e921172c0d lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed Mar 01 22:43:29 2006 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed Mar 01 22:44:19 2006 +0000
@@ -71,17 +71,17 @@
 ;;; Known Bugs:
 
 ;; 1) Strings that are watched don't update in the speedbar when their
-;; contents change.
+;; contents change unless the first character changes.
 ;; 2) Cannot handle multiple debug sessions.
-
-;;; Problems with watch expressions:
+;; 3) Initially, the assembler buffer does not display the cursor at the
+;; current line if the line is not visible in the window (but when testing
+;; gdb-assembler-custom with a lisp debugger it does!).
+
+;;; Problems with watch expressions, GDB/MI:
 
 ;; 1) They go out of scope when the inferior is re-run.
-;; 2) -var-update reports that an out of scope variable has changed:
-;;    changelist=[{name="var1",in_scope="false"}], but the value can't be accessed.
-;;    (-var-list-children, in contrast allows you to create variable objects of
-;;      the children when they are out of scope and get their values).
-;; 3) VARNUM increments even when vaiable object is not created (maybe trivial).
+;; 2) -stack-list-locals has a type field but also prints type in values field.
+;; 3) VARNUM increments even when vairable object is not created (maybe trivial).
 
 ;;; TODO:
 
@@ -758,7 +758,9 @@
   (setq gdb-pending-triggers
 	(delq 'gdb-speedbar-refresh gdb-pending-triggers))
   (with-current-buffer gud-comint-buffer
-    (speedbar-refresh)))
+    (let ((speedbar-verbosity-level 0))
+      (save-excursion
+	(speedbar-refresh)))))
 
 (defun gdb-var-delete ()
   "Delete watch expression at point from the speedbar."
@@ -1251,7 +1253,8 @@
   "An annotation handler for `post-prompt'.
 This begins the collection of output from the current command if that
 happens to be appropriate."
-  ;; Don't add to queue if there outstanding items or GDB is not known yet.
+  ;; Don't add to queue if there outstanding items or gdb-version is not known
+  ;; yet.
   (unless (or gdb-pending-triggers gdb-first-post-prompt)
     (gdb-get-selected-frame)
     (gdb-invalidate-frames)