Commit 7995501c authored by Dan Nicolaescu's avatar Dan Nicolaescu

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

all callers.
parent c569485c
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> 2008-12-18 Sam Steingold <sds@gnu.org>
* vc-dir.el (vc-at-event): Handle (tool-bar) events. Fix bug#1585. * vc-dir.el (vc-at-event): Handle (tool-bar) events. Fix bug#1585.
......
...@@ -275,11 +275,11 @@ See `run-hooks'." ...@@ -275,11 +275,11 @@ See `run-hooks'."
map) map)
"Keymap for directory buffer.") "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'. "Evaluate `body' with point located at event-start of `event'.
If `body' uses `event', it should be a variable, If `body' uses `event', it should be a variable,
otherwise it will be evaluated twice." 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 `(save-excursion
(unless (equal ,event '(tool-bar)) (unless (equal ,event '(tool-bar))
(let ((,posn (event-start ,event))) (let ((,posn (event-start ,event)))
...@@ -290,7 +290,7 @@ If `body' uses `event', it should be a variable, ...@@ -290,7 +290,7 @@ If `body' uses `event', it should be a variable,
(defun vc-dir-menu (e) (defun vc-dir-menu (e)
"Popup the VC dir menu." "Popup the VC dir menu."
(interactive "e") (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 (defvar vc-dir-tool-bar-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
...@@ -676,7 +676,7 @@ that share the same state." ...@@ -676,7 +676,7 @@ that share the same state."
(defun vc-dir-toggle-mark (e) (defun vc-dir-toggle-mark (e)
(interactive "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 () (defun vc-dir-delete-file ()
"Delete the marked files, or the current file if no marks." "Delete the marked files, or the current file if no marks."
......
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