;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/bzr-revlog.el
;;; in Emacs version 23.0.50.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`bzr-revlog.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require dvc-core dvc-revlog] 2)
#@62 Quick and dirty prototype of function using dvc-revlog-mode.
(defalias 'bzr-revlog-local #[(revno &optional path) "\206 	\303\304\305\306\nE\307\310\311\312\313\314\315\316\317\320\nCD\257E$)\207" [path default-directory revno dvc-run-dvc-async bzr "log" "-r" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-3) "\302\303\304	#!\207" [output #1# dvc-switch-to-buffer dvc-revlog-show-revision bzr] 5] output error status arguments quote] 14 (#$ . 671) "MRevno: "])
(defalias 'bzr-revlog-get-revision #[(rev-id) "\303!@\304\305\n\"\210\304\306	\"\210	@\307=\203+ 	A@\310\311\312\313\314\315	8!E\316\317$)\202N 	@\320=\203H \310\311\312\313\321\314\315	8!\322	A@RE\316\317$\202N \323\324\325\"!)\207" [rev-id data default-directory dvc-revision-get-data dvc-trace "dd=%S" "data=%S" local dvc-run-dvc-sync bzr "log" "--revision" int-to-string 2 :finished dvc-output-buffer-handler remote "revno:" ":" error format "Revision ID %S not implemented"] 8])
(provide 'bzr-revlog)