Mercurial > emacs
changeset 100483:15455ea10b4a
(vc-dir-at-event): Rename from vc-at-event. Change
all callers.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 18 Dec 2008 08:27:37 +0000 |
| parents | 266595dfa1bb |
| children | 023acf8058b5 |
| files | lisp/ChangeLog lisp/vc-dir.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 18 08:24:37 2008 +0000 +++ b/lisp/ChangeLog Thu Dec 18 08:27:37 2008 +0000 @@ -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.
--- a/lisp/vc-dir.el Thu Dec 18 08:24:37 2008 +0000 +++ b/lisp/vc-dir.el Thu Dec 18 08:27:37 2008 +0000 @@ -275,11 +275,11 @@ 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 @@ (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 @@ (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."