Mercurial > emacs
comparison lisp/vc-arch.el @ 90732:bc10a33dd40b
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 563-582)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 177-185)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-158
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 01 Jan 2007 03:21:06 +0000 |
| parents | c5406394f567 f0d812b53a76 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90731:a6c97c25a666 | 90732:bc10a33dd40b |
|---|---|
| 404 "A wrapper around `vc-do-command' for use in vc-arch.el." | 404 "A wrapper around `vc-do-command' for use in vc-arch.el." |
| 405 (apply 'vc-do-command buffer okstatus vc-arch-command file flags)) | 405 (apply 'vc-do-command buffer okstatus vc-arch-command file flags)) |
| 406 | 406 |
| 407 (defun vc-arch-init-version () nil) | 407 (defun vc-arch-init-version () nil) |
| 408 | 408 |
| 409 ;;; Less obvious implementations. | |
| 410 | |
| 411 (defun vc-arch-find-version (file rev buffer) | |
| 412 (let ((out (make-temp-file "vc-out"))) | |
| 413 (unwind-protect | |
| 414 (progn | |
| 415 (with-temp-buffer | |
| 416 (vc-arch-command (current-buffer) 1 nil "file-diffs" file rev) | |
| 417 (call-process-region (point-min) (point-max) | |
| 418 "patch" nil nil nil "-R" "-o" out file)) | |
| 419 (with-current-buffer buffer | |
| 420 (insert-file-contents out))) | |
| 421 (delete-file out)))) | |
| 422 | |
| 409 (provide 'vc-arch) | 423 (provide 'vc-arch) |
| 410 | 424 |
| 411 ;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 | 425 ;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 |
| 412 ;;; vc-arch.el ends here | 426 ;;; vc-arch.el ends here |