/[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.24.4.1 by spiegel, Wed Nov 14 13:51:53 2001 UTC revision 1.24.4.2 by spiegel, Fri Nov 30 14:05:18 2001 UTC
# Line 688  essential information." Line 688  essential information."
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."

Legend:
Removed from v.1.24.4.1  
changed lines
  Added in v.1.24.4.2

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