diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-22 20:22:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-22 20:22:34 +0000 |
| commit | 2f8e4caba76753ea1b01d04147409d120f6fbd5f (patch) | |
| tree | 7daff222e4f903e152acf522d66486242690f2af /lisp/pcvs-parse.el | |
| parent | d455f4f7a97251609c503d8f3250fe883d689069 (diff) | |
| download | emacs-2f8e4caba76753ea1b01d04147409d120f6fbd5f.tar.gz | |
(cvs-parse-commit): Remove the temp files used by VC.
Diffstat (limited to 'lisp/pcvs-parse.el')
| -rw-r--r-- | lisp/pcvs-parse.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el index fae7f9fe446..7199bd005d8 100644 --- a/lisp/pcvs-parse.el +++ b/lisp/pcvs-parse.el @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-parse.el,v 1.7 2001/04/13 14:55:48 monnier Exp $ +;; Revision: $Id: pcvs-parse.el,v 1.8 2001/07/16 07:46:48 pj Exp $ ;; This file is part of GNU Emacs. @@ -484,12 +484,15 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." (cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$" (subtype 'COMMITTED) (base-rev 1))) (cvs-match "done$") - ;; it's important here not to rely on the default directory management - ;; because `cvs commit' might begin by a series of Examining messages - ;; so the processing of the actual checkin messages might begin with - ;; a `current-dir' set to something different from "" - (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) path 'trust - :base-rev base-rev)) + (progn + ;; Try to remove the temp files used by VC. + (vc-delete-automatic-version-backups path) + ;; it's important here not to rely on the default directory management + ;; because `cvs commit' might begin by a series of Examining messages + ;; so the processing of the actual checkin messages might begin with + ;; a `current-dir' set to something different from "" + (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) path 'trust + :base-rev base-rev))) ;; useless message added before the actual addition: ignored (cvs-match "RCS file: .*\ndone$")))) |