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