aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/speedbar.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 2c475320377..e9d601aaaad 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1676,7 +1676,7 @@ Assumes that the current buffer is the speedbar buffer."
1676 "Refresh the current speedbar display, disposing of any cached data." 1676 "Refresh the current speedbar display, disposing of any cached data."
1677 (interactive) 1677 (interactive)
1678 (let ((dl speedbar-shown-directories) 1678 (let ((dl speedbar-shown-directories)
1679 (dm (and (boundp 'deactivate-mark) deactivate-mark))) 1679 deactivate-mark)
1680 (while dl 1680 (while dl
1681 (adelete 'speedbar-directory-contents-alist (car dl)) 1681 (adelete 'speedbar-directory-contents-alist (car dl))
1682 (setq dl (cdr dl))) 1682 (setq dl (cdr dl)))
@@ -1687,8 +1687,7 @@ Assumes that the current buffer is the speedbar buffer."
1687 ;; Reset the timer in case it got really hosed for some reason... 1687 ;; Reset the timer in case it got really hosed for some reason...
1688 (speedbar-set-timer speedbar-update-speed) 1688 (speedbar-set-timer speedbar-update-speed)
1689 (if (<= 1 speedbar-verbosity-level) 1689 (if (<= 1 speedbar-verbosity-level)
1690 (speedbar-message "Refreshing speedbar...done")) 1690 (speedbar-message "Refreshing speedbar...done"))))
1691 (if (boundp 'deactivate-mark) (setq deactivate-mark dm))))
1692 1691
1693(defun speedbar-item-load () 1692(defun speedbar-item-load ()
1694 "Load the item under the cursor or mouse if it is a Lisp file." 1693 "Load the item under the cursor or mouse if it is a Lisp file."