/[emacs]/emacs/lisp/vc-cvs.el
ViewVC logotype

Diff of /emacs/lisp/vc-cvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by monnier, Sun Nov 25 23:52:51 2001 UTC revision 1.28 by spiegel, Fri Nov 30 13:47:39 2001 UTC
# Line 693  essential information." Line 693  essential information."
693              (setq status (match-string 1)))              (setq status (match-string 1)))
694            (if (and full            (if (and full
695                     (re-search-forward                     (re-search-forward
696                      "\\(RCS Version\\|RCS Revision\\|Repository revision\\):\                      "\\(RCS Version\\|RCS Revision\\|Repository revision\\):\
697  \[\t ]+\\([0-9.]+\\)"  \[\t ]+\\([0-9.]+\\)"
698                      nil t))                      nil t))
699                (vc-file-setprop file 'vc-latest-version (match-string 2)))                (vc-file-setprop file 'vc-latest-version (match-string 2)))
700            (cond            (vc-file-setprop
701             ((string-match "Up-to-date" status)             file 'vc-state
702              (vc-file-setprop file 'vc-checkout-time             (cond
703                               (nth 5 (file-attributes file)))              ((string-match "Up-to-date" status)
704              'up-to-date)               (vc-file-setprop file 'vc-checkout-time
705             ((string-match "Locally Modified"    status) 'edited)                                (nth 5 (file-attributes file)))
706             ((string-match "Needs Merge"         status) 'needs-merge)               'up-to-date)
707             ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)              ((string-match "Locally Modified" status)             'edited)
708             (t 'edited)))))))              ((string-match "Needs Merge" status)                  'needs-merge)
709                ((string-match "Needs \\(Checkout\\|Patch\\)" status) 'needs-patch)
710                (t 'edited))))))))
711    
712  (defun vc-cvs-dir-state-heuristic (dir)  (defun vc-cvs-dir-state-heuristic (dir)
713    "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."

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26