From f9e7890c824b1cea88c66c39e918c0928b54faf3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 3 Sep 2002 01:23:15 +0000 Subject: [PATCH] (cvs-parse-table): Create a `need-update' node rather than a message for new directories. (cvs-parse-status): Add support for `Entry Invalid'. --- lisp/pcvs-parse.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el index 607a6fa6f06..4e008877da6 100644 --- a/lisp/pcvs-parse.el +++ b/lisp/pcvs-parse.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-parse.el,v 1.11 2002/03/17 20:48:14 monnier Exp $ +;; Revision: $Id: pcvs-parse.el,v 1.12 2002/06/24 22:49:06 monnier Exp $ ;; This file is part of GNU Emacs. @@ -266,7 +266,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." ;; [-n update] A new (or pruned) directory appeared but isn't traversed (and (cvs-match "New directory `\\(.*\\)' -- ignored$" (dir 1)) - (cvs-parsed-fileinfo 'MESSAGE " " (file-name-as-directory dir))) + ;; (cvs-parsed-fileinfo 'MESSAGE " " (file-name-as-directory dir)) + (cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir)) ;; File removed, since it is removed (by third party) in repository. (and @@ -286,6 +287,9 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." (and (cvs-match "\\(.*\\), version \\(.*\\), resurrected$" (path 1) (base-rev 2)) + ;; FIXME: resurrection only brings back the original version, + ;; not the latest on the branch, so `up-to-date' is not always + ;; what we want. (cvs-parsed-fileinfo '(UP-TO-DATE . RESURRECTED) path nil :base-rev base-rev)) @@ -444,6 +448,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." (cvs-match "Locally Removed$" (type 'REMOVED)) (cvs-match "Locally Modified$" (type 'MODIFIED)) (cvs-match "Needs Merge$" (type 'NEED-MERGE)) + (cvs-match "Entry Invalid" (type '(NEED-MERGE . REMOVED))) (cvs-match "Unknown$" (type 'UNKNOWN))) (cvs-match "$") (cvs-or -- 2.39.5