aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/pcvs-parse.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/pcvs-parse.el')
-rw-r--r--lisp/pcvs-parse.el8
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