# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1229588857 0
# Node ID 15455ea10b4ae866970fcc16ade238835ec23a8a
# Parent  266595dfa1bbc7af65cfa92a8cc97b46994ea2c3
(vc-dir-at-event): Rename from vc-at-event.  Change
all callers.

diff -r 266595dfa1bb -r 15455ea10b4a lisp/ChangeLog
--- 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.
diff -r 266595dfa1bb -r 15455ea10b4a lisp/vc-dir.el
--- 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."