Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
61d7e1dc
Commit
61d7e1dc
authored
Aug 04, 1998
by
Eric M. Ludlam
Browse files
Updated refresh messages to clear themselves.
parent
b73820b0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
11 deletions
+14
-11
lisp/speedbar.el
lisp/speedbar.el
+14
-11
No files found.
lisp/speedbar.el
View file @
61d7e1dc
...
...
@@ -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/0
7/10
1
6
:4
8:06 kwzh
Exp zappo $
;; X-RCS: $Id: speedbar.el,v 1.
5
1998/0
8/03
1
7
:4
7: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)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment