Updated refresh messages to clear themselves.

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index d1307ec4c0c6268f78cc4e410fb11d5c11bb2809..d2d2865bde9773b8c514dcb3b729920c0507aef1 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -5,7 +5,7 @@
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.7.1
 ;; Keywords: file, tags, tools
-;; X-RCS: $Id: speedbar.el,v 1.4 1998/07/10 16:48:06 kwzh Exp zappo $
+;; X-RCS: $Id: speedbar.el,v 1.5 1998/08/03 17:47:39 zappo Exp zappo $
 
 ;; This file is part of GNU Emacs.
 
@@ -1526,17 +1526,14 @@ Assumes that the current buffer is the speedbar buffer"
     (while dl
       (adelete 'speedbar-directory-contents-alist (car dl))
       (setq dl (cdr dl)))
-    (if (<= 1 speedbar-verbosity-level) (message "Refreshing speedbar..."))
+    (if (<= 1 speedbar-verbosity-level)
+       (message "Refreshing speedbar..."))
     (speedbar-update-contents)
     (speedbar-stealthy-updates)
     ;; Reset the timer in case it got really hosed for some reason...
     (speedbar-set-timer speedbar-update-speed)
     (if (<= 1 speedbar-verbosity-level)
-       (progn
-         (message "Refreshing speedbar...done")
-         (sit-for 0)
-         (message nil)))
-    ;; Protect the highlighted region.
+       (message "Refreshing speedbar...done"))
     (if (boundp 'deactivate-mark) (setq deactivate-mark dm))))
 
 (defun speedbar-item-load ()
@@ -2551,8 +2548,11 @@ This should only be used by modes classified as special."
                                 major-mode))
                    (speedbar-update-special-contents)
                    (if (<= 2 speedbar-verbosity-level)
-                       (message "Updating speedbar to special mode: %s...done"
-                                major-mode)))
+                       (progn
+                         (message "Updating speedbar to special mode: %s...done"
+                                  major-mode)
+                         (sit-for 1)
+                         (message nil))))
                ;; Update all the contents if directories change!
                (if (or (member (expand-file-name default-directory)
                                speedbar-shown-directories)
@@ -2569,8 +2569,11 @@ This should only be used by modes classified as special."
                               default-directory))
                  (speedbar-update-directory-contents)
                  (if (<= 1 speedbar-verbosity-level)
-                     (message "Updating speedbar to: %s...done"
-                              default-directory))))
+                     (progn
+                       (message "Updating speedbar to: %s...done"
+                                default-directory)
+                       (sit-for 1)
+                       (message nil)))))
              (select-frame af))
            ;; Now run stealthy updates of time-consuming items
            (speedbar-stealthy-updates)))