511 |
(cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$" |
(cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$" |
512 |
(subtype 'COMMITTED) (base-rev 1))) |
(subtype 'COMMITTED) (base-rev 1))) |
513 |
(cvs-or (cvs-match "done$") t) |
(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'. |
518 |
(progn |
(progn |
519 |
;; Try to remove the temp files used by VC. |
;; Try to remove the temp files used by VC. |
520 |
(vc-delete-automatic-version-backups (expand-file-name path)) |
(vc-delete-automatic-version-backups (expand-file-name (or path file))) |
521 |
;; it's important here not to rely on the default directory management |
;; it's important here not to rely on the default directory management |
522 |
;; because `cvs commit' might begin by a series of Examining messages |
;; because `cvs commit' might begin by a series of Examining messages |
523 |
;; so the processing of the actual checkin messages might begin with |
;; so the processing of the actual checkin messages might begin with |
524 |
;; a `current-dir' set to something different from "" |
;; a `current-dir' set to something different from "" |
525 |
(cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) |
(cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) |
526 |
(or path file) (if path 'trust) |
(or path file) 'trust |
527 |
:base-rev base-rev))) |
:base-rev base-rev))) |
528 |
|
|
529 |
;; useless message added before the actual addition: ignored |
;; useless message added before the actual addition: ignored |