Mercurial > emacs
changeset 101940:dea4466580a6
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Feb 2009 06:36:32 +0000 |
| parents | d55a24c5ff3f |
| children | 7ea1de620645 |
| files | lisp/ChangeLog lisp/vc-dir.el lisp/vc-git.el |
| diffstat | 3 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)
--- 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))))