mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* vc-hg.el (vc-hg-state):

Browse source 
* vc-git.el (vc-git-state):
* vc-cvs.el (vc-cvs-parse-status):
* vc-bzr.el (vc-bzr-state): Return 'added when the file is in that
state.
This commit is contained in:
Dan Nicolaescu 2008-03-21 05:53:48 +00:00
parent 5371d722ec
commit 6a3f9bb72d
5 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc-git.el
View file

@ -146,9 +146,9 @@
;; FIXME: This can't set 'ignored yet
(vc-git--call nil "add" "--refresh" "--" (file-relative-name file))
(let ((diff (vc-git--run-command-string file "diff-index" "-z" "HEAD" "--")))
(if (and diff (string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} [ADMU]\0[^\0]+\0"
(if (and diff (string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\([ADMU]\\)\0[^\0]+\0"
diff))
'edited
(if (string= (match-string 1 diff) "A") 'added 'edited)
'up-to-date)))
(defun vc-git--ls-files-state (state &rest args)