mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(speedbar-refresh): Simply bind deactivate-mark.

Browse source
This commit is contained in:
Richard M. Stallman 2002-09-26 21:57:00 +00:00
parent 5c584c3511
commit fe80eaef30
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/speedbar.el
View file

@ -1676,7 +1676,7 @@ Assumes that the current buffer is the speedbar buffer."
"Refresh the current speedbar display, disposing of any cached data."
(interactive)
(let ((dl speedbar-shown-directories)
(dm (and (boundp 'deactivate-mark) deactivate-mark)))
deactivate-mark)
(while dl
(adelete 'speedbar-directory-contents-alist (car dl))
(setq dl (cdr dl)))
@ -1687,8 +1687,7 @@ Assumes that the current buffer is the speedbar buffer."
;; Reset the timer in case it got really hosed for some reason...
(speedbar-set-timer speedbar-update-speed)
(if (<= 1 speedbar-verbosity-level)
(speedbar-message "Refreshing speedbar...done"))
(if (boundp 'deactivate-mark) (setq deactivate-mark dm))))
(speedbar-message "Refreshing speedbar...done"))))
(defun speedbar-item-load ()
"Load the item under the cursor or mouse if it is a Lisp file."