diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-26 21:57:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-26 21:57:00 +0000 |
| commit | fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4 (patch) | |
| tree | 6a470c4c88f4765cce3a4131c0215b91ee627bd8 /lisp | |
| parent | 5c584c3511f02f1b1491ade21e4d0212746b2e81 (diff) | |
| download | emacs-fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4.tar.gz emacs-fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4.tar.bz2 emacs-fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4.zip | |
(speedbar-refresh): Simply bind deactivate-mark.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/speedbar.el | 5 |
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." "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." |