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

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


(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\312B\313\312!\204/ \314\312\315\"\210\316\312!\210\317B\313\317!\204B \314\317\315\"\210\316\317!\207" [current-load-list require cl dvc-unified dvc-revlist xmtn-ids xmtn-basic-io xmtn-automate xmtn-match xmtn-dvc xmtn--revlist-*info-generator-fn* default-boundp set-default nil make-variable-buffer-local xmtn--revlist-*merge-destination-branch*] 3)
(defalias 'xmtn--escape-branch-name-for-selector #[(branch-name) "\301\302\"\203 \303\304\305C\"\210\301\306\"\203 \303\304\307C\"\210\301\310\"\203' \303\304\311C\"\210\301\312\"\2034 \303\304\313C\"\210\301\314\"\203A \303\304\315C\"\210\301\316\"\203N \303\304\317C\"\210\301\320\"\203[ \303\304\321C\"\210\207" [branch-name position 42 signal cl-assertion-failed (not (position 42 branch-name)) 63 (not (position 63 branch-name)) 92 (not (position 92 branch-name)) 123 (not (position 123 branch-name)) 125 (not (position 125 branch-name)) 91 (not (position 91 branch-name)) 93 (not (position 93 branch-name))] 3])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put xmtn--revlist-entry-revision-hash-id cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-revision-hash-id (or (and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) (error "xmtn--revlist-entry-revision-hash-id accessing a non-xmtn--revlist-entry")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-revision-hash-id #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-revision-hash-id accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-revision-hash-id setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-revision-hash-id #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 1] 6] xmtn--revlist-entry-branches cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-branches (or #1# (error "xmtn--revlist-entry-branches accessing a non-xmtn--revlist-entry")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-branches #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-branches accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-branches setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-branches #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 2] 6] xmtn--revlist-entry-authors cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-authors (or #1# (error "xmtn--revlist-entry-authors accessing a non-xmtn--revlist-entry")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-authors #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-authors accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-authors setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-authors #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 3] 6] xmtn--revlist-entry-dates cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-dates (or #1# (error "xmtn--revlist-entry-dates accessing a non-xmtn--revlist-entry")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-dates #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-dates accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-dates setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-dates #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 4] 6] xmtn--revlist-entry-changelogs cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-changelogs (or #1# (error "xmtn--revlist-entry-changelogs accessing a non-xmtn--revlist-entry")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-changelogs #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-changelogs accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-changelogs setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-changelogs #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 5] 6] xmtn--revlist-entry-tags cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-tags (or #1# (error "xmtn--revlist-entry-tags accessing a non-xmtn--revlist-entry")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-tags #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-tags accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-tags setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-tags #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 6] 6] xmtn--revlist-entry-parent-hash-ids cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-parent-hash-ids (or #1# (error "xmtn--revlist-entry-parent-hash-ids accessing a non-xmtn--revlist-entry")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-parent-hash-ids #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-parent-hash-ids accessing a non-xmtn--revlist-entry" 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 xmtn--revlist-entry-parent-hash-ids setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-parent-hash-ids #1=(and (memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 7] 6] xmtn--revlist-entry-child-hash-ids cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-child-hash-ids (or #1# (error "xmtn--revlist-entry-child-hash-ids accessing a non-xmtn--revlist-entry")) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-child-hash-ids #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-xmtn--revlist-entry-tags 0 error "xmtn--revlist-entry-child-hash-ids accessing a non-xmtn--revlist-entry" 8] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put xmtn--revlist-entry-child-hash-ids setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn--revlist-entry xmtn--revlist-entry-child-hash-ids (and #1=(memq (aref cl-x 0) cl-struct-xmtn--revlist-entry-tags)) 8] 6] xmtn--revlist-entry-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn--revlist-entry-p (and (vectorp cl-x) (>= (length cl-x) 9) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'xmtn--revlist-entry-p #[(cl-x) "\302!\205 G\303Y\205 \304H	>\205 \305\207" [cl-x cl-struct-xmtn--revlist-entry-tags vectorp 9 0 t] 2])
(defalias 'copy-xmtn--revlist-entry #[(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 xmtn--make-revlist-entry cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\203f @\316>\203M AA\211\2028 \317>A@\203\\ \320\211\2028 \321\322@\"\210\2026 )\323\324\325\326\320	\n\f&.\207" [#1# revision-hash-id branches authors dates changelogs :revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids (:revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids)" cl-defsubst-expand (revision-hash-id branches authors dates changelogs tags parent-hash-ids child-hash-ids) (block xmtn--make-revlist-entry (vector 'cl-struct-xmtn--revlist-entry revision-hash-id branches authors dates changelogs tags parent-hash-ids child-hash-ids)) t tags parent-hash-ids child-hash-ids #:--cl-keys-- cl-whole] 15 "Not documented\n\n(fn CL-WHOLE &cl-quote &key REVISION-HASH-ID BRANCHES AUTHORS DATES CHANGELOGS TAGS PARENT-HASH-IDS CHILD-HASH-IDS)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@114 Not documented

(fn &key REVISION-HASH-ID BRANCHES AUTHORS DATES CHANGELOGS TAGS PARENT-HASH-IDS CHILD-HASH-IDS)
(defalias 'xmtn--make-revlist-entry #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\203f @\316>\203M AA\211\2028 \317>A@\203\\ \320\211\2028 \321\322@\"\210\2026 )\323\324	\n\f&	.\207" [#1# revision-hash-id branches authors dates changelogs :revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids (:revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revision-hash-id :branches :authors :dates :changelogs :tags :parent-hash-ids :child-hash-ids)" vector cl-struct-xmtn--revlist-entry tags parent-hash-ids child-hash-ids #2=#:--cl-keys--] 11 (#$ . 10783)])
(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#\210\304\332\317\315#\207" [custom-print-functions cl-struct-xmtn--revlist-entry-tags #[(cl-x cl-s cl-n) "\303!\205\340 G\304Y\205\340 \305H	>\205\340 \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\311\305H	>\204\324 \312\340!\210\341H\n\"\210\306\342\n\"\210\343\207" [cl-x cl-struct-xmtn--revlist-entry-tags cl-s vectorp 9 0 princ "#S(xmtn--revlist-entry" " revision-hash-id" prin1 error "xmtn--revlist-entry-revision-hash-id accessing a non-xmtn--revlist-entry" 1 " branches" "xmtn--revlist-entry-branches accessing a non-xmtn--revlist-entry" 2 " authors" "xmtn--revlist-entry-authors accessing a non-xmtn--revlist-entry" 3 " dates" "xmtn--revlist-entry-dates accessing a non-xmtn--revlist-entry" 4 " changelogs" "xmtn--revlist-entry-changelogs accessing a non-xmtn--revlist-entry" 5 " tags" "xmtn--revlist-entry-tags accessing a non-xmtn--revlist-entry" 6 " parent-hash-ids" "xmtn--revlist-entry-parent-hash-ids accessing a non-xmtn--revlist-entry" 7 " child-hash-ids" "xmtn--revlist-entry-child-hash-ids accessing a non-xmtn--revlist-entry" 8 ")" t] 3] cl-struct-xmtn--revlist-entry put xmtn--revlist-entry cl-struct-slots ((cl-tag-slot) (revision-hash-id) (branches) (authors) (dates) (changelogs) (tags) (parent-hash-ids) (child-hash-ids)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t xmtn--make-revlist-entry side-effect-free copy-xmtn--revlist-entry xmtn--revlist-entry-p error-free xmtn--revlist-entry-child-hash-ids xmtn--revlist-entry-parent-hash-ids xmtn--revlist-entry-tags xmtn--revlist-entry-changelogs xmtn--revlist-entry-dates xmtn--revlist-entry-authors xmtn--revlist-entry-branches xmtn--revlist-entry-revision-hash-id] 4)
(defalias 'xmtn-revision-refresh-maybe #[nil "\300\207" [nil] 1])
(defalias 'xmtn-revision-list-entry-patch-printer #[(patch) "\306H	>\204\f \307\310!\210\311H\312\n!\203% \nG\313Y\203% \n\306H>\204+ \314\315\316C\"\210\317\320\306H	>\2049 \307\321!\210\322H\203C \323\202D \324\n\306H>\204P \307\325!\210\n\326H\n\306H>\204_ \307\327!\210\n\330H?\n\306H>\204o \307\331!\210\n\332H?\211\203\201 \f\203\201 \333\202\222 \203\211 \334\202\222 \f\203\221 \335\202\222 \336*$c\210\n\306H>\204\242 \307\337!\210\n\340H\3412\2113\203\303 3@2\317\3422\"c\2103A\2113\204\256 *\n\306H>\204\320 \307\343!\210\n\311H\n\306H>\204\337 \307\344!\210\n\345H\n\306H>\204\356 \307\346!\210\n\347H45\2116G5G]4G]7\3506\35176GZ\341\"\"6\3505\35175GZ\341\"\"5\3504\35174GZ\341\"\"46G\247\203@6G7\232\202F6G7=\204g\3074G\247\203Z4G7\232\202`4G7=6G7#\210)68\34195:\341;4<\341=8:\203<8@9::\203<:@;<:\203<<@=>\203\274?\203\274\317\352;\206\260\3539\206\266\354#c\210\202\337>\203\317\317\355;\206\311\353\"c\210\202\337?\203\337\317\3559\206\334\354\"c\210@\203*=\204\361\317\356!c\210\202*\357=\360\"AB\203	A\205A@C\202A\341C\211D\203)D@C\317\361C\"c\210DA\211D\204+8A8:A:<A<\202}.\n\341\207" [patch cl-struct-dvc-revlist-entry-patch-tags entry cl-struct-xmtn--revlist-entry-tags root-p head-p 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 vectorp 9 signal cl-assertion-failed (typep entry 'xmtn--revlist-entry) format " %s %s%s\n" "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 2 "*" " " "xmtn--revlist-entry-revision-hash-id accessing a non-xmtn--revlist-entry" 1 "xmtn--revlist-entry-child-hash-ids accessing a non-xmtn--revlist-entry" 8 "xmtn--revlist-entry-parent-hash-ids accessing a non-xmtn--revlist-entry" 7 " (head, root)" " (head)" " (root)" "" "xmtn--revlist-entry-tags accessing a non-xmtn--revlist-entry" 6 nil "   Tag: %s\n" "xmtn--revlist-entry-authors accessing a non-xmtn--revlist-entry" "xmtn--revlist-entry-dates accessing a non-xmtn--revlist-entry" 4 "xmtn--revlist-entry-changelogs accessing a non-xmtn--revlist-entry" 5 append make-list "   %s  %s\n" "date unknown" "author unknown" "   %s\n" "   No changelog" split-string "\n" "     %s\n" tag #1=#:--cl-dolist-temp-- changelogs dates authors len #2=#:--cl-var-- author #3=#:--cl-var-- date #4=#:--cl-var-- changelog dvc-revisions-shows-date dvc-revisions-shows-creator dvc-revisions-shows-summary lines dvc-revlist-brief line #5=#:--cl-dolist-temp--] 8])
(defalias 'xmtn--revlist-setup-ewoc #[(root ewoc header footer revision-hash-ids last-n) "\306\307\"\204 \310\311\312C\"\210\313	\n#\210\314	\315\"\210\316\f!\317!\320\"A\321\2039  \210\202] \322\216\323\"\211B+B \210*,\324\207" [revision-hash-ids ewoc header footer root #1=#:G70979 every #[#2=(x) ";\205 \301!\207" [x xmtn--hash-id-p] 2] signal cl-assertion-failed (every (lambda #2# (typep x 'xmtn--hash-id)) revision-hash-ids) ewoc-set-hf ewoc-filter #[(x) "\300\207" [nil] 1] file-name-as-directory file-truename assoc #[nil "\306\n\"\f\203 G\211\fV\203 \fZ\233)\307\310\"\211G\311\312G\313=\203/ \314\2024 \315\316G\"\311G#)*+*+W\2035\317\320!\317\321!\317\322!\317\323!\317\324!\317\325!,-./0\2111*HL\2100\326L\210/\326L\210.\326L\210-\326L\210,\326L\210\327\n1J\330\331\332\333\334,D\334-D\334.D\334/D\3340D\3341D\335\257	E#\210/\211J\237L\210.\211J\237L\210-\211J\237L\2100\211J\237L\210,\211J\237L\210\336\n\3371JD\"\336\n\3401JD\"23\3414\342\310\343\344\326\310\3451J0J/J.J-J,J32&	\344\3461JDD\326\211\211&D\"\210.)*T\211*5656@Y\2031\34765\"\210*\202> \350)!\210,\326\207" [#3=#:G70978 session root revision-hash-ids last-n len xmtn--toposort coerce vector 0 make-progress-reporter 1 "Setting up revlist buffer (1 revision)..." format "Setting up revlist buffer (%s revisions)..." make-symbol "--rev--" "--branches--" "--authors--" "--dates--" "--changelogs--" "--tags--" nil xmtn--map-parsed-certs lambda (&rest --cl-rest--) apply #[(#4=#:G70982 #5=#:G70983 #6=#:G70984 #7=#:G70985 #8=#:G70986 #9=#:G70987 key signature name value trusted) "\205J 	\306\232\203 \n\nJBL\207	\307\232\203 \f\fJBL\207	\310\232\203+ JBL\207	\311\232\203: \f\fJBL\207	\312\232\203I JBL\207\313\207" [trusted name #7# value #6# #5# "author" "date" "changelog" "branch" "tag" nil #8# #4#] 3] quote --cl-rest-- xmtn-automate-simple-command-output-lines "parents" "children" ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch xmtn cl-struct-xmtn--revlist-entry revision progress-reporter-do-update progress-reporter-done #10=#:--dotimes-temp2-- i #11=#:--dotimes-temp-- #12=#:--cl-tags-- #13=#:--cl-changelogs-- #14=#:--cl-dates-- #15=#:--cl-authors-- #16=#:--cl-branches-- #17=#:--cl-rev-- child-hash-ids parent-hash-ids ewoc value reporter] 18] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session nil #18=#:G70980 xmtn-automate--*sessions* #3# #19=#:G70981 alist value key] 5])
(defalias 'xmtn-revision-st-message #[(entry) "\302\303\304H	>\204 \305\306!\210\307H\310#\207" [entry cl-struct-xmtn--revlist-entry-tags mapconcat identity 0 error "xmtn--revlist-entry-changelogs accessing a non-xmtn--revlist-entry" 5 "\n"] 4])
(defalias 'xmtn--revlist-refresh #[nil "\n	!\211G\306U\203 \211A@\202 \307\310\311GD\"\211A@\211A@@\f\312	\313\314!\315\216rq\210\311\211\203m @\211\204^ \316c\210\202d \316\261\210A\211\204O *\203u \316c\210\317 +\313\314!\320\216rq\210\203\214 \316c\210\311\211\203\265 @\211\204\246 \316c\210\202\254 \316\261\210A\211\204\227 *\317 +&\210\321\322\"\204\316 db\210\202\330 \323\321\322\"\"\210.\311\207" [default-directory root xmtn--revlist-*info-generator-fn* #1=#:--cl-rest-- merge-destination-branch header-lines 4 signal wrong-number-of-arguments nil xmtn--revlist-setup-ewoc generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) 10 buffer-string ((byte-code "\301!\203\n \302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) ewoc-nth 0 ewoc-goto-node footer-lines revision-hash-ids xmtn--revlist-*merge-destination-branch* dvc-revlist-cookie ewoc #2# line #4=#:--cl-dolist-temp-- #3# #5=#:--cl-dolist-temp-- dvc-revlist-last-n] 8])
(defalias 'xmtn--setup-revlist #[(root info-generator-fn first-line-only-p last-n) "\306!\307	!\310\n\"A\311\f\203  \210\2027 \312\216\313	\n\"\n\f\211B+B \210*,\314\207" [root #1=#:G70990 #2=#:G70991 xmtn-automate--*sessions* #3=#:G70988 #4=#:G70992 file-name-as-directory file-truename assoc #[nil "\306\307\310\n\311\f&rq\210\312 \210\311 \210)\313\314\"*\207" [#3# #5=#:G70989 root first-line-only-p last-n buffer dvc-revlist-create-buffer xmtn log xmtn--revlist-refresh dvc-revlist-mode xmtn--display-buffer-maybe nil info-generator-fn xmtn--revlist-*info-generator-fn*] 7] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session nil alist value key] 4])
(defalias 'xmtn-dvc-log #[(path last-n) "\303	\304\n$\207" [default-directory path last-n xmtn--log-helper t] 5])
(defalias 'xmtn-log #[(&optional path last-n) "\303t\203\f \304\305!\202 \305	\n\")\207" [dvc-temp-current-active-dvc path last-n xmtn call-interactively dvc-log] 3 nil nil])
(defalias 'xmtn-dvc-changelog #[(&optional path) "\301\302 \303\211$\207" [path xmtn--log-helper dvc-tree-root nil] 5])
(defalias 'xmtn--log-helper #[(root path first-line-only-p last-n) "\203 \304\305	\n$\207\306\307	\n$\207" [path first-line-only-p last-n root xmtn-list-revisions-modifying-file nil xmtn--setup-revlist #[(root) "\306!\307	!\310\n\"A\311\f\203  \2025 \312\216\313	\n\"\n\f\f\211B\f+B *,\207" [root #1=#:G70995 #2=#:G70996 xmtn-automate--*sessions* #3=#:G70993 #4=#:G70997 file-name-as-directory file-truename assoc #[nil "\305\n!\211\f\203 \306\307\f#\202 \306\310\"C\311\312\n\313\314!P\"F*\207" [#3# #5=#:G70994 root branch last-n xmtn--tree-default-branch format "Log for branch %s (last %d entries):" "Log for branch %s (all entries):" nil xmtn--expand-selector "b:" xmtn--escape-branch-name-for-selector] 9] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4]] 5])
(defalias 'xmtn--revlist--missing-get-info #[(root branch new-revision-hash-ids) "\306!\307	!\310\n\"A\311\f\203  \2025 \312\216\313	\n\"\n\f\f\211B\f+B *,\207" [root #1=#:G71000 #2=#:G71001 xmtn-automate--*sessions* #3=#:G70998 #4=#:G71002 file-name-as-directory file-truename assoc #[nil "\306\n!\307\310\n\311\312\f\"\"!\313\314\n\"\313\315\"\313\316\"\317\320\321\f\"\322\fG\323=\2030 \324\2021 \325G\326=\203B \313\327\"\202X G\323=\203Q \313\330\"\202X \313\331G#)D\"BBB\322F+\207" [#3# #5=#:G70999 root base-revision-hash-id new-revision-hash-ids difference xmtn--get-base-revision-hash-id delete-duplicates xmtn--toposort mapcan #[(new-revision-hash-id) "\303\304	\nE\"\207" [root new-revision-hash-id base-revision-hash-id xmtn-automate-simple-command-output-lines "ancestry_difference"] 5] format "Tree %s" "Branch %s" "Base revision   %s" append mapcar #[(hash-id) "\301\302\"\207" [hash-id format "Target revision %s"] 3] nil 1 "revision" "revisions" 0 "No ancestors of target %s that are not in base revision" "1 revision in target %s that is not in base revision:" "%s revisions in target %s that are not in base revision:" branch target-rev-string] 11] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4])
(defalias 'xmtn-dvc-missing #[(&optional other) "\301 \302\303\304\211$\210)\304\207" [root dvc-tree-root xmtn--setup-revlist #[(root) "\306!\307	!\310\n\"A\311\f\203  \2025 \312\216\313	\n\"\n\f\f\211B\f+B *,\207" [root #1=#:G71005 #2=#:G71006 xmtn-automate--*sessions* #3=#:G71003 #4=#:G71007 file-name-as-directory file-truename assoc #[nil "\305\n!\306\n\"\307\n\f#+\207" [#3# #5=#:G71004 root branch heads xmtn--tree-default-branch xmtn--heads xmtn--revlist--missing-get-info] 4] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4] nil] 5])
#@67 Display a revlist buffer showing the heads of the current branch.
(defalias 'xmtn-view-heads-revlist #[nil "\301 \302\303\304\211$\210)\304\207" [root dvc-tree-root xmtn--setup-revlist #[(root) "\306!\307	!\310\n\"A\311\f\203  \2025 \312\216\313	\n\"\n\f\f\211B\f+B *,\207" [root #1=#:G71010 #2=#:G71011 xmtn-automate--*sessions* #3=#:G71008 #4=#:G71012 file-name-as-directory file-truename assoc #[nil "\306\n!\307\n\"\211G\310\311\n\"\310\312\"\313=\203! \314\202/ \315=\203+ \316\202/ \310\317\"E\320\fF,\207" [#3# #5=#:G71009 root branch head-revision-hash-ids head-count xmtn--tree-default-branch xmtn--heads format "Tree %s" "Branch %s" 0 "No head revisions (branch empty (or circular ;))" 1 "1 head revision:" "%s head revisions: " nil] 7] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4] nil] 5 (#$ . 24655) nil])
#@236 Display a revlist buffer showing the revisions that modify FILE.

Only ancestors of revision LAST-BACKEND-ID will be considered.
FILE is a file name in revision LAST-BACKEND-ID, which defaults
to the base revision of the current tree.
(defalias 'xmtn-list-revisions-modifying-file #[(file &optional last-backend-id first-line-only-p last-n) "\306 \307	\"\204 \310\311BB\312\313!\312\314!\211L\210\f	L\210\315\316\317\320\321\322\fD\322D\323\257E$,\207" [root file normalized-file last-backend-id #1=#:--cl-file-- #2=#:--cl-last-backend-id-- dvc-tree-root xmtn--normalize-file-name last-revision (1) make-symbol "--last-backend-id--" "--file--" xmtn--setup-revlist lambda #3=(&rest --cl-rest--) apply #[(#4=#:G71020 #5=#:G71021 root) "\306!\307	!\310\n\"A\311\312\313\314\315D\315D\316\257E\f\203)  \202F \317\216\320	\n\"\n\f\211B+B *,\207" [root #6=#:G71015 #7=#:G71016 xmtn-automate--*sessions* #8=#:G71013 #4# file-name-as-directory file-truename assoc lambda #3# apply #[(#9=#:G71018 #10=#:G71019) "\306\n!\307\310\311\nJ\f#\"\211\203\" \312\313J#\202( \312\314J\"C\315F+\207" [#8# #11=#:G71014 root #10# normalized-file revision-hash-ids xmtn--tree-default-branch mapcar first xmtn--get-content-changed-closure format "Log for %s (last %d entries)" "Log for %s" nil branch last-n #9#] 8] quote --cl-rest-- ((byte-code "\203 \301!\210\301\207" [#8# xmtn-automate--close-session] 2)) xmtn-automate--make-session #5# #12=#:G71017 alist value key] 8] quote --cl-rest-- first-line-only-p last-n] 10 (#$ . 25595) "FList revisions modifying file: "])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list xmtn--*selector-history* default-boundp set-default nil] 3)
#@67 Display a revlist buffer showing the revisions matching SELECTOR.
(defalias 'xmtn-view-revlist-for-selector #[(selector) ";\204 \303\304\305\300E\"\210\306 \307\310!\211L\210\311	\312\313\314\315\316\nD\317FE\320\211$\210*\320\207" [selector root #1=#:--cl-selector-- signal wrong-type-argument string dvc-tree-root make-symbol "--selector--" xmtn--setup-revlist lambda #2=(&rest --cl-rest--) apply #[(#3=#:G71028 root) "\306!\307	!\310\n\"A\311\312\313\314\315D\316FE\f\203$  \202A \317\216\320	\n\"\n\f\211B+B *,\207" [root #4=#:G71024 #5=#:G71025 xmtn-automate--*sessions* #6=#:G71022 #3# file-name-as-directory file-truename assoc lambda #2# apply #[(#7=#:G71027) "\306\n!\307\n\fJ\"\211G\310\311\n\"\310\312\"\313 p\314\216\315\316 !\210\317\320\fJ\"+\2034 \321\2029 \310\322\fJ\"\323=\203D \324\202T \325=\203O \326\202T \310\327\"F\330F,\207" [#6# #8=#:G71023 root branch #7# revision-hash-ids xmtn--tree-default-branch xmtn--expand-selector format "Tree %s" "Default branch %s" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#9=#:buffer #10=#:table set-syntax-table] 2)) set-syntax-table standard-syntax-table string-match "\\`\\s *\\'" "Blank selector" "Selector %s" 0 "No revisions matching selector" 1 "1 revision matching selector:" "%s revisions matching selector: " nil count #9# #10#] 8] quote --cl-rest-- ((byte-code "\203 \301!\210\301\207" [#6# xmtn-automate--close-session] 2)) xmtn-automate--make-session #11=#:G71026 alist value key] 7] quote --cl-rest-- nil] 9 (#$ . 27354) (list (read-string "View revlist for selector: " nil 'xmtn--*selector-history* nil))])
(defalias 'xmtn-dvc-revlog-get-revision #[(revision-id) "\306 \307!\310	!\311\n\"A\312\f\203  \2028 \313\216\314	\n\"\n\f\211B+B *-\207" [root #1=#:G71031 #2=#:G71032 xmtn-automate--*sessions* #3=#:G71029 #4=#:G71033 dvc-tree-root file-name-as-directory file-truename assoc #[nil "\306\n\"\211\307\310\215+\207" [#3# #5=#:G71030 root revision-id backend-id #6=#:object-71034 xmtn--resolve-revision-id --cl-block-match-form-71035-- (byte-code "\306	:\203( 	@\307=\203( 	A\211:\205 \n@\nA\306=)\203( \310\311\312\313!\"\210)\306	:\203\201 	@\314=\203\201 	A\211:\205F \f@\fA\306=)\203\201 \310\311\315\316\317!!\211\320\321!\211\205_ \321K\322\216\321\323M\210\321\324\"\210\325\326#\210,rq\210\327 \330\306!\210*\"\210)\312\331\332	#\207" [path #6# #7=#:G71037 revision-hash-id #8=#:G71039 standard-output nil local-tree throw --cl-block-match-form-71035-- error "Not implemented" revision get-buffer-create generate-new-buffer-name " *string-output*" fboundp write-line ((byte-code "\203 \302	M\210\202 \303\302!\210\302\207" [#9=#:--cl-letf-bound-- #10=#:--cl-letf-save-- write-line fmakunbound] 2)) #[(format &rest args) "\302\303\300	#!\210\304 \207" [format args princ apply terpri] 5 "Not documented\n\n(fn FORMAT &rest ARGS)"] "Revision %s" xmtn--map-parsed-certs #[(key signature name value trusted) "\204	 \303\304	\"\207\303\305	\n#\207" [trusted name value write-line "Untrusted cert, name=%s" "%s: %s"] 4] buffer-string kill-buffer "Fell through %S: %S" xmtn-match #9# #10# root] 7)] 4] ((byte-code "\203 \301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4])
#@97 Run mtn explicit_merge on the two marked revisions.

To be invoked from an xmtn revlist buffer.
(defalias 'xmtn-revlist-explicit-merge #[nil "\306 \307 \211G\310=\204 \311\312	G\"\210\313\314	\"\n\211\211G\310U\203+ \211A@\2022 \315\316\317GD\"@\320\321\322$!\204I \311\323!\210\324$\210.\317\207" [root entries xmtn--revlist-*merge-destination-branch* destination-branch-name hash-ids #1=#:--cl-rest-- dvc-revision-marked-revisions dvc-tree-root 2 error "Precisely 2 revisions must be marked for merge, not %s" mapcar xmtn--revlist-entry-revision-hash-id signal wrong-number-of-arguments nil yes-or-no-p format "Merge revisions %s and %s onto branch %s? " "Aborted merge" xmtn--do-explicit-merge left right] 7 (#$ . 30681) nil])
#@91 Update current tree to the revision at point.

To be invoked from an xmtn revlist buffer.
(defalias 'xmtn-revlist-update #[nil "\304 \305 \211\306H\n>\204 \307\310!\210	\311H\312\"+\207" [root entry cl-struct-xmtn--revlist-entry-tags target-hash-id dvc-tree-root dvc-revlist-current-patch-struct 0 error "xmtn--revlist-entry-revision-hash-id accessing a non-xmtn--revlist-entry" 1 xmtn--update-after-confirmation] 4 (#$ . 31443) nil])
#@119 Disapprove the marked revisions, or the revision at point if none marked.

To be invoked from an xmtn revlist buffer.
(defalias 'xmtn-revlist-disapprove #[nil "\306 \307 \206 \310 C\311\312	\313\314\315\f\n$\"\205% \316\"\"-\211#G\317=\2039 \320\321\313C\"\210\313\202Q #G\322=\203K \323\324#\317\234\"\202Q \323\325#G\"$\326\327#\"\204a \320\321\330C\"\210\331\323\332$\"!\204o \333\334!\210#G\317\335\323\336$\"\317#G#%&'&'W\203\273 #&H(\337(\" \210)%&T\211&)*)*@Y\203\267 \340*)\"\210*\202\204 \341%!\210.\313\207" [root entries cl-rest cl-seq cl-func cl-type dvc-tree-root dvc-revision-marked-revisions dvc-revlist-current-patch-struct vector xmtn--revlist-entry-revision-hash-id nil apply mapcar* coerce 0 signal cl-assertion-failed 1 format "revision %s" "%s revisions" every xmtn--hash-id-p (every #'xmtn--hash-id-p hash-ids) yes-or-no-p "Disapprove %s? " error "Aborted disapprove" make-progress-reporter "Disapproving %s..." xmtn--do-disapprove-future progress-reporter-do-update progress-reporter-done cl-res hash-ids description #1=#:--dotimes-temp2-- i #2=#:--dotimes-temp-- hash-id value reporter] 7 (#$ . 31891) nil])
#@308 Show ancestry difference of selected revisions and base revision of tree.

Shows the revisions that are ancestors of the marked revisions
but not of the current base revision.  If no revisions are
marked, use revision at point.

To be invoked from an xmtn revlist buffer.  Brings up an xmtn revlist buffer.
(defalias 'xmtn-revlist-missing-revisions #[nil "\302 \303\304!\211\305\306\307 \206 \310 C\"L\210\311\312	J\"\204# \313\314\315C\"\210\316\317\320\321\322\323	D\324FE\325\211$\210*\325\207" [root #1=#:--cl-new-revisions-- dvc-tree-root make-symbol "--new-revisions--" mapcar xmtn--revlist-entry-revision-hash-id dvc-revision-marked-revisions dvc-revlist-current-patch-struct every xmtn--hash-id-p signal cl-assertion-failed (every #'xmtn--hash-id-p new-revisions) xmtn--setup-revlist lambda #2=(&rest --cl-rest--) apply #[(#3=#:G71046 root) "\306!\307	!\310\n\"A\311\312\313\314\315D\316FE\f\203$  \202A \317\216\320	\n\"\n\f\211B+B *,\207" [root #4=#:G71042 #5=#:G71043 xmtn-automate--*sessions* #6=#:G71040 #3# file-name-as-directory file-truename assoc lambda #2# apply #[(#7=#:G71045) "\305\n!\306\n\fJ#*\207" [#6# #8=#:G71041 root branch #7# xmtn--tree-default-branch xmtn--revlist--missing-get-info] 4] quote --cl-rest-- ((byte-code "\203 \301!\210\301\207" [#6# xmtn-automate--close-session] 2)) xmtn-automate--make-session #9=#:G71044 alist value key] 7] quote --cl-rest-- nil] 9 (#$ . 33073) nil])
(provide 'xmtn-revlist)