mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(vc-checkin): Use vc-delete-automatic-version-backups.

Browse Source
This commit is contained in:
Stefan Monnier 2001-09-24 22:30:31 +00:00
parent 6f6fd5ef4d
commit ab750f9c19
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -17,6 +17,8 @@
2001-09-24 Stefan Monnier <monnier@cs.yale.edu>
* vc.el (vc-checkin): Use vc-delete-automatic-version-backups.
* pcvs-parse.el (cvs-parse-commit): Expand the file name before
passing it to VC.

6
lisp/vc.el
View File

@ -6,7 +6,7 @@
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; Keywords: tools
;; $Id: vc.el,v 1.309 2001/09/17 09:59:41 spiegel Exp $
;; $Id: vc.el,v 1.310 2001/09/22 20:04:21 monnier Exp $
;; This file is part of GNU Emacs.
@ -1514,9 +1514,9 @@ Runs the normal hook `vc-checkin-hook'."
file
;; Change buffers to get local value of vc-checkin-switches.
(with-current-buffer (or (get-file-buffer file) (current-buffer))
(let ((backup-file (vc-version-backup-file file)))
(progn
(vc-call checkin file rev comment)
(if backup-file (delete-file backup-file))))
(vc-delete-automatic-version-backups file)))
`((vc-state . up-to-date)
(vc-checkout-time . ,(nth 5 (file-attributes file)))
(vc-workfile-version . nil)))