(vc-cvs-parse-status): Store file state in property, don't just return

it.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 0ebade2c675a879b718181fb80df278e6849daa9..404cf269d7203f1b6c4482ddd9368905cb5f9915 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -5,7 +5,7 @@
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-cvs.el,v 1.24 2001/08/28 17:06:36 spiegel Exp $
+;; $Id$
 
 ;; This file is part of GNU Emacs.
 
@@ -688,19 +688,21 @@ essential information."
             (setq status (match-string 1)))
           (if (and full
                    (re-search-forward
-                   "\\(RCS Version\\|RCS Revision\\|Repository revision\\):\
+                    "\\(RCS Version\\|RCS Revision\\|Repository revision\\):\
 \[\t ]+\\([0-9.]+\\)"
                     nil t))
               (vc-file-setprop file 'vc-latest-version (match-string 2)))
-          (cond
-           ((string-match "Up-to-date" status)
-            (vc-file-setprop file 'vc-checkout-time
-                             (nth 5 (file-attributes file)))
-            'up-to-date)
-           ((string-match "Locally Modified"    status) 'edited)
-          ((string-match "Needs Merge"         status) 'needs-merge)
-          ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)
-          (t 'edited)))))))
+          (vc-file-setprop 
+           file 'vc-state
+           (cond
+            ((string-match "Up-to-date" status)
+             (vc-file-setprop file 'vc-checkout-time
+                              (nth 5 (file-attributes file)))
+             'up-to-date)
+            ((string-match "Locally Modified" status)             'edited)
+            ((string-match "Needs Merge" status)                  'needs-merge)
+            ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)
+            (t 'edited))))))))
 
 (defun vc-cvs-dir-state-heuristic (dir)
   "Find the CVS state of all files in DIR, using only local information."