diff options
Diffstat (limited to 'lisp/pcvs-parse.el')
| -rw-r--r-- | lisp/pcvs-parse.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el index 84dbf218581..7ab6c53b4a0 100644 --- a/lisp/pcvs-parse.el +++ b/lisp/pcvs-parse.el | |||
| @@ -511,15 +511,19 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." | |||
| 511 | (cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$" | 511 | (cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$" |
| 512 | (subtype 'COMMITTED) (base-rev 1))) | 512 | (subtype 'COMMITTED) (base-rev 1))) |
| 513 | (cvs-or (cvs-match "done$") t) | 513 | (cvs-or (cvs-match "done$") t) |
| 514 | ;; In cvs-1.12.9 commit messages have been changed and became | ||
| 515 | ;; ambiguous. More specifically, the `path' above is not given. | ||
| 516 | ;; We assume here that in future releases the corresponding info will | ||
| 517 | ;; be put into `file'. | ||
| 514 | (progn | 518 | (progn |
| 515 | ;; Try to remove the temp files used by VC. | 519 | ;; Try to remove the temp files used by VC. |
| 516 | (vc-delete-automatic-version-backups (expand-file-name path)) | 520 | (vc-delete-automatic-version-backups (expand-file-name (or path file))) |
| 517 | ;; it's important here not to rely on the default directory management | 521 | ;; it's important here not to rely on the default directory management |
| 518 | ;; because `cvs commit' might begin by a series of Examining messages | 522 | ;; because `cvs commit' might begin by a series of Examining messages |
| 519 | ;; so the processing of the actual checkin messages might begin with | 523 | ;; so the processing of the actual checkin messages might begin with |
| 520 | ;; a `current-dir' set to something different from "" | 524 | ;; a `current-dir' set to something different from "" |
| 521 | (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) | 525 | (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) |
| 522 | (or path file) (if path 'trust) | 526 | (or path file) 'trust |
| 523 | :base-rev base-rev))) | 527 | :base-rev base-rev))) |
| 524 | 528 | ||
| 525 | ;; useless message added before the actual addition: ignored | 529 | ;; useless message added before the actual addition: ignored |