diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-12-18 08:27:37 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-12-18 08:27:37 +0000 |
| commit | 7995501cf2a3a686b0608983b185a509135f89c7 (patch) | |
| tree | cb93ea2733962fe97ff425e3a9ea1c0c848c2caf /lisp/vc-dir.el | |
| parent | c569485caff4b15ebf9a9a839ec23c64b2ec7b4b (diff) | |
(vc-dir-at-event): Rename from vc-at-event. Change
all callers.
Diffstat (limited to 'lisp/vc-dir.el')
| -rw-r--r-- | lisp/vc-dir.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index aaa5b1b58c..53e7d854da 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -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." |