(vc-mtn-state): Support the added state.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c9f6b2cfee02802f55f0467d14d1b5bade9200e..dbdf5ab03ad56935e51a1ec1a593085bde476d65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-22  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-mtn.el (vc-mtn-state): Support the added state.
+
 2008-03-22  Carsten Dominik  <dominik@science.uva.nl>
 
        * org: New directory for Org-mode.

diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index 6a7f72db44bdbcab34e890494e99f07c062c0eaf..fd3f48f9105027aab86c437e764e535e45ae7a90 100644 (file)
--- 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