;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-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 "`dvc-revlog.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\304\305!\210\306B\307\306!\204# \310\306\311 \312	\313\314#\210\312	\n\315#\210	)\"\210\316\317N\204/ \320\316\317\321#\210\322\306!\204; \320\306\323\324#\210\306B\307\306!\204K \310\306\311 \"\210\322\325!\204W \320\325\323\324#\210\325B\307\325!\204g \310\325\326 \"\210\320\303\323\324#\210\303B\307\303!\204\201 \310\303\327\303\330\"\210\"\210\320\324\331\330#\207" [current-load-list map dvc-keyvec-quit dvc-revlog-mode-abbrev-table require dvc-ui dvc-revlog-mode-map default-boundp set-default make-sparse-keymap define-key [103] dvc-generic-refresh dvc-buffer-quit dvc-revlog-mode-hook variable-documentation put "Hook run when entering dvc-revlog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name dvc-revlog-mode dvc-revlog-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 6)
#@329 Major mode to show a single log entry.

This mode is the DVC common denominator of the back-ends, and is
therefore pretty trivial, but each back-end will have to derive
it to something more specific.

Commands are:
\{dvc-revlog-mode-map}

This mode runs the hook `dvc-revlog-mode-hook', as the final step
during initialization.
(defalias 'dvc-revlog-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\315 \316 \210\317\320!\210)\321\322!\207" [delay-mode-hooks major-mode mode-name dvc-revlog-mode-map dvc-revlog-mode-syntax-table dvc-revlog-mode-abbrev-table make-local-variable t kill-all-local-variables dvc-revlog-mode "dvc-revlog" use-local-map set-syntax-table dvc-current-active-dvc dvc-install-buffer-menu toggle-read-only 1 run-mode-hooks dvc-revlog-mode-hook local-abbrev-table dvc-buffer-current-active-dvc] 2 (#$ . 1547) nil])
(dvc-add-uniquify-directory-mode 'dvc-revlog-mode)
#@100 Use the content of SOURCE-BUFFER to display a revlog.

Create a new buffer named from BUFFER-NAME.
(defalias 'dvc-revlog-show-revision #[(back-end source-buffer buffer-name) "\304\305	#\306\n!\210\307!\210\310\311\" \210\n)\207" [back-end buffer-name buffer source-buffer dvc-get-buffer-create revlog dvc-switch-to-buffer insert-buffer-substring dvc-function "revlog-mode"] 4 (#$ . 2469)])
#@115 Show the log for REV-ID.

Call `dvc-revlog-revision-in-buffer' to get the content, and display
it in revlog-mode.
(defalias 'dvc-revlog-revision #[(rev-id) "\302\303!\304\216rq\210\305	!c\210\306\307	!p\310	!#+\207" [#1=#:temp-buffer rev-id generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) dvc-revlog-revision-in-buffer dvc-revlog-show-revision dvc-revision-get-dvc dvc-revision-to-string] 5 (#$ . 2870)])
#@283 Get the log message for revision REV-ID.

Return the log message as a string.

REV-ID is as defined in docs/DVC-API. The behavior is similar to the
one of `dvc-revision-get-file-in-buffer', but for log entries instead
of file contents.

Currently, only 'revision type is supported.
(defalias 'dvc-revlog-revision-in-buffer #[(rev-id) "\303\304\"\210\303\305	\"\210\306	!\211\307=\204 \310\311\n\"\210\312\313	!\314\"	!)\207" [default-directory rev-id type dvc-trace "dd-ib=%S" "rev-id=%S" dvc-revision-get-type revision error "rev-id %S not supported by dvc-revision-revlog" dvc-function dvc-revision-get-dvc "dvc-revlog-get-revision"] 4 (#$ . 3346)])
(provide 'dvc-revlog)