Mercurial > emacs

changeset 93144:33c08cf9fb3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-mtn-state): Support the added state.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 22 Mar 2008 17:09:33 +0000
parents c62113d8fa41
children 9a34bf3a4363
files lisp/ChangeLog lisp/vc-mtn.el
diffstat 2 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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