Mercurial > emacs
comparison lisp/vc-hg.el @ 93118:01d3fd1a2cfe
* vc-hg.el (vc-hg-state):
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 21 Mar 2008 05:53:48 +0000 |
| parents | 4ffd887822d7 |
| children | 97c5b398eee4 |
comparison
equal
deleted
inserted
replaced
| 93117:87f463ae1530 | 93118:01d3fd1a2cfe |
|---|---|
| 171 (when (eq 0 status) | 171 (when (eq 0 status) |
| 172 (when (null (string-match ".*: No such file or directory$" out)) | 172 (when (null (string-match ".*: No such file or directory$" out)) |
| 173 (let ((state (aref out 0))) | 173 (let ((state (aref out 0))) |
| 174 (cond | 174 (cond |
| 175 ((eq state ?=) 'up-to-date) | 175 ((eq state ?=) 'up-to-date) |
| 176 ((eq state ?A) 'edited) | 176 ((eq state ?A) 'added) |
| 177 ((eq state ?M) 'edited) | 177 ((eq state ?M) 'edited) |
| 178 ((eq state ?I) 'ignored) | 178 ((eq state ?I) 'ignored) |
| 179 ((eq state ?R) 'unregistered) | 179 ((eq state ?R) 'unregistered) |
| 180 ((eq state ??) 'unregistered) | 180 ((eq state ??) 'unregistered) |
| 181 ((eq state ?C) 'up-to-date) ;; Older mercurials use this | 181 ((eq state ?C) 'up-to-date) ;; Older mercurials use this |