Commit 5da5a66f authored by Sam Steingold's avatar Sam Steingold

(vc-at-event): Handle (tool-bar) events. Fix bug#1585.

parent 97b3a00b
2008-12-18 Sam Steingold <sds@gnu.org>
* vc-dir.el (vc-at-event): Handle (tool-bar) events. Fix bug#1585.
2008-12-18 Juri Linkov <juri@jurta.org>
* isearch.el (minibuffer-local-isearch-map): Unbind "C-w" from
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment