Commit 544bdc40 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-arch-find-version): New function.

parent d4c813e9
2006-12-27 Stefan Monnier <>
* vc-arch.el (vc-arch-find-version): New function.
* vc-hooks.el (vc-version-backup-file-name): Revision names may be
composed of arbitrary characters (even /) in some systems.
2006-12-27 Eli Zaretskii <>
* international/mule-cmds.el (select-safe-coding-system-interactively):
......@@ -406,6 +406,20 @@ Return non-nil if FILE is unchanged."
(defun vc-arch-init-version () nil)
;;; Less obvious implementations.
(defun vc-arch-find-version (file rev buffer)
(let ((out (make-temp-file "vc-out")))
(vc-arch-command (current-buffer) 1 nil "file-diffs" file rev)
(call-process-region (point-min) (point-max)
"patch" nil nil nil "-R" "-o" out file))
(with-current-buffer buffer
(insert-file-contents out)))
(delete-file out))))
(provide 'vc-arch)
;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment