From cacd966dd8431f20d210c414709456ee2b5500c9 Mon Sep 17 00:00:00 2001 From: Jun Kuriyama Date: Sat, 17 Nov 2001 03:41:07 +0000 Subject: Fix to make vc-backup file only if vc-make-backup-files is t. Use (make-backup-file-name-1) to reflect backup-directory-alist in vc-mode. --- editors/emacs21/files/patch-lisp:vc-hooks.el | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 editors/emacs21/files/patch-lisp:vc-hooks.el (limited to 'editors/emacs21/files') diff --git a/editors/emacs21/files/patch-lisp:vc-hooks.el b/editors/emacs21/files/patch-lisp:vc-hooks.el new file mode 100644 index 000000000000..8675c85f9e37 --- /dev/null +++ b/editors/emacs21/files/patch-lisp:vc-hooks.el @@ -0,0 +1,24 @@ +--- lisp/vc-hooks.el.orig Mon Nov 12 23:37:38 2001 ++++ lisp/vc-hooks.el Tue Nov 13 12:56:08 2001 +@@ -475,10 +475,9 @@ + (if regexp + (concat (regexp-quote (file-name-nondirectory file)) + "\\.~[0-9.]+" (unless manual "\\.") "~") +- (expand-file-name (concat (file-name-nondirectory file) +- ".~" (or rev (vc-workfile-version file)) +- (unless manual ".") "~") +- (file-name-directory file)))) ++ (concat (make-backup-file-name-1 file) ++ ".~" (or rev (vc-workfile-version file)) ++ (unless manual ".") "~"))) + + (defun vc-delete-automatic-version-backups (file) + "Delete all existing automatic version backups for FILE." +@@ -509,6 +508,7 @@ + (vc-up-to-date-p file) + (eq (vc-checkout-model file) 'implicit) + (vc-call make-version-backups-p file) ++ vc-make-backup-files + (vc-make-version-backup file)))) + + (defun vc-after-save () -- cgit v1.2.3