/[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.65 by spiegel, Fri Sep 26 07:23:36 2003 UTC revision 1.66 by fx, Wed Oct 1 13:22:53 2003 UTC
# Line 927  is non-nil." Line 927  is non-nil."
927      ;; This is intentionally different from the algorithm that CVS uses      ;; This is intentionally different from the algorithm that CVS uses
928      ;; (which is based on textual comparison), because there can be problems      ;; (which is based on textual comparison), because there can be problems
929      ;; generating a time string that looks exactly like the one from CVS.      ;; generating a time string that looks exactly like the one from CVS.
930      (let ((mtime (nth 5 (file-attributes file)))      (let ((mtime (nth 5 (file-attributes file))))
931            (parsed-time        (require 'parse-time)
932             (parse-time-string (concat (match-string 2) " +0000"))))        (let ((parsed-time
933        (cond ((and (not (string-match "\\+" (match-string 2)))               (parse-time-string (concat (match-string 2) " +0000"))))
934                    (car parsed-time)          (cond ((and (not (string-match "\\+" (match-string 2)))
935                    (equal mtime (apply 'encode-time parsed-time)))                      (car parsed-time)
936               (vc-file-setprop file 'vc-checkout-time mtime)                      (equal mtime (apply 'encode-time parsed-time)))
937               (if set-state (vc-file-setprop file 'vc-state 'up-to-date)))                 (vc-file-setprop file 'vc-checkout-time mtime)
938              (t                 (if set-state (vc-file-setprop file 'vc-state 'up-to-date)))
939               (vc-file-setprop file 'vc-checkout-time 0)                (t
940               (if set-state (vc-file-setprop file 'vc-state 'edited))))))))                 (vc-file-setprop file 'vc-checkout-time 0)
941                   (if set-state (vc-file-setprop file 'vc-state 'edited)))))))))
942    
943  (provide 'vc-cvs)  (provide 'vc-cvs)
944    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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