# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1031016195 0
# Node ID 47f646d9e15159b958bdf3c39f67822feef954b9
# Parent  f06f993cfd92f6173d6a6d1febf1390bcb93a186
(cvs-parse-table): Create a `need-update'
node rather than a message for new directories.
(cvs-parse-status): Add support for `Entry Invalid'.

diff -r f06f993cfd92 -r 47f646d9e151 lisp/pcvs-parse.el
--- a/lisp/pcvs-parse.el	Tue Sep 03 01:20:20 2002 +0000
+++ b/lisp/pcvs-parse.el	Tue Sep 03 01:23:15 2002 +0000
@@ -5,7 +5,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; 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 @@
        ;; [-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 @@
        (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 @@
       (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