# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 970653021 0
# Node ID 1543b0fc904b900522e1859f4506a433bba62867
# Parent  3aab429d3c8a4295ada87249d258160523ec294c
(vc-before-save, vc-default-make-version-backups,
vc-version-backup-file-name): New functions.

diff -r 3aab429d3c8a -r 1543b0fc904b lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Oct 04 09:48:37 2000 +0000
+++ b/lisp/vc-hooks.el	Wed Oct 04 09:50:21 2000 +0000
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-hooks.el,v 1.120 2000/09/21 13:15:26 spiegel Exp $
+;; $Id: vc-hooks.el,v 1.121 2000/10/02 12:02:37 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -459,6 +459,28 @@
     (toggle-read-only)))
 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only)
 
+(defun vc-default-make-version-backups (backend file)
+  "Return non-nil if unmodified repository versions should 
+be backed up locally.  The default is to switch off this feature."
+  nil)
+
+(defun vc-version-backup-file-name (file &optional rev)
+  "Return a backup file name for REV or the current version of FILE."
+  (concat file ".~" (or rev (vc-workfile-version file)) "~"))
+
+(defun vc-before-save ()
+  "Function to be called by `basic-save-buffer' (in files.el)."
+  ;; If the file on disk is still in sync with the repository,
+  ;; and version backups should be made, copy the file to
+  ;; another name.  This enables local diffs and local reverting.
+  (let ((file (buffer-file-name)))
+    (and (vc-backend file)
+	 (vc-up-to-date-p file)
+	 (eq (vc-checkout-model file) 'implicit)
+	 (vc-call make-version-backups file)
+	 (copy-file file (vc-version-backup-file-name file) 
+		    'ok-if-already-exists 'keep-date))))
+
 (defun vc-after-save ()
   "Function to be called by `basic-save-buffer' (in files.el)."
   ;; If the file in the current buffer is under version control,