aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2001-03-07 00:17:53 +0000
committerStefan Monnier2001-03-07 00:17:53 +0000
commit1e98637e4160e22fd4f70a0f2fa0c35730540372 (patch)
tree2ad7b55e33b557fa6370edc151a05ea665bfe7f5
parentf5cd98c0d4ccb5a10c139bf54d72901668b3bc82 (diff)
downloademacs-1e98637e4160e22fd4f70a0f2fa0c35730540372.tar.gz
emacs-1e98637e4160e22fd4f70a0f2fa0c35730540372.zip
(cvs-parse-table): Add another ignored message.
-rw-r--r--lisp/pcvs-parse.el12
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el
index 34caaec13d8..036837c3bcb 100644
--- a/lisp/pcvs-parse.el
+++ b/lisp/pcvs-parse.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs 6;; Keywords: pcl-cvs
7;; Revision: $Id: pcvs-parse.el,v 1.4 2000/12/06 19:52:39 fx Exp $ 7;; Revision: $Id: pcvs-parse.el,v 1.5 2000/12/18 03:17:31 monnier Exp $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -25,6 +25,12 @@
25 25
26;;; Commentary: 26;;; Commentary:
27 27
28;;; Bugs:
29
30;; - when merging a modified file, if the merge says that the file already
31;; contained in the changes, it marks the file as `up-to-date' although
32;; it might still contain further changes.
33;; Example: merging a zero-change commit.
28 34
29;;; Code: 35;;; Code:
30 36
@@ -352,6 +358,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
352 (cvs-match "refetching unpatchable files$") 358 (cvs-match "refetching unpatchable files$")
353 ;; [commit] 359 ;; [commit]
354 (cvs-match "Rebuilding administrative file database$") 360 (cvs-match "Rebuilding administrative file database$")
361 ;; ???
362 (cvs-match "--> Using per-directory sticky tag `.*'")
355 363
356 ;; CVS is running a *info program. 364 ;; CVS is running a *info program.
357 (and 365 (and
@@ -408,6 +416,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
408 "\\) already contains the differences between .*$") 416 "\\) already contains the differences between .*$")
409 (path 1) (type '(UP-TO-DATE . MERGED))) 417 (path 1) (type '(UP-TO-DATE . MERGED)))
410 t) 418 t)
419 ;; FIXME: PATH might not be set yet. Sometimes the only path
420 ;; information is in `RCS file: ...' (yuck!!).
411 (cvs-parsed-fileinfo (if dont-change-disc 'NEED-MERGE 421 (cvs-parsed-fileinfo (if dont-change-disc 'NEED-MERGE
412 (or type '(MODIFIED . MERGED))) path nil 422 (or type '(MODIFIED . MERGED))) path nil
413 :merge (cons base-rev head-rev)))))) 423 :merge (cons base-rev head-rev))))))