;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xgit-log.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-log.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 xgit-revision-st-hash 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-hash (or (and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) (error "xgit-revision-st-hash accessing a non-xgit-revision-st")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xgit-revision-st-hash #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-hash 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-hash setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-hash #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 1] 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 2)) 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" 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-message setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-message #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 2] 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 3)) 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" 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-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)) 3] 6] 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 #1# (error "xgit-revision-st-commit accessing a non-xgit-revision-st")) (aref cl-x 4)) 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" 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-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)) 4] 6] xgit-revision-st-author-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-author-date (or #1# (error "xgit-revision-st-author-date accessing a non-xgit-revision-st")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xgit-revision-st-author-date #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-author-date 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-author-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-author-date #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 5] 6] xgit-revision-st-commit-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-commit-date (or #1# (error "xgit-revision-st-commit-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-commit-date #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-commit-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-commit-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-commit-date #1=(and (memq (aref cl-x 0) cl-struct-xgit-revision-st-tags)) 6] 6] xgit-revision-st-merge 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-merge (or #1# (error "xgit-revision-st-merge accessing a non-xgit-revision-st")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xgit-revision-st-merge #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xgit-revision-st-tags 0 error "xgit-revision-st-merge 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-merge setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xgit-revision-st xgit-revision-st-merge (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!\205G\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>\203FAA\211\2021\316>A@\203U\317\211\2021\320\321@\"\210\202/)\322\323\324\325\317 \n \f &\f.\207" [#1# hash message author commit author-date :hash :message :author :commit :author-date :commit-date :merge (:hash :message :author :commit :author-date :commit-date :merge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:hash :message :author :commit :author-date :commit-date :merge)" cl-defsubst-expand (hash message author commit author-date commit-date merge) (block make-xgit-revision-st (vector 'cl-struct-xgit-revision-st hash message author commit author-date commit-date merge)) t commit-date merge #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key HASH MESSAGE AUTHOR COMMIT AUTHOR-DATE COMMIT-DATE MERGE)"] byte-compile cl-byte-compile-compiler-macro] 4) #@84 Not documented (fn &key HASH MESSAGE AUTHOR COMMIT AUTHOR-DATE COMMIT-DATE MERGE) (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>\203FAA\211\2021\316>A@\203U\317\211\2021\320\321@\"\210\202/)\322\323 \n \f &.\207" [#1# hash message author commit author-date :hash :message :author :commit :author-date :commit-date :merge (:hash :message :author :commit :author-date :commit-date :merge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:hash :message :author :commit :author-date :commit-date :merge)" vector cl-struct-xgit-revision-st commit-date merge #2=#:--cl-keys--] 10 (#$ . 8179)]) (byte-code "\302B\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\310G\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" " hash" prin1 error "xgit-revision-st-hash accessing a non-xgit-revision-st" 1 " message" "xgit-revision-st-message accessing a non-xgit-revision-st" 2 " author" "xgit-revision-st-author accessing a non-xgit-revision-st" 3 " commit" "xgit-revision-st-commit accessing a non-xgit-revision-st" 4 " author-date" "xgit-revision-st-author-date accessing a non-xgit-revision-st" 5 " commit-date" "xgit-revision-st-commit-date accessing a non-xgit-revision-st" 6 " merge" "xgit-revision-st-merge accessing a non-xgit-revision-st" 7 ")" t] 3] cl-struct-xgit-revision-st put xgit-revision-st cl-struct-slots ((cl-tag-slot) (hash) (message) (author) (commit) (author-date) (commit-date) (merge)) 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-merge xgit-revision-st-commit-date xgit-revision-st-author-date xgit-revision-st-commit xgit-revision-st-author xgit-revision-st-message xgit-revision-st-hash] 4) #@30 Parse the output of git log. (defalias 'xgit-log-parse #[(log-buffer location &optional remote missing) "\306\307\"\210eb\210\310 \203*\311\312\f\313Q!\210\314 \210\315e`\"r q\210\3106 c\210*\316 \210d`V\205\305\306\317!\210\316 \210\320\321\310\211\211\211\211\211\211&7\311\322\f\323Q!\21078\324\325!98\326H:>\204e\327\330!\2108\3259I\210*\306\3317\326H:>\204}\327\332!\2107\325H\"\210\333\334!\203^\324\325!\335\230\203\2637;\336\337!<;\326H:>\204\250\327\340!\210;\341=\326H:>\204\322\327\343!\210=\344>I\210*\202X\324\325!\345\230\2037?\336\337!@?\326H:>\204\374\327\346!\210?\347@I\210*\202X\324\325!\350\230\20317A\336\337!BA\326H:>\204&\327\351!\210A\352BI\210*\202X\324\325!\353\230\203X7C\336\337!DC\326H:>\204P\327\354!\210C\355DI\210*\325y\210\202\203\325y\210`E\311\356!\210\314 \2107F\315E`\"GF\326H:>\204\204\327\357!\210F\337GI\210+\325y\210r q\210\360H\361\320\362\363\3107\363\3647\326H:>\204\255\327\332!\2107\325HDD\310\211\211&D\"\210eb\210\365 \210*\202-*\207" [location intro-string root missing xgit-hash-regexp log-buffer dvc-trace "xgit-log-parse. location=%S" nil re-search-forward "^commit " "\n" beginning-of-line buffer-substring-no-properties dvc-trace-current-line "while" vector cl-struct-xgit-revision-st "^commit \\(" "\\)\n" match-string 1 0 error "xgit-revision-st-hash storing a non-xgit-revision-st" "commit %S" "xgit-revision-st-hash accessing a non-xgit-revision-st" looking-at "^\\([^ \n]+\\): +\\([^ ].*\\)$" "Author" match-string-no-properties 2 "xgit-revision-st-author storing a non-xgit-revision-st" 3 "Commit" "xgit-revision-st-commit storing a non-xgit-revision-st" 4 "AuthorDate" "xgit-revision-st-author-date storing a non-xgit-revision-st" 5 "CommitDate" "xgit-revision-st-commit-date storing a non-xgit-revision-st" 6 "Merge" "xgit-revision-st-merge storing a non-xgit-revision-st" 7 "^$" "xgit-revision-st-message storing a non-xgit-revision-st" ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch xgit revision dvc-revision-prev buffer-read-only elem #1=#:--cl-x-- #2=#:--cl-store-- cl-struct-xgit-revision-st-tags #3=#:--cl-x-- #4=#:--cl-store-- #5=#:--cl-x-- #6=#:--cl-store-- #7=#:--cl-x-- #8=#:--cl-store-- #9=#:--cl-x-- #10=#:--cl-store-- #11=#:--cl-x-- #12=#:--cl-store-- start-point #13=#:--cl-x-- #14=#:--cl-store-- dvc-revlist-cookie] 12 (#$ . 10956)]) (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\211\306H\f>\2048\307\316!\210 \317H \306H\f>\204H\307\320!\210 \321H\206O\3225 \306H\f>\204]\307\323!\210 \315H\206d\3226 \306H\f>\204r\307\324!\210 \325H\206y\3227 \306H\f>\204\207\307\326!\210 \327H\206\216\3228\330\331\332\211\2119:)$;<\203:\333;!=)9\205\271\334\335\336\337)!\"!>9\203\3059\202\326:\205\326\340:!;\205\326\340:!?>\203\363?\203\356?\341\342\341>\260\202\365>\202\3659@)9\203)J\202))\343\306=G\344$\345$\346)\205\"\347\350\351)\352@\257:\205+\353:D\"BBBB=$\210=-\202<;-\312 \341\261\210A\203\302\313\354\331\332\211\2119:)$;<\203\363\333;!=)9\205r\334\335\336\337)!\"!>9\203~9\202\217:\205\217\340:!;\205\217\340:!?>\203\254?\203\247?\341\342\341>\260\202\256>\202\2569@)9\203\274)J\202\276))\343\306=G\344$\345$\346)\205\333\347\350\351)\352@\257:\205\344\353:D\"BBBB=$\210=-\202\365;-\3125\341\261\21056\230\204\302\313\355\331\332\211\2119:)$;<\203\270\333;!=)9\205/\334\335\336\337)!\"!>9\203;9\202T:\205T:\211BA@);\205T:\211BA@)?>\203q?\203l?\341\342\341>\260\202s>\202s9@)9\203\201)J\202\203))\343\306=G\344$\345$\346)\205\240\347\350\351)\352@\257:\205\251\353:D\"BBBB=$\210=-\202\272;-\3126\341\261\210C\203A\313\356\331\332\211\2119:)$;<\203r\333;!=)9\205\361\334\335\336\337)!\"!>9\203\3759\202:\205\340:!;\205\340:!?>\203+?\203&?\341\342\341>\260\202->\202-9@)9\203;)J\202=))\343\306=G\344$\345$\346)\205Z\347\350\351)\352@\257:\205c\353:D\"BBBB=$\210=-\202t;-\3127\341\261\21078\230\204A\313\357\331\332\211\2119:)$;<\2037\333;!=)9\205\256\334\335\336\337)!\"!>9\203\2729\202\323:\205\323:\211BA@);\205\323:\211BA@)?>\203\360?\203\353?\341\342\341>\260\202\362>\202\3629@)9\203)J\202))\343\306=G\344$\345$\346)\205\347\350\351)\352@\257:\205(\353:D\"BBBB=$\210=-\2029;-\3128\341\261\210D\205d\360 \210\361\362\363 \306H\f>\204X\307\364!\210 \311H\206_\322#c\210\360 .\207" [elem cl-struct-dvc-revlist-entry-patch-tags dvc-mark struct cl-struct-xgit-revision-st-tags hash 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 "xgit-revision-st-hash accessing a non-xgit-revision-st" 1 "xgit-revision-st-commit accessing a non-xgit-revision-st" 4 "?" "xgit-revision-st-author accessing a non-xgit-revision-st" "xgit-revision-st-commit-date accessing a non-xgit-revision-st" 6 "xgit-revision-st-author-date accessing a non-xgit-revision-st" 5 "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 "Commit:" "Author:" "CommitDate:" "AuthorDate:" newline replace-regexp-in-string "^" " " "xgit-revision-st-message accessing a non-xgit-revision-st" commit author commit-date author-date help menu str dvc-highlight strcpy key-help prefix-help long-help dvc-revisions-shows-creator x dvc-revisions-shows-date dvc-revisions-shows-summary] 16]) (defalias 'xgit-revlog-get-revision #[(rev-id) "\302!@\303\304\305 D\306\307$)\207" [rev-id rev dvc-revision-get-data dvc-run-dvc-sync xgit "show" :finished dvc-output-buffer-handler] 5]) (defalias 'xgit-revlog-mode #[nil "\300 \207" [xgit-diff-mode] 1 nil nil]) (defalias 'xgit-name-construct #[(revision) "\207" [revision] 1]) #@242 Number of logs to print. Specify negative value for all logs. Limiting this to low number will shorten time for log retrieval for large projects like Linux kernel on slow machines (Linux kernel has >50000 logs). See also `xgit-log-since'. (custom-declare-variable 'xgit-log-max-count '400 '(#$ . 17196) :type 'integer :group 'dvc-xgit) #@168 Time duration for which the log should be displayed. For example, "1.month.ago", "last.week", ... Use nil if you don't want a limit. See also `xgit-log-max-count'. (custom-declare-variable 'xgit-log-since 'nil '(#$ . 17541) :type '(choice (string :tag "Duration") (const :tag "No limit" nil)) :group 'dvc-xgit) #@83 Limit the log output to ones with log message that matches the specified pattern. (defalias 'xgit-log-grep #[(regexp) "\302\303 #\207" [default-directory regexp xgit-log :log-regexp] 4 (#$ . 17861) "MGrep pattern for Commit Log: "]) #@63 Limit the log output to ones that changes the specified file. (defalias 'xgit-log-file #[(filename) "\302\303 #\207" [default-directory filename xgit-log :file] 4 (#$ . 18101) "FFile name: "]) #@57 Limit the logs that contain the change in given string. (defalias 'xgit-log-diff-grep #[(string) "\302\303 #\207" [default-directory string xgit-log :diff-match] 4 (#$ . 18301) "MGrep pattern for Commit Diff: "]) #@31 Show log for a given hash id. (defalias 'xgit-log-revision #[(rev) "\302\303\304\305 %\207" [default-directory rev xgit-log :cnt 1 :rev] 6 (#$ . 18521) "MID: "]) #@417 Run git log for DIR. DIR is a directory controlled by Git/Cogito. CNT is max number of log to print. If not specified, uses xgit-log-max-count. LOG-REGEXP is regexp to filter logs by matching commit logs. DIFF-MATCH is string to filter logs by matching commit diffs. REV is revision to show. FILE is filename in repostory to filter logs by matching filename. (fn DIR CNT &key LOG-REGEXP DIFF-MATCH REV FILE SINCE) (defalias 'xgit-log #[(dir cnt &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$\206[%\"& \206d'\211(\205o\320\322(\" \205x\320\323 \")\n\205\202\320\324\n\"*\f\205\217\325\f\326+!\",\327\330& )* \331,\257 -\332\333\334+\206\254.-\335\336\315\211\337\315\340\341\342 \f \n $+\257DEE& \210eb.\f\207" [#1# log-regexp diff-match rev file since :log-regexp :diff-match :rev :file :since (:log-regexp :diff-match :rev :file :since :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:log-regexp :diff-match :rev :file :since)" format "--max-count=%s" "--since=%s" "--grep=%s" "-S%s" file-relative-name xgit-tree-root "log" "--pretty=fuller" "--" dvc-build-revision-list xgit log xgit-log-parse t lambda apply #[(#2=#:dvc-gensym-uniq-155 #3=#:dvc-gensym-uniq-154 #4=#:dvc-gensym-uniq-153 #5=#:dvc-gensym-uniq-152 #6=#:dvc-gensym-uniq-151 #7=#:dvc-gensym-uniq-150 #8=#:dvc-gensym-uniq-149) "\306 \307\n\310 \311\f\312 \313\f&\f\207" [#8# #7# #6# #5# #4# #3# xgit-log :log-regexp :diff-match :rev :file :since #2#] 13] quote #9=#:--cl-keys-- cnt xgit-log-max-count count xgit-log-since since-date grep diff dir fname args default-directory] 23 (#$ . 18691) (list default-directory nil)]) (provide 'xgit-log)