From 15d85d9205b8951187af18d6dd82819311a9cb86 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 10 Oct 2002 08:44:58 +0000 Subject: [PATCH] (vc-cvs-parse-entry): Parse the time stamp found in CVS/Entries, rather than comparing it textually. --- lisp/vc-cvs.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 9623ed0b7f9..f9d41452133 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -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 @@ is non-nil." (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 -- 2.39.2