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

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


(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put xgit-revision-st-commit cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xgit-revision-st-commit (or (and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) (error "xgit-revision-st-commit accessing a non-xgit-revision-st")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-commit #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-commit accessing a non-xgit-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 xgit-revision-st-commit setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-commit #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 1] 6] xgit-revision-st-tree cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xgit-revision-st-tree (or #1# (error "xgit-revision-st-tree accessing a non-xgit-revision-st")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-tree #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-tree accessing a non-xgit-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 xgit-revision-st-tree setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-tree #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 2] 6] xgit-revision-st-parent cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xgit-revision-st-parent (or #1# (error "xgit-revision-st-parent accessing a non-xgit-revision-st")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-parent #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-parent accessing a non-xgit-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 xgit-revision-st-parent setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-parent #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 3] 6] xgit-revision-st-author cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xgit-revision-st-author (or #1# (error "xgit-revision-st-author accessing a non-xgit-revision-st")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-author #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-author accessing a non-xgit-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 xgit-revision-st-author setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-author #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 4] 6] xgit-revision-st-committer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xgit-revision-st-committer (or #1# (error "xgit-revision-st-committer accessing a non-xgit-revision-st")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-committer #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-committer accessing a non-xgit-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 xgit-revision-st-committer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-committer #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 5] 6] xgit-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 xgit-revision-st-date (or #1# (error "xgit-revision-st-date accessing a non-xgit-revision-st")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-date #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-date accessing a non-xgit-revision-st" 6] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xgit-revision-st-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-date #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 6] 6] xgit-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 xgit-revision-st-message (or #1# (error "xgit-revision-st-message accessing a non-xgit-revision-st")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-message #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-message accessing a non-xgit-revision-st" 7] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xgit-revision-st-message setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-message (and #1=(memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 7] 6] xgit-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 xgit-revision-st-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xgit-revision-st-p #[(cl-x) "\302!\205 G\303Y\205 \304H	>\205 \305\207" [cl-x cl-struct-xgit-revision-st-tags vectorp 8 0 t] 2])
(defalias 'copy-xgit-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-xgit-revision-st cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\203_ @\315>\203F AA\211\2021 \316>A@\203U \317\211\2021 \320\321@\"\210\202/ )\322\323\324\325\317	\n\f&\f.\207" [#1# commit tree parent author committer :commit :tree :parent :author :committer :date :message (:commit :tree :parent :author :committer :date :message :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:commit :tree :parent :author :committer :date :message)" cl-defsubst-expand (commit tree parent author committer date message) (block make-xgit-revision-st (vector 'cl-struct-xgit-revision-st commit tree parent author committer date message)) t date message #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key COMMIT TREE PARENT AUTHOR COMMITTER DATE MESSAGE)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@76 Not documented

(fn &key COMMIT TREE PARENT AUTHOR COMMITTER DATE MESSAGE)
(defalias 'make-xgit-revision-st #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\203_ @\315>\203F AA\211\2021 \316>A@\203U \317\211\2021 \320\321@\"\210\202/ )\322\323	\n\f&.\207" [#1# commit tree parent author committer :commit :tree :parent :author :committer :date :message (:commit :tree :parent :author :committer :date :message :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:commit :tree :parent :author :committer :date :message)" vector cl-struct-xgit-revision-st date message #2=#:--cl-keys--] 10 (#$ . 8044)])
(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#\210\304\330\317\315#\210\304\331\317\315#\207" [custom-print-functions cl-struct-xgit-revision-st-tags #[(cl-x cl-s cl-n) "\303!\205\310 G\304Y\205\310 \305H	>\205\310 \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\311\305H	>\204\244 \312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H	>\204\274 \312\335!\210\336H\n\"\210\306\337\n\"\210\340\207" [cl-x cl-struct-xgit-revision-st-tags cl-s vectorp 8 0 princ "#S(xgit-revision-st" " commit" prin1 error "xgit-revision-st-commit accessing a non-xgit-revision-st" 1 " tree" "xgit-revision-st-tree accessing a non-xgit-revision-st" 2 " parent" "xgit-revision-st-parent accessing a non-xgit-revision-st" 3 " author" "xgit-revision-st-author accessing a non-xgit-revision-st" 4 " committer" "xgit-revision-st-committer accessing a non-xgit-revision-st" 5 " date" "xgit-revision-st-date accessing a non-xgit-revision-st" 6 " message" "xgit-revision-st-message accessing a non-xgit-revision-st" 7 ")" t] 3] cl-struct-xgit-revision-st put xgit-revision-st cl-struct-slots ((cl-tag-slot) (commit) (tree) (parent) (author) (committer) (date) (message)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-xgit-revision-st side-effect-free copy-xgit-revision-st xgit-revision-st-p error-free xgit-revision-st-message xgit-revision-st-date xgit-revision-st-committer xgit-revision-st-author xgit-revision-st-parent xgit-revision-st-tree xgit-revision-st-commit] 4)
(defalias 'xgit-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67\203\314 \3216!89\205S \322\323\324\325!\"!9\f\203] \f\202k \205k \326!;\205k \326!:9\203\210 :\203\203 :\327\330\3279\260\202\211 9\202\211 \f;9\203\227 J\202\231 \331\3068G\332\333\334\205\266 \335\336\337\340;\257\205\275 \341D\"BBBB8$\2108-\202\316 6-\306H<>\204\334 \307\342!\210\343H\344\320\211\21167\203~\3216!89\205\322\323\324\325!\"!9\f\203\f\202\205\326!;\205\326!:9\203::\2035:\327\330\3279\260\202;9\202;\f;9\203IJ\202K\331\3068G\332\333\334\205h\335\336\337\340;\257\205o\341D\"BBBB8$\2108-\202\2006-\327\261\210\306H<>\204\222\307\345!\210\311H\203\313\346\317\320\211\21167\203A\3216!89\205\300\322\323\324\325!\"!9\f\203\312\f\202\340\205\340\211=A@);\205\340\211=A@):9\203\375:\203\370:\327\330\3279\260\202\3769\202\376\f;9\203\fJ\202\331\3068G\332\333\334\205+\335\336\337\340;\257\2052\341D\"BBBB8$\2108-\202C6-\306H<>\204Q\307\345!\210\311H\344\320\211\21167\203\373\3216!89\205z\322\323\324\325!\"!9\f\203\204\f\202\232\205\232\211=A@);\205\232\211=A@):9\203\267:\203\262:\327\330\3279\260\202\2709\202\270\f;9\203\306J\202\310\331\3068G\332\333\334\205\345\335\336\337\340;\257\205\354\341D\"BBBB8$\2108-\202\3756-\327\261\210\306H<>\204\307\347!\210\315H\203\313\350\317\320\211\21167\203\276\3216!89\205=\322\323\324\325!\"!9\f\203G\f\202]\205]\211=A@);\205]\211=A@):9\203z:\203u:\327\330\3279\260\202{9\202{\f;9\203\211J\202\213\331\3068G\332\333\334\205\250\335\336\337\340;\257\205\257\341D\"BBBB8$\2108-\202\3006-\306H<>\204\316\307\347!\210\315H\344\320\211\21167\203x\3216!89\205\367\322\323\324\325!\"!9\f\203\f\202\205\211=A@);\205\211=A@):9\2034:\203/:\327\330\3279\260\20259\2025\f;9\203CJ\202E\331\3068G\332\333\334\205b\335\336\337\340;\257\205i\341D\"BBBB8$\2108-\202z6-\327\261\210>\203\374\313\351\317\320\211\21167\203%\3216!89\205\254\322\323\324\325!\"!9\f\203\266\f\202\304\205\304\326!;\205\304\326!:9\203\341:\203\334:\327\330\3279\260\202\3429\202\342\f;9\203\360J\202\362\331\3068G\332\333\334\205\335\336\337\340;\257\205\341D\"BBBB8$\2108-\202'6-\306H<>\2045\307\352!\210\353H\206<\354\327\261\210\313\355\317\320\211\21167\203\341\3216!89\205h\322\323\324\325!\"!9\f\203r\f\202\200\205\200\326!;\205\200\326!:9\203\235:\203\230:\327\330\3279\260\202\2369\202\236\f;9\203\254J\202\256\331\3068G\332\333\334\205\313\335\336\337\340;\257\205\322\341D\"BBBB8$\2108-\202\3436-\306H<>\204\361\307\356!\210\357H\206\370\354\327\261\210?\203\275\313\360\317\320\211\21167\203\242\3216!89\205)\322\323\324\325!\"!9\f\2033\f\202A\205A\326!;\205A\326!:9\203^:\203Y:\327\330\3279\260\202_9\202_\f;9\203mJ\202o\331\3068G\332\333\334\205\214\335\336\337\340;\257\205\223\341D\"BBBB8$\2108-\202\2446-\306H<>\204\262\307\361!\210\362H\206\271\354\327\261\210@\205}\313\363\317\320\211\21167\203c\3216!89\205\352\322\323\324\325!\"!9\f\203\364\f\202\205\326!;\205\326!:9\203:\203:\327\330\3279\260\202 9\202 \f;9\203.J\2020\331\3068G\332\333\334\205M\335\336\337\340;\257\205T\341D\"BBBB8$\2108-\202e6-\306H<>\204s\307\364!\210\365H\206z\354\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 "commit:    " 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 "xgit-revision-st-commit accessing a non-xgit-revision-st" 1 dvc-revision-name "xgit-revision-st-tree accessing a non-xgit-revision-st" "tree:      " "xgit-revision-st-parent accessing a non-xgit-revision-st" "parent:    " "author:    " "xgit-revision-st-author accessing a non-xgit-revision-st" 4 "?" "committer: " "xgit-revision-st-committer accessing a non-xgit-revision-st" 5 "timestamp: " "xgit-revision-st-date accessing a non-xgit-revision-st" 6 "summary:   " "xgit-revision-st-message accessing a non-xgit-revision-st" 7 str dvc-highlight strcpy key-help prefix-help long-help cl-struct-xgit-revision-st-tags x dvc-revisions-shows-creator dvc-revisions-shows-date dvc-revisions-shows-summary] 17])
(defalias 'xgit-dvc-log-parse #[(log-buffer) "eb\210\306 \307\310\311\211\211\211\211\211\211&\311\211d`V\203\312 \210\313\314!\203\267 \315\316!\315\317!	\320\230\203G \n\321H\f>\204? \322\323!\210\n\316I\210\202\264 	\324\230\203a \n\321H\f>\204Y \322\325!\210\n\317I\210\202\264 	\326\230\203{ \n\321H\f>\204s \322\327!\210\n\330I\210\202\264 	\331\230\203\225 \n\321H\f>\204\215 \322\332!\210\n\333I\210\202\264 	\334\230\203\257 \n\321H\f>\204\247 \322\335!\210\n\336I\210\202\264 \337\340	\"\210\316y\210\313\341!\203 \342\343\311\344#\204\310 db\210rq\210\345,\346\307\347\350\311\n\350\351\352\n\321H\f>\204\345 \322\353!\210\n\316HEDD\311\211\211&D\"\210)\307\310\311\211\211\211\211\211\211&\202 ,rq\210eb)\207" [field-value field elem root cl-struct-xgit-revision-st-tags log-buffer xgit-tree-root vector cl-struct-xgit-revision-st nil beginning-of-line looking-at "^\\([a-z]+\\) +\\(.+\\)$" match-string-no-properties 1 2 "commit" 0 error "xgit-revision-st-commit storing a non-xgit-revision-st" "tree" "xgit-revision-st-tree storing a non-xgit-revision-st" "parent" "xgit-revision-st-parent storing a non-xgit-revision-st" 3 "author" "xgit-revision-st-author storing a non-xgit-revision-st" 4 "committer" "xgit-revision-st-committer storing a non-xgit-revision-st" 5 dvc-trace "xgit-dvc-log-parse: unmanaged field %S" "^$" re-search-forward "^commit" t ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch xgit revision local "xgit-revision-st-commit accessing a non-xgit-revision-st" dvc-revlist-cookie] 14])
(provide 'xgit-revision)