[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/07/11 18:37:39

Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.186
retrieving revision 1.187
diff -u -b -r1.186 -r1.187
--- vc-hooks.el 5 Jul 2007 19:48:06 -0000       1.186
+++ vc-hooks.el 11 Jul 2007 18:37:38 -0000      1.187
@@ -742,17 +742,27 @@
 This function assumes that the file is registered."
   (setq backend (symbol-name backend))
   (let ((state   (vc-state file))
+       (state-echo nil)
        (rev     (vc-workfile-version file)))
+    (propertize
     (cond ((or (eq state 'up-to-date)
               (eq state 'needs-patch))
+           (setq state-echo "Up to date file")
           (concat backend "-" rev))
           ((stringp state)
+           (setq state-echo (concat "File locked by" state))
           (concat backend ":" state ":" rev))
           (t
            ;; Not just for the 'edited state, but also a fallback
            ;; for all other states.  Think about different symbols
            ;; for 'needs-patch and 'needs-merge.
-           (concat backend ":" rev)))))
+           (setq state-echo "Edited file")
+           (concat backend ":" rev)))
+     'mouse-face 'mode-line-highlight
+     'local-map (let ((map (make-sparse-keymap)))
+                 (define-key map [mode-line down-mouse-1] 'vc-menu-map) map)
+     'help-echo (concat state-echo " under the " backend 
+                       " version control system\nmouse-1: VC Menu"))))
 
 (defun vc-follow-link ()
   "If current buffer visits a symbolic link, visit the real file.