Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Sam Steingold 2008-12-18 03:29:02 +00:00
parent 97b3a00b20
commit 5da5a66f02
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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

11
lisp/vc-dir.el
View file

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