Mercurial > emacs

changeset 39427:900ad37906a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-checkin): Use vc-delete-automatic-version-backups.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 24 Sep 2001 22:29:15 +0000
parents 4520697c8aa5
children 79c1d1f5dcf5
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Mon Sep 24 19:00:26 2001 +0000
+++ b/lisp/vc.el	Mon Sep 24 22:29:15 2001 +0000
@@ -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 @@
       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)))