# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206205773 0
# Node ID 33c08cf9fb3a92e1dcedeaef2cb0426d06e82b2b
# Parent  c62113d8fa41932400c3dc4766ddf3b160b01235
(vc-mtn-state): Support the added state.

diff -r c62113d8fa41 -r 33c08cf9fb3a lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 22 11:53:40 2008 +0000
+++ b/lisp/ChangeLog	Sat Mar 22 17:09:33 2008 +0000
@@ -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 -r c62113d8fa41 -r 33c08cf9fb3a lisp/vc-mtn.el
--- a/lisp/vc-mtn.el	Sat Mar 22 11:53:40 2008 +0000
+++ b/lisp/vc-mtn.el	Sat Mar 22 17:09:33 2008 +0000
@@ -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