# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1164582516 0
# Node ID b90d5a3a62fba09a61e4ea34d4e3440eed5a5476
# Parent  b5b237361cae577839a372ea3dcab3b73c5fd677
(speedbar-timer-fn): Revert to old behaviour when not
in GUD mode.

diff -r b5b237361cae -r b90d5a3a62fb lisp/speedbar.el
--- a/lisp/speedbar.el	Sun Nov 26 23:08:04 2006 +0000
+++ b/lisp/speedbar.el	Sun Nov 26 23:08:36 2006 +0000
@@ -2681,7 +2681,15 @@
 			     "Updating speedbar to special mode: %s...done"
 			     major-mode)
 			    (speedbar-message nil))))
-		    (speedbar-update-localized-contents))
+
+ 		  ;; Update all the contents if directories change!
+ 		  (unless (and (or (member major-mode speedbar-ignored-modes)
+				   (eq af (speedbar-current-frame))
+				   (not (buffer-file-name)))
+			       ;; Always update for GUD.
+			       (not (string-equal "GUD"
+				     speedbar-initial-expansion-list-name)))
+		    (speedbar-update-localized-contents)))
 		(select-frame af))
 	    ;; Now run stealthy updates of time-consuming items
 	    (speedbar-stealthy-updates)))))