# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1234334192 0
# Node ID dea4466580a6b12e2d73497c81b186dcb6208a95
# Parent  d55a24c5ff3fa0e3010b633828b576d7937cd4f5
* 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.

diff -r d55a24c5ff3f -r dea4466580a6 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 11 04:15:18 2009 +0000
+++ b/lisp/ChangeLog	Wed Feb 11 06:36:32 2009 +0000
@@ -1,3 +1,11 @@
+2009-02-10  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* 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  <rgm@gnu.org>
 
 	* calendar/calendar.el (calendar-window-list): Ignore invisible windows.
diff -r d55a24c5ff3f -r dea4466580a6 lisp/vc-dir.el
--- a/lisp/vc-dir.el	Wed Feb 11 04:15:18 2009 +0000
+++ b/lisp/vc-dir.el	Wed Feb 11 06:36:32 2009 +0000
@@ -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)
diff -r d55a24c5ff3f -r dea4466580a6 lisp/vc-git.el
--- a/lisp/vc-git.el	Wed Feb 11 04:15:18 2009 +0000
+++ b/lisp/vc-git.el	Wed Feb 11 06:36:32 2009 +0000
@@ -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))))