From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Sep 2002 21:57:00 +0000 (+0000)
Subject: (speedbar-refresh): Simply bind deactivate-mark.
X-Git-Tag: ttn-vms-21-2-B4~13050
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe80eaef30bc49aa5ec67168351d9a31a9fb5fe4;p=emacs.git

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

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."