From 92788b3bcd2cb4bd8e67a789dfcee2c9a0a1a3c1 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 27 Mar 2003 22:40:29 +0000 Subject: [PATCH] (vc-cvs-parse-entry): Make sure a file with conflicts is marked as edited. --- lisp/ChangeLog | 5 +++++ lisp/vc-cvs.el | 13 ++++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da6751076e1..f9618b72df2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-27 Andreas Schwab + + * vc-cvs.el (vc-cvs-parse-entry): Make sure a file with conflicts + is marked as edited. + 2003-03-26 Kenichi Handa * files.el (recode-file-name): New function. diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index c6f3c2b2f55..9d1674c1490 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.50 2002/12/26 14:05:48 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.51 2003/02/17 08:11:13 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -872,10 +872,8 @@ is non-nil." (concat "/[^/]+" ;; revision "/\\([^/]*\\)" - ;; timestamp - "/\\([^/]*\\)" - ;; optional conflict field - "\\(+[^/]*\\)?/" + ;; timestamp and optional conflict field + "/\\([^/]*\\)/" ;; options "\\([^/]*\\)/" ;; sticky tag @@ -883,13 +881,14 @@ is non-nil." "\\(.*\\)")) ;Sticky tag (vc-file-setprop file 'vc-workfile-version (match-string 1)) (vc-file-setprop file 'vc-cvs-sticky-tag - (vc-cvs-parse-sticky-tag (match-string 5) (match-string 6))) + (vc-cvs-parse-sticky-tag (match-string 4) (match-string 5))) ;; compare checkout time and modification time (let ((mtime (nth 5 (file-attributes file)))) (require 'parse-time) (let ((parsed-time (parse-time-string (concat (match-string 2) " +0000")))) - (cond ((and (car parsed-time) + (cond ((and (not (string-match "\\+" (match-string 2))) + (car parsed-time) (equal mtime (apply 'encode-time parsed-time))) (vc-file-setprop file 'vc-checkout-time mtime) (if set-state (vc-file-setprop file 'vc-state 'up-to-date))) -- 2.39.2