diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-22 17:09:33 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-22 17:09:33 +0000 |
| commit | 3281a821f771b2c74fe880f24cc38ce0d25e4d58 (patch) | |
| tree | 0f97b0e38c1c9d06549679d0d28fcf5dae1dfc74 /lisp/vc-mtn.el | |
| parent | b07103dc2b17933e30e1500bce6f9a1471752cc7 (diff) | |
| download | emacs-3281a821f771b2c74fe880f24cc38ce0d25e4d58.tar.gz | |
(vc-mtn-state): Support the added state.
Diffstat (limited to 'lisp/vc-mtn.el')
| -rw-r--r-- | lisp/vc-mtn.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el index 6a7f72db44b..fd3f48f9105 100644 --- a/lisp/vc-mtn.el +++ b/lisp/vc-mtn.el @@ -76,10 +76,11 @@ (with-temp-buffer (vc-mtn-command t 0 file "status") (goto-char (point-min)) - (re-search-forward "^ \\(?:patched \\(.*\\)\\|no changes$\\)") - (if (match-end 1) - 'edited - 'up-to-date)))) + (re-search-forward + "^ \\(?:\\(patched\\)\\|\\(added\\) \\(?:.*\\)\\)\\|no changes$") + (cond ((match-end 1) 'edited) + ((match-end 2) 'added) + (t 'up-to-date))))) (defun vc-mtn-working-revision (file) ;; If `mtn' fails or returns status>0, or if the search fails, just |