Mercurial > emacs
changeset 41707:94df6eb103b3
(vc-cvs-parse-status): Store file state in property, don't just return
it.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Fri, 30 Nov 2001 13:47:39 +0000 |
| parents | 4289324b443e |
| children | 8439236b7552 |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 13 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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 <spiegel@gnu.org> -;; $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."