# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1001370555 0
# Node ID 900ad37906a70175a630b7e9face8fb0a63b9323
# Parent  4520697c8aa5937e842733f9a513fe18a970f426
(vc-checkin): Use vc-delete-automatic-version-backups.

diff -r 4520697c8aa5 -r 900ad37906a7 lisp/vc.el
--- 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)))