Mercurial > emacs

diff lisp/vc-hooks.el @ 93124:97c5b398eee4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-hooks.el (vc-default-mode-line-string): Add case for added files. * vc.el (vc-default-dired-state-info): Use just "modified". * vc-cvs.el (vc-cvs-state-heuristic): Turn rev 0 into `added'. (vc-cvs-mode-line-string): Make use of the better default. (vc-cvs-parse-entry): Use the new `added'. (vc-cvs-dired-state-info): Remove. * vc-svn.el (vc-svn-dired-state-info): Remove. * vc-hg.el (vc-hg-dired-state-info): Remove. * vc-git.el (vc-git-dired-state-info): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 21 Mar 2008 17:53:04 +0000
parents 4ffd887822d7
children 6344844cc575
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Fri Mar 21 06:29:04 2008 +0000
+++ b/lisp/vc-hooks.el	Fri Mar 21 17:53:04 2008 +0000
@@ -856,6 +856,9 @@
 	   ((stringp state)
 	    (setq state-echo (concat "File locked by" state))
 	    (concat backend ":" state ":" rev))
+           ((eq state 'added)
+            (setq state-echo "Locally added file")
+            (concat backend "@" rev))
 	   (t
 	    ;; Not just for the 'edited state, but also a fallback
 	    ;; for all other states.  Think about different symbols