diff options
| author | Eric M. Ludlam <zappo@gnu.org> | 1998-08-04 13:58:39 +0000 |
|---|---|---|
| committer | Eric M. Ludlam <zappo@gnu.org> | 1998-08-04 13:58:39 +0000 |
| commit | 61d7e1dc5bf3b2686156f8b35609a8105f115f8f (patch) | |
| tree | 9a2bc864a92fd6a96170952d026e5296a134b052 /lisp/speedbar.el | |
| parent | b73820b00cead68f313028a4d1f957de245e1cc9 (diff) | |
| download | emacs-61d7e1dc5bf3b2686156f8b35609a8105f115f8f.tar.gz | |
Updated refresh messages to clear themselves.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index d1307ec4c0c..d2d2865bde9 100644 --- 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))) |