[Emacs-diffs] emacs/lisp ChangeLog vc-dir.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/12/18 08:27:40

Modified files:
        lisp           : ChangeLog vc-dir.el 

Log message:
        (vc-dir-at-event): Rename from vc-at-event.  Change
        all callers.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14957&r2=1.14958
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-dir.el?cvsroot=emacs&r1=1.28&r2=1.29

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14957
retrieving revision 1.14958
diff -u -b -r1.14957 -r1.14958
--- ChangeLog   18 Dec 2008 06:58:57 -0000      1.14957
+++ ChangeLog   18 Dec 2008 08:27:37 -0000      1.14958
@@ -1,3 +1,8 @@
+2008-12-18  Dan Nicolaescu  <address@hidden>
+
+       * vc-dir.el (vc-dir-at-event): Rename from vc-at-event.  Change
+       all callers.
+
 2008-12-18  Sam Steingold  <address@hidden>
 
        * vc-dir.el (vc-at-event): Handle (tool-bar) events. Fix bug#1585.

Index: vc-dir.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-dir.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- vc-dir.el   18 Dec 2008 03:29:06 -0000      1.28
+++ vc-dir.el   18 Dec 2008 08:27:39 -0000      1.29
@@ -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."