Mercurial > emacs
changeset 47210:47f646d9e151
(cvs-parse-table): Create a `need-update'
node rather than a message for new directories.
(cvs-parse-status): Add support for `Entry Invalid'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 03 Sep 2002 01:23:15 +0000 |
| parents | f06f993cfd92 |
| children | 3a7c7e0c12f7 |
| files | lisp/pcvs-parse.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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