# HG changeset patch # User Andr Spiegel # Date 1007128059 0 # Node ID 94df6eb103b35af7c3d4a692ddcb2693430c87ee # Parent 4289324b443ef381338fbcf6a1fa161d71c7a3c8 (vc-cvs-parse-status): Store file state in property, don't just return it. diff -r 4289324b443e -r 94df6eb103b3 lisp/vc-cvs.el --- a/lisp/vc-cvs.el Fri Nov 30 13:20:18 2001 +0000 +++ b/lisp/vc-cvs.el Fri Nov 30 13:47:39 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.26 2001/10/22 07:57:00 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.27 2001/11/25 23:52:51 monnier Exp $ ;; This file is part of GNU Emacs. @@ -693,19 +693,21 @@ (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."