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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/02/11 06:36:34

Modified files:
        lisp           : ChangeLog vc-dir.el vc-git.el 

Log message:
        * vc-dir.el (vc-dir-filename-mouse-map): Rename from vc-dir-mouse-map.
        (vc-default-dir-printer): Add a comment about updating this function.
        
        * vc-git.el (vc-git-dir-printer): Use vc-dir-filename-mouse-map
        for the file name.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15298&r2=1.15299
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-dir.el?cvsroot=emacs&r1=1.35&r2=1.36
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-git.el?cvsroot=emacs&r1=1.79&r2=1.80

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15298
retrieving revision 1.15299
diff -u -b -r1.15298 -r1.15299
--- ChangeLog   11 Feb 2009 04:02:16 -0000      1.15298
+++ ChangeLog   11 Feb 2009 06:36:32 -0000      1.15299
@@ -1,3 +1,11 @@
+2009-02-10  Dan Nicolaescu  <address@hidden>
+
+       * vc-dir.el (vc-dir-filename-mouse-map): Rename from vc-dir-mouse-map.
+       (vc-default-dir-printer): Add a comment about updating this function.
+
+       * vc-git.el (vc-git-dir-printer): Use vc-dir-filename-mouse-map
+       for the file name.
+
 2009-02-11  Glenn Morris  <address@hidden>
 
        * calendar/calendar.el (calendar-window-list): Ignore invisible windows.

Index: vc-dir.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-dir.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- vc-dir.el   10 Feb 2009 05:51:47 -0000      1.35
+++ vc-dir.el   11 Feb 2009 06:36:34 -0000      1.36
@@ -1146,7 +1146,7 @@
    (propertize "Please add backend specific headers here.  It's easy!"
               'face 'font-lock-warning-face)))
 
-(defvar vc-dir-mouse-map
+(defvar vc-dir-filename-mouse-map
    (let ((map (make-sparse-keymap)))
      (define-key map [mouse-2] 'vc-dir-find-file-other-window)
     map)
@@ -1155,6 +1155,9 @@
 (defun vc-default-dir-printer (backend fileentry)
   "Pretty print FILEENTRY."
   ;; If you change the layout here, change vc-dir-move-to-goal-column.
+  ;; VC backends can implement backend specific versions of this
+  ;; function.  Changes here might need to be reflected in the
+  ;; vc-BACKEND-dir-printer functions.
   (let* ((isdir (vc-dir-fileinfo->directory fileentry))
        (state (if isdir "" (vc-dir-fileinfo->state fileentry)))
        (filename (vc-dir-fileinfo->name fileentry)))
@@ -1179,7 +1182,7 @@
          "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu"
        "File\nmouse-3: Pop-up menu")
       'mouse-face 'highlight
-      'keymap vc-dir-mouse-map))))
+      'keymap vc-dir-filename-mouse-map))))
 
 (defun vc-default-extra-status-menu (backend)
   nil)

Index: vc-git.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- vc-git.el   5 Jan 2009 03:19:52 -0000       1.79
+++ vc-git.el   11 Feb 2009 06:36:34 -0000      1.80
@@ -302,6 +302,7 @@
                 (if isdir
                     "Directory\nVC operations can be applied to it\nmouse-3: 
Pop-up menu"
                   "File\nmouse-3: Pop-up menu")
+                'keymap vc-dir-filename-mouse-map
                 'mouse-face 'highlight)
      (vc-git-file-type-as-string old-perm new-perm)
      (vc-git-rename-as-string state extra))))