diff options
Diffstat (limited to 'editors/emacs/files/patch-lisp:vc-hooks.el')
| -rw-r--r-- | editors/emacs/files/patch-lisp:vc-hooks.el | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/editors/emacs/files/patch-lisp:vc-hooks.el b/editors/emacs/files/patch-lisp:vc-hooks.el new file mode 100644 index 000000000000..8675c85f9e37 --- /dev/null +++ b/editors/emacs/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 () |