procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* vc-hooks.el (vc-default-mode-line-string): Add case for added files.

Browse source 
* 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.
This commit is contained in:
Stefan Monnier 2008-03-21 17:53:04 +00:00
parent e345c46e56
commit 45b24b4de6
7 changed files with 28 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc-git.el
View file

@ -199,14 +199,6 @@
(propertize def-ml
'help-echo (concat help-echo "\nCurrent branch: " branch)))))
(defun vc-git-dired-state-info (file)
"Git-specific version of `vc-dired-state-info'."
(let ((git-state (vc-state file)))
(if (eq git-state 'edited)
"(modified)"
;; fall back to the default VC representation
(vc-default-dired-state-info 'Git file))))
;; Variable used to keep the intermediate results for vc-git-status.
(defvar vc-git-status-result nil)