;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-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 "`dvc-revlist.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\306B\307\306!\204\310\306\311\"\210\312\306!\207" [current-load-list require dvc-lisp dvc-utils dvc-core dvc-ui dvc-revlist-brief default-boundp set-default nil make-variable-buffer-local] 3) #@39 Buffer-local value of dvc-log-last-n. (defvar dvc-revlist-last-n nil (#$ . 861)) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\301\303!\210\307\310\311\312#\210\310\313N\204)\307\310\313\314#\210\306\207" [current-load-list make-variable-buffer-local dvc-revlist-last-n dvc-revlist-path default-boundp set-default nil put dvc-revlist-entry-patch-dvc cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-dvc (or (and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) (error "dvc-revlist-entry-patch-dvc accessing a non-dvc-revlist-entry-patch")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-dvc #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-dvc accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-dvc setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-dvc #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 1] 6] dvc-revlist-entry-patch-marked cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-marked (or #1# (error "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-marked #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-marked setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-marked #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 2] 6] dvc-revlist-entry-patch-struct cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-struct (or #1# (error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-struct #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-struct setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-struct #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 3] 6] dvc-revlist-entry-patch-rev-id cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-rev-id (or #1# (error "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-rev-id #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-rev-id setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-rev-id #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 4] 6] dvc-revlist-entry-patch-merged-by cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-merged-by (or #1# (error "dvc-revlist-entry-patch-merged-by accessing a non-dvc-revlist-entry-patch")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-merged-by #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-merged-by accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-merged-by setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-merged-by #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 5] 6] dvc-revlist-entry-patch-log-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-log-buffer (or #1# (error "dvc-revlist-entry-patch-log-buffer accessing a non-dvc-revlist-entry-patch")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-log-buffer #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-log-buffer accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-log-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-log-buffer #1=(and (memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 6] 6] dvc-revlist-entry-patch-diff-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-diff-buffer (or #1# (error "dvc-revlist-entry-patch-diff-buffer accessing a non-dvc-revlist-entry-patch")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-diff-buffer #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-diff-buffer accessing a non-dvc-revlist-entry-patch" 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 dvc-revlist-entry-patch-diff-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-revlist-entry-patch dvc-revlist-entry-patch-diff-buffer (and #1=(memq (aref cl-x 0) cl-struct-dvc-revlist-entry-patch-tags)) 7] 6] dvc-revlist-entry-patch-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-revlist-entry-patch-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-revlist-entry-patch-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-revlist-entry-patch-tags vectorp 8 0 t] 2]) (defalias 'copy-dvc-revlist-entry-patch #[(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-dvc-revlist-entry-patch 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# dvc marked struct rev-id merged-by :dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer (:dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer)" cl-defsubst-expand (dvc marked struct rev-id merged-by log-buffer diff-buffer) (block make-dvc-revlist-entry-patch (vector 'cl-struct-dvc-revlist-entry-patch dvc marked struct rev-id merged-by log-buffer diff-buffer)) t log-buffer diff-buffer #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key DVC MARKED STRUCT REV-ID MERGED-BY LOG-BUFFER DIFF-BUFFER)"] byte-compile cl-byte-compile-compiler-macro] 4) #@85 Not documented (fn &key DVC MARKED STRUCT REV-ID MERGED-BY LOG-BUFFER DIFF-BUFFER) (defalias 'make-dvc-revlist-entry-patch #[(&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# dvc marked struct rev-id merged-by :dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer (:dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dvc :marked :struct :rev-id :merged-by :log-buffer :diff-buffer)" vector cl-struct-dvc-revlist-entry-patch log-buffer diff-buffer #2=#:--cl-keys--] 10 (#$ . 9343)]) (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-dvc-revlist-entry-patch-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-dvc-revlist-entry-patch-tags cl-s vectorp 8 0 princ "#S(dvc-revlist-entry-patch" " dvc" prin1 error "dvc-revlist-entry-patch-dvc accessing a non-dvc-revlist-entry-patch" 1 " marked" "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 2 " struct" "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 " rev-id" "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 4 " merged-by" "dvc-revlist-entry-patch-merged-by accessing a non-dvc-revlist-entry-patch" 5 " log-buffer" "dvc-revlist-entry-patch-log-buffer accessing a non-dvc-revlist-entry-patch" 6 " diff-buffer" "dvc-revlist-entry-patch-diff-buffer accessing a non-dvc-revlist-entry-patch" 7 ")" t] 3] cl-struct-dvc-revlist-entry-patch put dvc-revlist-entry-patch cl-struct-slots ((cl-tag-slot) (dvc) (marked) (struct) (rev-id) (merged-by) (log-buffer) (diff-buffer)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-dvc-revlist-entry-patch side-effect-free copy-dvc-revlist-entry-patch dvc-revlist-entry-patch-p error-free dvc-revlist-entry-patch-diff-buffer dvc-revlist-entry-patch-log-buffer dvc-revlist-entry-patch-merged-by dvc-revlist-entry-patch-rev-id dvc-revlist-entry-patch-struct dvc-revlist-entry-patch-marked dvc-revlist-entry-patch-dvc] 4) #@30 Ewoc cookie for dvc-revlist. (defvar dvc-revlist-cookie nil (#$ . 12346)) #@45 Print an element ELEM of the revision list. (defalias 'dvc-revlist-printer #[(elem) "@\306=\203#\307A@\310H >\204\311\312!\210A@\313H\314\315#A@!\207@\316=\2032\211A@)c\207@\317=\203\340\211A@)\320\321\211\211'(\203\333\322'!) 9\205b\323\324\325\326 !\"!* \203l \202\200\f\205\200\f\211A@);\205\200\f\211A@)+*\203\235+\203\230+\327\330\327*\260\202\236*\202\236 , 9\203\252 J\202\253 \331\310)G\332\333\334 \205\305\335\336\305 \337,\257\f\205\314\340\fD\"BBBB)$\210)-\202\335'-c\207@\341=\205U\211AA)@\211-\342=\203\241\327\211A@)\343\321\211\211'(\203\231\322'!) 9\205 \323\324\325\326 !\"!* \203* \202>\f\205>\f\211A@);\205>\f\211A@)+*\203[+\203V+\327\330\327*\260\202\\*\202\\ , 9\203h J\202i \331\310)G\332\333\334 \205\203\335\336\305 \337,\257\f\205\212\340\fD\"BBBB)$\210)-\202\233'-\261\202T-\344=\205T\327\345\211A@)\346Q\343\321\211\211'(\203N\322'!) 9\205\325\323\324\325\326 !\"!* \203\337 \202\363\f\205\363\f\211A@);\205\363\f\211A@)+*\203+\203 +\327\330\327*\260\202*\202 , 9\203 J\202 \331\310)G\332\333\334 \2058\335\336\305 \337,\257\f\205?\340\fD\"BBBB)$\210)-\202P'-\327\261)\207" [elem cl-struct-dvc-revlist-entry-patch-tags x help menu keymap entry-patch dvc-function 0 error "dvc-revlist-entry-patch-dvc accessing a non-dvc-revlist-entry-patch" 1 "revision-list-entry-patch-printer" t entry-change message dvc-messages nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name "\n" "================" add-text-properties face font-lock-face append mouse-face highlight help-echo dvc-cmenu separator partner dvc-separator bookmark "*** " " ***" str dvc-highlight strcpy key-help prefix-help long-help #1=#:--cl-var--] 16 (#$ . 12426)]) (defalias 'dvc-revision-next #[nil "\303!\304 \"\206\f \211\203*\305\n!@\306=\203*\304\n\"\203*\304\n\"\211\204\n\203@\305\n!@\306=\203@\307\n\"\211\204.\n\205H\310\n!b*\207" [dvc-revlist-cookie elem next ewoc-locate ewoc-next ewoc-data separator ewoc-prev ewoc-location] 4 nil nil]) (defalias 'dvc-revision-prev #[nil "\303!\304 \"\206\f \211\203*\305\n!@\306=\203*\304\n\"\203*\304\n\"\211\204\n\203@\305\n!@\306=\203@\307\n\"\211\204.\n\205H\310\n!b*\207" [dvc-revlist-cookie elem next ewoc-locate ewoc-prev ewoc-data separator ewoc-next ewoc-location] 4 nil nil]) (defalias 'dvc-revision-next-unmerged #[nil "\303!\304 \"\206\f \211\2034\305\n!@\306=\203$\307\305\n!8\310=\2044\304\n\"\2034\304\n\"\211\204\n\203T\305\n!@\306=\203K\307\305\n!8\310=\204T\311\n\"\211\2048\n\205\\\312\n!b*\207" [dvc-revlist-cookie elem next ewoc-locate ewoc-next ewoc-data entry-patch 4 nobody ewoc-prev ewoc-location] 4 nil nil]) (defalias 'dvc-revision-prev-unmerged #[nil "\303!\304 \"\206\f \211\2034\305\n!@\306=\203$\307\305\n!8\310=\2044\304\n\"\2034\304\n\"\211\204\n\203T\305\n!@\306=\203K\307\305\n!8\310=\204T\311\n\"\211\2048\n\205\\\312\n!b*\207" [dvc-revlist-cookie elem next ewoc-locate ewoc-prev ewoc-data entry-patch 4 nobody ewoc-next ewoc-location] 4 nil nil]) #@50 Get the dvc-revlist-entry-patch-struct at point. (defalias 'dvc-revlist-current-patch-struct #[nil "\303\304!!A@\211\305H\n>\204\306\307!\210 \310H)\207" [dvc-revlist-cookie cl-x cl-struct-dvc-revlist-entry-patch-tags ewoc-data ewoc-locate 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3] 4 (#$ . 15622)]) #@25 Mark revision at point. (defalias 'dvc-revision-mark-revision #[nil "`\305 !\306\n!\211A@\307H\f>\204\310\311!\210 A@\312\313I\210\314 \n\"\210b\210\315 +\207" [pos dvc-revlist-cookie current data cl-struct-dvc-revlist-entry-patch-tags ewoc-locate ewoc-data 0 error "dvc-revlist-entry-patch-marked storing a non-dvc-revlist-entry-patch" 2 t ewoc-invalidate dvc-revision-next] 4 (#$ . 15973) nil]) #@49 Return the revisions that are currently marked. (defalias 'dvc-revision-marked-revisions #[nil "\302\303\304 \"\210\237)\207" [acc dvc-revlist-cookie nil ewoc-map #[(x) "@\304=\2058\211A@)\211\305H\n>\204\306\307!\210 \310H)\2058A@\305H\n>\204/\306\311!\210A@\312H B\211\207" [x cl-x cl-struct-dvc-revlist-entry-patch-tags acc entry-patch 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] 3]] 3 (#$ . 16382)]) #@31 Unmark the revision at point. (defalias 'dvc-revision-unmark-revision #[nil "`\305 !\306\n!\211A@\307H\f>\204\310\311!\210 A@\312\313I\210\314 \n\"\210b\210\315 +\207" [pos dvc-revlist-cookie current data cl-struct-dvc-revlist-entry-patch-tags ewoc-locate ewoc-data 0 error "dvc-revlist-entry-patch-marked storing a non-dvc-revlist-entry-patch" 2 nil ewoc-invalidate dvc-revision-next] 4 (#$ . 16921) nil]) #@23 Unmark all revisions. (defalias 'dvc-revision-unmark-all #[nil "`\302\303 \"\210\304 !\210b)\207" [pos dvc-revlist-cookie ewoc-map #[(x) "@\301=\205\3028\205\211AA)\303\240\207" [x entry-patch 2 nil] 3] ewoc-refresh] 3 (#$ . 17340) nil]) #@59 *Whether summary should be displayed for `dvc-revisions'. (custom-declare-variable 'dvc-revisions-shows-summary 't '(#$ . -17594) :type 'boolean :group 'tla-revisions) #@59 *Whether creator should be displayed for `dvc-revisions'. (custom-declare-variable 'dvc-revisions-shows-creator 't '(#$ . -17768) :type 'boolean :group 'tla-revisions) #@56 *Whether date should be displayed for `dvc-revisions'. (custom-declare-variable 'dvc-revisions-shows-date 't '(#$ . -17942) :type 'boolean :group 'tla-revisions) (defalias 'dvc-revision-refresh-maybe #[nil "\301\302 \303\304#\305!\205 )\207" [refresh-fn dvc-function dvc-current-active-dvc "revision-refresh-maybe" t fboundp] 4]) #@50 Toggle display of the date in the revision list. (defalias 'dvc-revlist-toggle-date #[nil "?\302 \210\303 !\207" [dvc-revisions-shows-date dvc-revlist-cookie dvc-revision-refresh-maybe ewoc-refresh] 2 (#$ . 18283) nil]) #@65 Toggle display of the summary information in the revision list. (defalias 'dvc-revlist-toggle-summary #[nil "?\302 \210\303 !\207" [dvc-revisions-shows-summary dvc-revlist-cookie dvc-revision-refresh-maybe ewoc-refresh] 2 (#$ . 18511) nil]) #@53 Toggle display of the creator in the revision list. (defalias 'dvc-revlist-toggle-creator #[nil "?\302 \210\303 !\207" [dvc-revisions-shows-creator dvc-revlist-cookie dvc-revision-refresh-maybe ewoc-refresh] 2 (#$ . 18760) nil]) #@132 If revision list was limited by `dvc-log-last-n', show more revisions. Increment DELTA may be specified interactively; default 10. (defalias 'dvc-revlist-more #[(&optional delta) "\205\n \\\302 \207" [dvc-revlist-last-n delta dvc-generic-refresh] 2 (#$ . 18998) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 10))]) #@42 Toggle between brief and full revisions. (defalias 'dvc-revlist-toggle-brief #[nil "?\301 \207" [dvc-revlist-brief dvc-generic-refresh] 1 (#$ . 19348) nil]) #@90 Variable should be local to each buffer. Function used to get the revision info at point (defvar dvc-get-revision-info-at-point-function nil (#$ . 19513)) #@47 Get the version information that point is on. (defalias 'dvc-get-info-at-point #[nil "\301!\205 \207" [dvc-get-revision-info-at-point-function fboundp] 2 (#$ . 19674)]) #@155 Get archive/category--branch--version--revision--patch information. Returns nil if not on a revision list, or not on a revision entry in a revision list. (defalias 'dvc-revlist-get-rev-at-point #[nil "\306\307!!\211@\310=\205z\311 A@\312H\n>\204\313\314!\210 A@\315H!\203X A@\312H\n>\2043\313\314!\210 A@\315HG\316Y\203X A@\312H\n>\204L\313\314!\210 A@\315H\312H >\204\\\313\317!\210 A@\312H\n>\204j\313\314!\210 A@\315H\320H\321\f!\322 *D)\207" [dvc-revlist-cookie elem cl-struct-dvc-revlist-entry-patch-tags cl-struct-tla--revision-tags full buffer-revision ewoc-data ewoc-locate entry-patch vectorp 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 8 "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct revision] 4 (#$ . 19854)]) (autoload 'dvc-revlog-revision "dvc-revlog") #@44 Show a changeset for the current revision. (defalias 'dvc-revlist-show-item #[(&optional scroll-down) "\306\307!!\310 \211@\311=\203y\nA@\312H >\204\313\314!\210\nA@\315Hp\211\2039\316 !\2039\317 \"\210\202r\nA@\320\nA@\312H >\204M\313\321!\210\nA@\322H!\312H >\204b\313\323!\210\315I*r q\210eb\210)\324\f!*\202\215\n@\325=\205\215\n\211AA)@\326 )*\207" [dvc-revlist-cookie dvc-temp-current-active-dvc elem cl-struct-dvc-revlist-entry-patch-tags log-buf buffer ewoc-data ewoc-locate dvc-current-active-dvc entry-patch 0 error "dvc-revlist-entry-patch-log-buffer accessing a non-dvc-revlist-entry-patch" 6 buffer-live-p dvc-buffer-show-or-scroll dvc-revlog-revision "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 4 "dvc-revlist-entry-patch-log-buffer storing a non-dvc-revlist-entry-patch" pop-to-buffer entry-change dvc-diff scroll-down #1=#:--cl-x-- #2=#:--cl-store-- x default-directory] 4 (#$ . 20709) nil]) (defalias 'dvc-revlist-show-item-scroll-down #[nil "\300\301!\207" [dvc-revlist-show-item t] 2 nil nil]) #@47 `dvc-revlist-show-item' with mouse interface. (defalias 'dvc-revlist-show-item-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point dvc-revlist-show-item] 2 (#$ . 21789) "e"]) #@41 Show the diff for the current revision. (defalias 'dvc-revlist-diff #[(&optional scroll-down) "\306\307!!\211@\310=\204\311\312!\210 A@\313H\n>\204\311\314!\210 A@\315Hp\316\317\f\"\210\f\203>\320\f!\203>\321\f \"\210\202\272 A@ A@\313H\n>\204Q\311\322!\210 A@\323H\324! \325!! \326=\204q\311\327 \"\210@\330\211\"A@)\331BBD#\332#\",$\313H\n>\204\231\311\333!\210\315$I\210* A@\313H\n>\204\257\311\314!\210 A@\315H\316\334\f\"\210r\fq\210 %)\335 !\210\f\211%+\207" [dvc-revlist-cookie elem cl-struct-dvc-revlist-entry-patch-tags log-buf buffer scroll-down ewoc-data ewoc-locate entry-patch error "Cursor is not on a revision." 0 "dvc-revlist-entry-patch-diff-buffer accessing a non-dvc-revlist-entry-patch" 7 dvc-trace "buffer1=%S" buffer-live-p dvc-buffer-show-or-scroll "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 4 dvc-revision-get-type dvc-revision-get-data revision "Only 'revision type is supported here. Got %S" previous-revision (1) dvc-delta "dvc-revlist-entry-patch-diff-buffer storing a non-dvc-revlist-entry-patch" "buffer2=%S" pop-to-buffer #1=#:--cl-x-- rev-id rev-type rev-data x prev-rev-id #2=#:--cl-store-- dvc-partner-buffer] 5 (#$ . 21982) nil]) #@65 Show the diff between the revision at point and the local tree. (defalias 'dvc-revlist-diff-to-current-tree #[(&optional scroll-down) "\303\304!!\211@\305=\204\306\307!\210\310 A@\311H\n>\204 \306\312!\210 A@\313H\314 \315#)\207" [dvc-revlist-cookie elem cl-struct-dvc-revlist-entry-patch-tags ewoc-data ewoc-locate entry-patch error "Cursor is not on a revision." dvc-diff 0 "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 4 dvc-tree-root nil] 5 (#$ . 23228) nil]) (defalias 'dvc-revlist-diff-scroll-down #[nil "\300\301!\207" [dvc-revlist-diff t] 2 nil nil]) (byte-code "\306B\307\306!\204\370\310\306\311 \312 \313\314#\210\312 \315\316#\210\312 \317\316#\210\312 \320\321#\210\312 \322\321#\210\312 \323\321#\210\312 \324\325#\210\312 \326\327#\210\312 \330\316#\210\312 \331\321#\210\312 \332\333#\210\312 \334\335#\210\312 \336\337#\210\312 \340\341#\210\312 \342\341#\210\312 \343\344#\210\312 \345\346#\210\312 \347\350#\210\312 \351\352#\210\312 \353\354!\355#\210\312 \353\356!\357#\210\312 \353\360!\361#\210\312 \n\362#\210\312 \363#\210\312 \f\364#\210\312 \365\366!\367#\210\312 \365\370!\371#\210\312 \365 !\372#\210\312 @\373#\210\312 \374\375#\210\312 A\376#\210\312 \365 !\372#\210\312 B\377#\210\312 \201D\201E!\201F#\210 )\"\210\201G\201HN\204\201I\201G\201H\201J#\210\201K\306!\204$\201I\306\201L\201M#\210\306B\307\306!\2044\310\306\311 \"\210\201K\201N!\204L\201I\201N\201L\201M#\210\201NB\307\201N!\204d\310\201N\201O \"\210\201I\201C\201L\201M#\210\201CB\307\201C!\204\221\310\201C\201P\201C\377\"\210C\"\210\201I\201M\201Q\377#\207" [current-load-list map dvc-keyvec-mark dvc-keyvec-unmark dvc-keyvec-quit dvc-key-show-bookmark dvc-revlist-mode-map default-boundp set-default make-sparse-keymap define-key [103] dvc-generic-refresh [tab] dvc-revision-next [(control 105)] [(shift tab)] dvc-revision-prev [(shift iso-lefttab)] [(shift control 105)] [43] dvc-revlist-more [98] dvc-revlist-toggle-brief [110] [112] [78] dvc-revision-next-unmerged [80] dvc-revision-prev-unmerged [77] dvc-send-commit-notification " " dvc-revlist-show-item [return] [(meta return)] dvc-revlist-show-item-scroll-down [61] dvc-revlist-diff [(control 61)] dvc-revlist-diff-to-current-tree [(meta 61)] dvc-revlist-diff-scroll-down dvc-prefix-toggle 100 dvc-revlist-toggle-date 99 dvc-revlist-toggle-creator 115 dvc-revlist-toggle-summary dvc-revision-mark-revision dvc-revision-unmark-revision dvc-buffer-quit dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks dvc-pop-to-inventory [104] dvc-buffer-pop-to-partner-buffer describe-mode nil dvc-keyvec-inventory dvc-keyvec-help dvc-keyvec-kill-ring dvc-revlist-mode-abbrev-table dvc-prefix-kill-ring 108 dvc-revision-save-log-message-as-kill dvc-revlist-mode-hook variable-documentation put "Hook run when entering dvc-revlist 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-revlist-mode dvc-revlist-mode-syntax-table make-syntax-table define-abbrev-table derived-mode-parent] 6) #@165 Major mode to show revision list. Commands are: \{dvc-revlist-mode-map} This mode runs the hook `dvc-revlist-mode-hook', as the final step during initialization. (defalias 'dvc-revlist-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \316 \210\307\317 \210)\306\320!\210\321\322\323!!\324\325!\210\326 \210\307 \327\330!\210\306\331!\210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name dvc-revlist-mode-map dvc-revlist-mode-syntax-table dvc-revlist-mode-abbrev-table make-local-variable t kill-all-local-variables dvc-revlist-mode "dvc-revlist" use-local-map set-syntax-table dvc-current-active-dvc dvc-install-buffer-menu erase-buffer dvc-revlist-cookie ewoc-create dvc-ewoc-create-api-select dvc-revlist-printer toggle-read-only 1 buffer-disable-undo set-buffer-modified-p nil dvc-get-revision-info-at-point-function dvc-revlist-get-rev-at-point run-mode-hooks dvc-revlist-mode-hook local-abbrev-table dvc-buffer-current-active-dvc inhibit-read-only truncate-lines] 3 (#$ . 26405) nil]) (dvc-add-uniquify-directory-mode 'dvc-revlist-mode) #@190 Create (or reuse) and return a buffer to display a revision list. BACK-END is the the back-end. TYPE must be in dvc-buffer-type-alist. LOCATION is root or a buffer name, depending on TYPE. (defalias 'dvc-revlist-create-buffer #[(back-end type location refresh-fn brief last-n) "\306 \n#r q\210\307 \210  \n \f) *\207" [back-end type location buffer dvc-temp-current-active-dvc refresh-fn dvc-get-buffer-create dvc-revlist-mode dvc-buffer-refresh-function brief dvc-revlist-brief last-n dvc-revlist-last-n] 5 (#$ . 27503)]) #@604 Runs the back-end BACK-END to build a revision list. A buffer of type TYPE with location LOCATION is created or reused. The back-end is launched with the arguments ARGLIST, and the caller has to provide the function PARSER which will actually build the revision list. BRIEF, if non-nil, means show a brief entry for each revision; nil means show full entry. LAST-N limits the number of revisions to display; all if nil. PATH, if non-nil, restricts the log to that file. REFRESH-FN specifies the function to call when the user wants to refresh the revision list buffer. It must take no arguments. (defalias 'dvc-build-revision-list #[(back-end type location arglist parser brief last-n path refresh-fn) "\306 \n \f &rq\210\f )\307\310\"\210\311\312\313\314\315\316\317\320\321\322\323\nED\257E\324\313\325\315\326\317\320\321\322\323\nED\257E&)\207" [back-end type location refresh-fn brief last-n dvc-revlist-create-buffer dvc-switch-to-buffer-maybe t dvc-run-dvc-async :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-37 #2=#:dvc-gensym-uniq-36 #3=#:dvc-gensym-uniq-35) "rq\210 \n \")\207" [output #3# #2# #1#] 3] output error status arguments quote :error (output error status arguments) #[(output error status arguments #4=#:dvc-gensym-uniq-40 #5=#:dvc-gensym-uniq-39 #6=#:dvc-gensym-uniq-38) "rq\210 \n \")\207" [output #6# #5# #4#] 3] buffer path dvc-revlist-path dvc-revlist-brief dvc-revlist-last-n arglist parser] 18 (#$ . 28043)]) (defalias 'dvc-revision-log-message-at-point #[nil "\300\301\302 \"\207" [dvc-call "revision-st-message" dvc-revlist-current-patch-struct] 3]) #@44 Save the log message for the actual patch. (defalias 'dvc-revision-save-log-message-as-kill #[nil "\300\301 !\207" [kill-new dvc-revision-log-message-at-point] 2 (#$ . 29731) nil]) (provide 'dvc-revlist)