From fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Sep 2002 21:57:00 +0000 Subject: [PATCH] (speedbar-refresh): Simply bind deactivate-mark. --- lisp/speedbar.el | 5 ++--- 1 file 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." -- 2.39.2