diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-03 01:23:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-03 01:23:15 +0000 |
| commit | f9e7890c824b1cea88c66c39e918c0928b54faf3 (patch) | |
| tree | ad27f71b66afaf9337ce82b8a0850409899266dc /lisp/pcvs-parse.el | |
| parent | 814838dff648d9d877d80edea2ddbbb6781022fb (diff) | |
| download | emacs-f9e7890c824b1cea88c66c39e918c0928b54faf3.tar.gz emacs-f9e7890c824b1cea88c66c39e918c0928b54faf3.tar.bz2 emacs-f9e7890c824b1cea88c66c39e918c0928b54faf3.zip | |
(cvs-parse-table): Create a `need-update'
node rather than a message for new directories.
(cvs-parse-status): Add support for `Entry Invalid'.
Diffstat (limited to 'lisp/pcvs-parse.el')
| -rw-r--r-- | lisp/pcvs-parse.el | 9 |
1 files 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 <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 @@ 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 |