Function: vc-arch-find-revision

vc-arch-find-revision is a byte-compiled function defined in vc-arch.el.gz.

Signature

(vc-arch-find-revision FILE REV BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-arch.el.gz
;;; Less obvious implementations.

(defun vc-arch-find-revision (file rev buffer)
  (let ((out (make-temp-file "vc-out")))
    (unwind-protect
        (progn
          (with-temp-buffer
            (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))))