[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-dir.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-dir.el |
Date: |
Thu, 18 Dec 2008 08:27:40 +0000 |
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."