diff options
author | Sam Steingold <sds@gnu.org> | 2008-12-18 03:29:02 +0000 |
---|---|---|
committer | Sam Steingold <sds@gnu.org> | 2008-12-18 03:29:02 +0000 |
commit | 5da5a66f02081ebcfda7e77a9ee75df2c21904b6 (patch) | |
tree | 01aed40f4aacb49ffb4a39a8acdf4fe168fbb0a9 /lisp/vc-dir.el | |
parent | 97b3a00b2000ec04ee2743fe3fa53a8ae7a9c144 (diff) |
(vc-at-event): Handle (tool-bar) events. Fix bug#1585.
Diffstat (limited to 'lisp/vc-dir.el')
-rw-r--r-- | lisp/vc-dir.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 63f239ead3..aaa5b1b58c 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -280,11 +280,12 @@ See `run-hooks'." If `body' uses `event', it should be a variable, otherwise it will be evaluated twice." (let ((posn (make-symbol "vc-at-event-posn"))) - `(let ((,posn (event-start ,event))) - (save-excursion - (set-buffer (window-buffer (posn-window ,posn))) - (goto-char (posn-point ,posn)) - ,@body)))) + `(save-excursion + (unless (equal ,event '(tool-bar)) + (let ((,posn (event-start ,event))) + (set-buffer (window-buffer (posn-window ,posn))) + (goto-char (posn-point ,posn)))) + ,@body))) (defun vc-dir-menu (e) "Popup the VC dir menu." |