mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(cvs-parse-table): Add another ignored message.

Browse Source
This commit is contained in:
Stefan Monnier 2001-03-07 00:17:53 +00:00
parent f5cd98c0d4
commit 1e98637e41
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/pcvs-parse.el
View File

@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-parse.el,v 1.4 2000/12/06 19:52:39 fx Exp $
;; Revision: $Id: pcvs-parse.el,v 1.5 2000/12/18 03:17:31 monnier Exp $
;; This file is part of GNU Emacs.
@ -25,6 +25,12 @@
;;; Commentary:
;;; Bugs:
;; - when merging a modified file, if the merge says that the file already
;; contained in the changes, it marks the file as `up-to-date' although
;; it might still contain further changes.
;; Example: merging a zero-change commit.
;;; Code:
@ -352,6 +358,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(cvs-match "refetching unpatchable files$")
;; [commit]
(cvs-match "Rebuilding administrative file database$")
;; ???
(cvs-match "--> Using per-directory sticky tag `.*'")
;; CVS is running a *info program.
(and
@ -408,6 +416,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
"\\) already contains the differences between .*$")
(path 1) (type '(UP-TO-DATE . MERGED)))
t)
;; FIXME: PATH might not be set yet. Sometimes the only path
;; information is in `RCS file: ...' (yuck!!).
(cvs-parsed-fileinfo (if dont-change-disc 'NEED-MERGE
(or type '(MODIFIED . MERGED))) path nil
:merge (cons base-rev head-rev))))))