# HG changeset patch # User Andr Spiegel # Date 1034239498 0 # Node ID 677f4ca67bbedd13b29b7a9d91c591cd4a952d6b # Parent 909441aa45d82ded02d0ae83967c6dd8b4a45093 (vc-cvs-parse-entry): Parse the time stamp found in CVS/Entries, rather than comparing it textually. diff -r 909441aa45d8 -r 677f4ca67bbe lisp/vc-cvs.el --- a/lisp/vc-cvs.el Thu Oct 10 04:22:02 2002 +0000 +++ b/lisp/vc-cvs.el Thu Oct 10 08:44:58 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.45 2002/10/08 20:25:21 monnier Exp $ +;; $Id: vc-cvs.el,v 1.46 2002/10/09 15:59:39 rost Exp $ ;; This file is part of GNU Emacs. @@ -882,9 +882,12 @@ (vc-file-setprop file 'vc-cvs-sticky-tag (vc-cvs-parse-sticky-tag (match-string 5) (match-string 6))) ;; compare checkout time and modification time - (let ((mtime (nth 5 (file-attributes file))) - (system-time-locale "C")) - (cond ((equal (format-time-string "%c" mtime 'utc) (match-string 2)) + (let ((mtime (nth 5 (file-attributes file)))) + (require 'parse-time) + (cond ((equal mtime + (apply 'encode-time + (parse-time-string + (concat (match-string 2) " +0000")))) (vc-file-setprop file 'vc-checkout-time mtime) (if set-state (vc-file-setprop file 'vc-state 'up-to-date))) (t