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

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


(byte-code "\300\301!\210\302\303\304\305#\210\303\306N\204 \302\303\306\307#\210\300\207" [require dvc-revlist put xhg-revision-st-changeset cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-changeset (or (and (memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) (error "xhg-revision-st-changeset accessing a non-xhg-revision-st")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-changeset #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xhg-revision-st-tags 0 error "xhg-revision-st-changeset accessing a non-xhg-revision-st" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xhg-revision-st-changeset setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xhg-revision-st xhg-revision-st-changeset #1=(and (memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) 1] 6] xhg-revision-st-message cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-message (or #1# (error "xhg-revision-st-message accessing a non-xhg-revision-st")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-message #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xhg-revision-st-tags 0 error "xhg-revision-st-message accessing a non-xhg-revision-st" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xhg-revision-st-message setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xhg-revision-st xhg-revision-st-message #1=(and (memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) 2] 6] xhg-revision-st-creator cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-creator (or #1# (error "xhg-revision-st-creator accessing a non-xhg-revision-st")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-creator #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xhg-revision-st-tags 0 error "xhg-revision-st-creator accessing a non-xhg-revision-st" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xhg-revision-st-creator setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xhg-revision-st xhg-revision-st-creator #1=(and (memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) 3] 6] xhg-revision-st-tag cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-tag (or #1# (error "xhg-revision-st-tag accessing a non-xhg-revision-st")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-tag #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xhg-revision-st-tags 0 error "xhg-revision-st-tag accessing a non-xhg-revision-st" 4] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xhg-revision-st-tag setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xhg-revision-st xhg-revision-st-tag #1=(and (memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) 4] 6] xhg-revision-st-date cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-date (or #1# (error "xhg-revision-st-date accessing a non-xhg-revision-st")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-date #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xhg-revision-st-tags 0 error "xhg-revision-st-date accessing a non-xhg-revision-st" 5] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xhg-revision-st-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xhg-revision-st xhg-revision-st-date (and #1=(memq (aref cl-x 0) cl-struct-xhg-revision-st-tags)) 5] 6] xhg-revision-st-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xhg-revision-st-p (and (vectorp cl-x) (>= (length cl-x) 6) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xhg-revision-st-p #[(cl-x) "\302!\205 G\303Y\205 \304H	>\205 \305\207" [cl-x cl-struct-xhg-revision-st-tags vectorp 6 0 t] 2])
(defalias 'copy-xhg-revision-st #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put make-xhg-revision-st cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\203Q @\313>\2038 AA\211\202# \314>A@\203G \315\211\202# \316\317@\"\210\202! )\320\321\322\323\315	\n\f&\n-\207" [#1# changeset message creator tag date :changeset :message :creator :tag :date (:changeset :message :creator :tag :date :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:changeset :message :creator :tag :date)" cl-defsubst-expand (changeset message creator tag date) (block make-xhg-revision-st (vector 'cl-struct-xhg-revision-st changeset message creator tag date)) t #:--cl-keys-- cl-whole] 12 "Not documented\n\n(fn CL-WHOLE &cl-quote &key CHANGESET MESSAGE CREATOR TAG DATE)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@62 Not documented

(fn &key CHANGESET MESSAGE CREATOR TAG DATE)
(defalias 'make-xhg-revision-st #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\203Q @\313>\2038 AA\211\202# \314>A@\203G \315\211\202# \316\317@\"\210\202! )\320\321	\n\f&-\207" [#1# changeset message creator tag date :changeset :message :creator :tag :date (:changeset :message :creator :tag :date :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:changeset :message :creator :tag :date)" vector cl-struct-xhg-revision-st #2=#:--cl-keys--] 8 (#$ . 6223)])
(byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\207" [custom-print-functions cl-struct-xhg-revision-st-tags #[(cl-x cl-s cl-n) "\303!\205\230 G\304Y\205\230 \305H	>\205\230 \306\307\n\"\210\306\310\n\"\210\311\305H	>\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H	>\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H	>\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H	>\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H	>\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\332\207" [cl-x cl-struct-xhg-revision-st-tags cl-s vectorp 6 0 princ "#S(xhg-revision-st" " changeset" prin1 error "xhg-revision-st-changeset accessing a non-xhg-revision-st" 1 " message" "xhg-revision-st-message accessing a non-xhg-revision-st" 2 " creator" "xhg-revision-st-creator accessing a non-xhg-revision-st" 3 " tag" "xhg-revision-st-tag accessing a non-xhg-revision-st" 4 " date" "xhg-revision-st-date accessing a non-xhg-revision-st" 5 ")" t] 3] cl-struct-xhg-revision-st put xhg-revision-st cl-struct-slots ((cl-tag-slot) (changeset) (message) (creator) (tag) (date)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-xhg-revision-st side-effect-free copy-xhg-revision-st xhg-revision-st-p error-free xhg-revision-st-date xhg-revision-st-tag xhg-revision-st-creator xhg-revision-st-message xhg-revision-st-changeset] 4)
(defalias 'xhg-revision-list-entry-patch-printer #[(elem) "\306H	>\204\f \307\310!\210\311H\203 \312\n\312Q\202 \313c\210\306H	>\204( \307\314!\210\315H\316\317\320\211\21101\203\314 \3210!29\205S \322\323\324\325!\"!3\f\203] \f\202k \205k \326!;\205k \326!43\203\210 4\203\203 4\327\330\3273\260\202\211 3\202\211 \f59\203\227 J\202\231 \331\3062G\332\333\334\205\266 \335\336\337\3405\257\205\275 \341D\"BBBB2$\2102-\202\316 0-\306H6>\204\334 \307\342!\210\343H\344\320\211\21101\203~\3210!29\205\322\323\324\325!\"!3\f\203\f\202\205\326!;\205\326!43\203:4\20354\327\330\3273\260\202;3\202;\f59\203IJ\202K\331\3062G\332\333\334\205h\335\336\337\3405\257\205o\341D\"BBBB2$\2102-\202\2000-\327\261\2107\203F\313\345\317\320\211\21101\203+\3210!29\205\262\322\323\324\325!\"!3\f\203\274\f\202\312\205\312\326!;\205\312\326!43\203\3474\203\3424\327\330\3273\260\202\3503\202\350\f59\203\366J\202\370\331\3062G\332\333\334\205\335\336\337\3405\257\205\341D\"BBBB2$\2102-\202-0-\306H6>\204;\307\346!\210\315H\206B\347\327\261\2108\203\313\350\317\320\211\21101\203\354\3210!29\205s\322\323\324\325!\"!3\f\203}\f\202\213\205\213\326!;\205\213\326!43\203\2504\203\2434\327\330\3273\260\202\2513\202\251\f59\203\267J\202\271\331\3062G\332\333\334\205\326\335\336\337\3405\257\205\335\341D\"BBBB2$\2102-\202\3560-\306H6>\204\374\307\351!\210\352H\206\347\327\261\210\306H6>\204\307\353!\210\354H\203\332\313\355\317\320\211\21101\203\303\3210!29\205B\322\323\324\325!\"!3\f\203L\f\202b\205b\2119A@);\205b\2119A@)43\2034\203z4\327\330\3273\260\202\2003\202\200\f59\203\216J\202\220\331\3062G\332\333\334\205\255\335\336\337\3405\257\205\264\341D\"BBBB2$\2102-\202\3050-\306H6>\204\323\307\353!\210\354H\327\261\210:\205\232\313\356\317\320\211\21101\203\200\3210!29\205\322\323\324\325!\"!3\f\203\f\202\205\326!;\205\326!43\203<4\20374\327\330\3273\260\202=3\202=\f59\203KJ\202M\331\3062G\332\333\334\205j\335\336\337\3405\257\205q\341D\"BBBB2$\2102-\202\2020-\306H6>\204\220\307\357!\210\311H\206\227\347\327\261)\207" [elem cl-struct-dvc-revlist-entry-patch-tags dvc-mark struct help menu 0 error "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 2 " " "   " "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "changeset: " dvc-header nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu "xhg-revision-st-changeset accessing a non-xhg-revision-st" 1 dvc-revision-name "user:      " "xhg-revision-st-creator accessing a non-xhg-revision-st" "?" "timestamp: " "xhg-revision-st-date accessing a non-xhg-revision-st" 5 "xhg-revision-st-tag accessing a non-xhg-revision-st" 4 "tag:       " "summary:   " "xhg-revision-st-message accessing a non-xhg-revision-st" str dvc-highlight strcpy key-help prefix-help long-help cl-struct-xhg-revision-st-tags dvc-revisions-shows-creator dvc-revisions-shows-date x dvc-revisions-shows-summary] 16])
(defalias 'xhg-dvc-log-parse #[(log-buffer location) "eb\210\306\307\310\211\211\211\211&\310\211d`V\203\367 \311 \210\312\313!\203\264 \314\315!\314\316!\n\317\230\203D \320H>\204< \321\322!\210\315	I\210\202\261 \n\323\230\203^ \320H>\204V \321\324!\210\325	I\210\202\261 \n\326\230\203x \320H>\204p \321\327!\210\330	I\210\202\261 \n\331\230\203\222 \320H>\204\212 \321\332!\210\333	I\210\202\261 \n\334\230\203\254 \320H>\204\244 \321\335!\210\316	I\210\202\261 \336\337\n\"\210\315y\210\312\340!\203 r(q\210\341)\342\306\343\344\310\344\345\346\f\320H>\204\330 \321\347!\210\315HEDD\310\211\211&D\"\210)\306\307\310\211\211\211\211&\315y\210\202 ,r(q\210eb)\207" [location field-value field elem root cl-struct-xhg-revision-st-tags vector cl-struct-xhg-revision-st nil beginning-of-line looking-at "^\\([a-z][a-z ]*[a-z]\\): +\\(.+\\)$" match-string-no-properties 1 2 "changeset" 0 error "xhg-revision-st-changeset storing a non-xhg-revision-st" "user" "xhg-revision-st-creator storing a non-xhg-revision-st" 3 "tag" "xhg-revision-st-tag storing a non-xhg-revision-st" 4 "date" "xhg-revision-st-date storing a non-xhg-revision-st" 5 "summary" "xhg-revision-st-message storing a non-xhg-revision-st" dvc-trace "xhg-dvc-log-parse: unmanaged field %S" "^$" ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch xhg revision local "xhg-revision-st-changeset accessing a non-xhg-revision-st" log-buffer dvc-revlist-cookie] 14])
#@35 Show a dvc formatted log for xhg.
(defalias 'xhg-dvc-log #[(path last-n) "\303\304\305\306\206	 	!\307\310\311\n\312\313\314\315\316\nDDEE&	\207" [path default-directory last-n dvc-build-revision-list xhg log xhg-tree-root ("log") xhg-dvc-log-parse t lambda nil apply #[(#1=#:dvc-gensym-uniq-164 #2=#:dvc-gensym-uniq-163) "\302	\"\207" [#2# #1# xhg-dvc-log] 3] quote] 16 (#$ . 13346) (list default-directory nil)])
(defalias 'xhg-revlog-get-revision #[(rev-id) "\302!@\211@\303=\203 \304\305\306\307\310	8E\311\312$\202 \313\314	\")\207" [rev-id rev dvc-revision-get-data local dvc-run-dvc-sync xhg "log" "-r" 2 :finished dvc-output-buffer-handler error "Not implemented (rev=%s)"] 7])
(defalias 'xhg-name-construct #[(rev-id) "@\301=\203 A@\207\302\303\"\207" [rev-id local error "Not implemented (rev-id=%s)"] 3])
(provide 'xhg-revision)