diff options
| author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2001-11-17 03:41:07 +0000 |
|---|---|---|
| committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2001-11-17 03:41:07 +0000 |
| commit | cacd966dd8431f20d210c414709456ee2b5500c9 (patch) | |
| tree | 2d991dc8e3e5b3229e9fcb3ec882419def441955 /editors/emacs21/files | |
| parent | Shared library version bump because of audio/mad update (diff) | |
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.
Diffstat (limited to 'editors/emacs21/files')
| -rw-r--r-- | editors/emacs21/files/patch-lisp:vc-hooks.el | 24 |
1 files changed, 24 insertions, 0 deletions
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 () |