diff options
| author | Stefan Monnier | 2001-03-07 00:17:53 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-03-07 00:17:53 +0000 |
| commit | 1e98637e4160e22fd4f70a0f2fa0c35730540372 (patch) | |
| tree | 2ad7b55e33b557fa6370edc151a05ea665bfe7f5 | |
| parent | f5cd98c0d4ccb5a10c139bf54d72901668b3bc82 (diff) | |
| download | emacs-1e98637e4160e22fd4f70a0f2fa0c35730540372.tar.gz emacs-1e98637e4160e22fd4f70a0f2fa0c35730540372.zip | |
(cvs-parse-table): Add another ignored message.
| -rw-r--r-- | lisp/pcvs-parse.el | 12 |
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)))))) |