martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(vc-before-save, vc-default-make-version-backups,

Browse Source 
vc-version-backup-file-name): New functions.
This commit is contained in:
André Spiegel
2000-10-04 09:50:21 +00:00
parent ffda046061
commit d445a9756a
1 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/vc-hooks.el
View File

@@ -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 @@ to do that, use this command a second time with no argument."
(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,