mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(vc-dir-at-event): Rename from vc-at-event. Change

Browse Source 
all callers.
This commit is contained in:
Dan Nicolaescu 2008-12-18 08:27:37 +00:00
parent c569485caf
commit 7995501cf2
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-12-18 Dan Nicolaescu <dann@ics.uci.edu>
* vc-dir.el (vc-dir-at-event): Rename from vc-at-event. Change
all callers.
2008-12-18 Sam Steingold <sds@gnu.org>
* vc-dir.el (vc-at-event): Handle (tool-bar) events. Fix bug#1585.

8
lisp/vc-dir.el
View File

@ -275,11 +275,11 @@ See `run-hooks'."
map)
"Keymap for directory buffer.")
(defmacro vc-at-event (event &rest body)
(defmacro vc-dir-at-event (event &rest body)
"Evaluate `body' with point located at event-start of `event'.
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 (make-symbol "vc-dir-at-event-posn")))
`(save-excursion
(unless (equal ,event '(tool-bar))
(let ((,posn (event-start ,event)))
@ -290,7 +290,7 @@ If `body' uses `event', it should be a variable,
(defun vc-dir-menu (e)
"Popup the VC dir menu."
(interactive "e")
(vc-at-event e (popup-menu vc-dir-menu-map e)))
(vc-dir-at-event e (popup-menu vc-dir-menu-map e)))
(defvar vc-dir-tool-bar-map
(let ((map (make-sparse-keymap)))
@ -676,7 +676,7 @@ that share the same state."
(defun vc-dir-toggle-mark (e)
(interactive "e")
(vc-at-event e (vc-dir-mark-unmark 'vc-dir-toggle-mark-file)))
(vc-dir-at-event e (vc-dir-mark-unmark 'vc-dir-toggle-mark-file)))
(defun vc-dir-delete-file ()
"Delete the marked files, or the current file if no marks."