688 |
(setq status (match-string 1))) |
(setq status (match-string 1))) |
689 |
(if (and full |
(if (and full |
690 |
(re-search-forward |
(re-search-forward |
691 |
"\\(RCS Version\\|RCS Revision\\|Repository revision\\):\ |
"\\(RCS Version\\|RCS Revision\\|Repository revision\\):\ |
692 |
\[\t ]+\\([0-9.]+\\)" |
\[\t ]+\\([0-9.]+\\)" |
693 |
nil t)) |
nil t)) |
694 |
(vc-file-setprop file 'vc-latest-version (match-string 2))) |
(vc-file-setprop file 'vc-latest-version (match-string 2))) |
695 |
(cond |
(vc-file-setprop |
696 |
((string-match "Up-to-date" status) |
file 'vc-state |
697 |
(vc-file-setprop file 'vc-checkout-time |
(cond |
698 |
(nth 5 (file-attributes file))) |
((string-match "Up-to-date" status) |
699 |
'up-to-date) |
(vc-file-setprop file 'vc-checkout-time |
700 |
((string-match "Locally Modified" status) 'edited) |
(nth 5 (file-attributes file))) |
701 |
((string-match "Needs Merge" status) 'needs-merge) |
'up-to-date) |
702 |
((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch) |
((string-match "Locally Modified" status) 'edited) |
703 |
(t 'edited))))))) |
((string-match "Needs Merge" status) 'needs-merge) |
704 |
|
((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch) |
705 |
|
(t 'edited)))))))) |
706 |
|
|
707 |
(defun vc-cvs-dir-state-heuristic (dir) |
(defun vc-cvs-dir-state-heuristic (dir) |
708 |
"Find the CVS state of all files in DIR, using only local information." |
"Find the CVS state of all files in DIR, using only local information." |