;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-browse.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 "`tla-browse.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304!\210\303\305!\210\303\306!\210\302B\307\302!\204\310\302\311\"\210\301B\307\301!\204*\310\301\312\"\210\313 \n\"\207" [current-load-list tla--browse-buffer-type tla--browse-buffer-name require tree-widget tla dvc-ui default-boundp set-default "*tla-browse*" browse dvc-add-buffer-type] 3) #@38 List holding the name of open nodes. (defvar tla--browse-open-list nil (#$ . 915)) #@107 Return a node, ARCHIVE/CATEGORY--BRANCH--VERSION is opend or not. CATEGORY, BRANCH, VERSION are optional. (defalias 'tla--browse-open-list-member #[(archive &optional category branch version) " \n \306\257\211 \235)\207" [archive category branch version name tla--browse-open-list nil] 6 (#$ . 1005)]) #@207 Add a node specified by the arguments to 'tla--browse-open-list'. ARCHIVE/CATEGORY--BRANCH--VERSION, ARCHIVE/CATEGORY--BRANCH, ARCHIVE/CATEGORY, ARCHIVE are added. CATEGORY, BRANCH, VERSION are optional. (defalias 'tla--browse-open-list-add #[(archive &optional category branch version) "\304 \n \305\257!\210\304 \n\305\211\257!\210\304 \305\211\211\257!\210\304\305\211\211\211\257!\210\304\305\211\211\211\211\257!\207" [archive category branch version tla--browse-open-list-add-internal nil] 6 (#$ . 1317)]) #@38 Add NAME to `tla--browse-open-list'. (defalias 'tla--browse-open-list-add-internal #[(name) "\302\303!\304!\305!\306!$?\205 B\211\207" [name tla--browse-open-list tla--browse-open-list-member tla--name-archive tla--name-category tla--name-branch tla--name-version] 6 (#$ . 1846)]) #@115 Remove ARCHIVE/CATEGORY--BRANCH--VERSION from `tla--browse-open-list'. CATEGORY, BRANCH and VERSION are optional. (defalias 'tla--browse-open-list-remove #[(archive &optional category branch version) " \n \306\257\307\f \"\211)\207" [archive category branch version name tla--browse-open-list nil delete] 5 (#$ . 2142)]) #@128 Add or remove a node represented by TREE to/from `tla--browse-open-list'. If TREE is opened, it is added. Else it is removed. (defalias 'tla--browse-open-tracker #[(tree) "\306\307\"\306 \310\"\306 \311\"\306 \312\"\306 \313\"\306\314\"\203)\315\n \f $\202/\316\n \f $-\207" [tree node a c b v widget-get :node :archive :category :branch :version :open tla--browse-open-list-add tla--browse-open-list-remove] 5 (#$ . 2474)]) #@42 Return the root widget of archives tree. (defalias 'tla--browse-find-archives-root-widget #[nil "\212eb\210\300\301!\210\302u\210\303 )\207" [re-search-forward " Archives$" -1 tla--widget-node-get-at] 2 (#$ . 2915)]) #@197 Find a widget specified with arguments. PARENT specifies the parent widget. NAME is the name of the widget. TYPE is the type of widget. You can specify :archive, :category, :branch, or :version. (defalias 'tla--browse-find-named-widget #[(parent name type) "\306\307\"\211G\310 \311#\306\312\"\211G\f\205+\f\n=\203'\313\202(\314\\ 8\211\205B\212\306\315\"b\210\316`\317\"b\210\320 ).\207" [parent args largs name index children widget-get :args dvc-position #[(e w) "\304\305\"\211\204 \n\304 \"\230)\207" [w node e type widget-get :node] 5] :children 0 1 :from next-single-property-change widget tla--widget-node-get-at lchildren tree] 5 (#$ . 3139)]) #@422 Return a list of widgets: (root archive category branch version) root is always the root of the tree, of type `tla--widget-root-node'. archive is the widget representing ARCHIVE, of type `tla--widget-archive-node'. The last items are potentially nil if CATEGORY, BRANCH or VERSION is nil. Otherwise, they are respectively of type `tla--widget-category-node', `tla--widget-revision-node' and `tla--widget-version-node'. (defalias 'tla--browse-find-widget #[(archive &optional category branch version) "\306 \307\310\311\" \312#\211\205 \205\307\310\n\311\" \313#\211\205- \205-\307\310\f\311\" \314#\211\205B\205B\307\310\311\"\315#\n\f\257-\207" [root archive a category c branch tla--browse-find-archives-root-widget tla--browse-find-named-widget widget-get :parent :archive :category :branch :version b version v] 6 (#$ . 3826)]) #@233 Similar to `tla--browse-find-widget'. Difference is it returns only the widget representing the last non-nil widget of the list. The means of ARCHIVE, CATEGORY, BRANCH and VERSION are the same as that of `tla--browse-find-widget'. (defalias 'tla--browse-find-single-widget #[(archive &optional category branch version) "\305 \n $\306\f8\206\"\307\f8\206\"\310\f8\206\"\fA@\206\"\311\312!)\207" [archive category branch version widgets tla--browse-find-widget 4 3 2 error "Widget not found. Please fill-in a bug report"] 5 (#$ . 4695)]) #@341 Find real(complete) widget from incomplete WIDGET. When trying to find widgets using (widget-get ... :args), we sometimes find an incomplete widget, having no :from or :to information for example. This function takes as an argument an incomplete widget, and finds the corresponding full widget. WIDGET must be of type tla--widget-*-node. (defalias 'tla--browse-find-real-widget #[(widget) "\211@)\211\302=\203\303\304\305\"!\202S \306=\203(\303\304\305\"\304\307\"\"\202S \310=\203?\303\304\305\"\304\307\"\304\311\"#\202S \312=\205S\303\304\305\"\304\307\"\304\313\"#)\207" [widget #1=#:--cl-var-- tla--widget-archive-node tla--browse-find-single-widget widget-get :archive tla--widget-category-node :category tla--widget-branch-node :branch tla--widget-version-node :version] 7 (#$ . 5246)]) (defalias 'tla--browse-open #[(flash archive &optional category branch version) "\300\301\215\207" [--cl-block-tla--browse-open-- (byte-code "\306\211\211\211\211\211\204\307\310\306\"\210\311\306$\211@\211\204+\312\313!\210\314\f\315\"\210\311\306$\211A@\204c \203]\203U\316 \317\"b\210\320 \210\307\310\306\"\210\202c\312\321\"\210\314 \315\"\210\311\306$\322 8\204\235\n\203\225\203\215\316\n\317\"b\210\320 \210\307\310\306\"\210\202\235\312\323#\210\314\n\315\"\210\311\306$\324 8\204\331 \203\317\203\307\316 \317\"b\210\320 \210\307\310\306\"\210\202\331\312\325$\210\314 \315\"\210\311$\326 8\211\203\203\377\316\317\"b\210\320 \210\307\310\306\"\202\312\327%.\207" [v b c a root widgets nil throw --cl-block-tla--browse-open-- tla--browse-find-widget error "Cannot find root archives node" tla--widget-node-toggle-subtree-internal open widget-get :from dvc-flash-line "Cannot find archive node for: %s" 2 "Cannot find category node for: %s/%s" 3 "Cannot find branch node for: %s/%s--%s" 4 "Cannot find branch node for: %s/%s--%s--%s" archive category branch flash version] 7)] 2]) (define-widget 'tla--widget-node 'item "Abstract super widget for tla--widget-*-node." :tla-type nil :format "%[ %t%]%{%v%}\n" :face nil :keymap nil :menu nil :marks " " :keep '(:marks :open) :open-subtree 'tla--tree-widget-node-open-subtree :close-subtree 'tla--tree-widget-node-close-subtree) #@45 Keymap commonly used in tla--widget-*-node. (defvar tla--widget-node-map (byte-code "\305!\306 \307\310#\210\306 \311\312#\210\306 \313\310#\210\306 \314\315!\316#\210\306 \314\317!\320#\210\306 \314\n!\321#\210\306 \322#\210\306 \f\323#\210 )\207" [dvc-cmenu-map-template map dvc-key-show-bookmark dvc-keyvec-kill-ring dvc-keyvec-add-bookmark copy-keymap define-key [return] tla--widget-node-toggle-subtree [down-mouse-2] tla--widget-node-toggle-subtree-by-mouse " " dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks tla--widget-node-save-name-to-kill-ring tla--widget-node-add-bookmark] 4) (#$ . 7559)) #@86 Create value for WIDGET. KEYWORD is used to get the base string to create the value. (defalias 'tla--widget-node-value-create #[(widget keyword) "\305\306\"\305\n\"\307 \310\230\203\311\202 \" \fP+c\207" [widget marks keyword string value widget-get :marks tla--widget-node-install-ui-element "" ""] 4 (#$ . 8215)]) #@163 Create a string with keymap, menu and face properties. The keymap and menu are retrieved from WIDGET. The string is copied from VALUE. FACE is useds as the face. (defalias 'tla--widget-node-install-ui-element #[(widget value &optional face) " \203 \202 \306\n\307\"\306\n\310\"\306\n\311\"\312\203\245\313! 9\2054\314\315\316\317 !\"! \203> \202L\f\205L\320\f!;\205L\320\f! \203i \203d \321\322\321\260\202j\202j ! 9\203v J\202w \323\324G\301 \325 \326 \205\217\327\330\305 \331!\257\f\205\226\332\fD\"BBBB$\210-\202\247-\"\333\324G\302\n\"%\210\")\207" [value face widget help menu keymap widget-get :face :keymap :menu nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 font-lock-face append mouse-face highlight help-echo dvc-cmenu put-text-property str dvc-highlight strcpy key-help prefix-help long-help prop-value] 14 (#$ . 8555)]) #@22 Get widget at POINT. (defalias 'tla--widget-node-get-at #[(&optional point) "\301\203 \202\n`\302\"\207" [point get-text-property widget] 3 (#$ . 9528)]) #@50 Get name list associated widget under the POINT. (defalias 'tla--widget-node-get-name #[(&optional point) "\302!\303 \304\"\303 \305\"\303 \306\"\303 \307\"\310\257)\207" [point widget tla--widget-node-get-at widget-get :archive :category :branch :version nil] 6 (#$ . 9692)]) #@124 Get type of widget under the POINT. Can be either 'archive, 'category, 'branch, 'version or nil for the root of the tree. (defalias 'tla--widget-node-get-type #[(&optional point) "\302!\303 \304\")\207" [point widget tla--widget-node-get-at widget-get :tla-type] 3 (#$ . 9979)]) #@110 Get the ancestor widget of WIDGET. "ancestor" widget stands for the LEVEL upper widget in the archives tree. (defalias 'tla--widget-get-ancestor #[(widget level) "\304\211 W\203\305 \306\"\nT\211\202 *\207" [widget parent i level 0 widget-get :parent] 4 (#$ . 10268)]) #@237 Refresh node and LEVEL subnode at the POINT. Before refreshing node, names cache are also refreshed if ARCHIVE, CATEGORY, and/or BRANCH are specified. If POINT is a symbol, `name', node is specified by ARCHIVE, CATEGORY, and/or BRANCH. (defalias 'tla--widget-node-refresh #[(&optional level point archive category branch) "\204\306 \204`\202& \307=\203%\212\310\311\312\n \f#\313\"\305\"b)\202& \f\2036\314\n \f\315\316%\210\202V \203D\317\n \315\316$\210\202V\n\203Q\320\n\315\316#\210\202V\321\315\316\"\210\322 !\323 \"\324\325\315#\210\326\327!\"\210\330 *\207" [level point archive category branch widget 1 name next-single-property-change widget-get tla--browse-find-single-widget :from tla--archive-tree-build-versions nil t tla--archive-tree-build-branches tla--archive-tree-build-categories tla--archive-tree-build-archives tla--widget-node-get-at tla--widget-get-ancestor widget-put :args widget-value-set widget-value widget-setup tree] 6 (#$ . 10553) nil]) #@72 Synchronizes the mirror for the archive at point to remote from local. (defalias 'tla--widget-node-synchronize-mirror-to-remote #[nil "\305 \306!\307 !\310\211\n\311=\203&\312 \313\"\211\204G\314\315 \"\210\202G\n\303=\203B\316 \313\"\211\203:\f\202G\314\317 \"\210\202G\314\320 \"\210\321 \322!\323!\324!\310%-\207" [name archive type mirror source tla--widget-node-get-name tla--name-archive tla--archive-type nil normal tla--archive-name-mirror t error "No mirror archive for `%s'" tla--archive-name-source "No source archive for `%s'" "Cannot mirror to a source archive: `%s'" tla-archive-mirror tla--name-category tla--name-branch tla--name-version] 7 (#$ . 11554) nil]) #@72 Synchronizes the mirror for the archive at point to local from remote. (defalias 'tla--widget-node-synchronize-mirror-to-local #[nil "\300\207" [nil] 1 (#$ . 12255) nil]) #@43 Save the name under point to `kill-ring'. (defalias 'tla--widget-node-save-name-to-kill-ring #[nil "\301\302 !\211\303\232\203\304\305!\210\306!\210\307\310\")\207" [name tla--name-construct tla--widget-node-get-name "" error "No widget under the point" kill-new message "Name: %s"] 4 (#$ . 12432) nil]) #@67 Add a name associated with a widget at point to xtla's bookmarks. (defalias 'tla--widget-node-add-bookmark #[nil "\303 \304!\305\306\307 \"!\310\n\"\210\311\312!\203\313 \210\314\315\n #+\207" [target target-fq bookmark tla--widget-node-get-name tla--name-construct read-from-minibuffer format "Name of Bookmark for `%s': " tla-bookmarks-add y-or-n-p "View bookmarks? " tla-bookmarks message "bookmark %s(=> %s) added."] 4 (#$ . 12747) nil]) #@147 Toggle between closing and opening the node at POINT. You can specify a symbol, `open' or `close' to FORCE to force the node to open or to close. (defalias 'tla--widget-node-toggle-subtree #[(&optional point force) "\302\303! \"\207" [point force tla--widget-node-toggle-subtree-internal tla--widget-node-get-at] 3 (#$ . 13203) nil]) #@281 Same as `tla--widget-node-toggle-subtree'. The difference is that when the node is expanded, expands it recursively, which means all the children will also be expanded. (this may take looong). Meaning of POINT and FORCE are the same as that of `tla--widget-node-toggle-subtree'. (defalias 'tla--widget-node-toggle-subtree-recursive #[(&optional point force) "\302\303! \304#\207" [point force tla--widget-node-toggle-subtree-internal tla--widget-node-get-at t] 4 (#$ . 13545) nil]) #@214 Toggle between closing and opening the WIDGET. You can specify a symbol, `open' or `close' to FORCE to force the node to open or to close. If RECURSIVE is non-nil, the opening or closing are applied recursively. (defalias 'tla--widget-node-toggle-subtree-internal #[(widget force &optional recursive) "\305\306\"\305\307\" \310=\204 \2041\305\211\311\"\312\"\2041 \203& !\210\f\205h\313\310\"\202h \314=\204F ?\205h\305\211\311\"\312\"\205h\f\203a\305\211\311\"\312\"\203a \203\\ !\210\313\314\"\210\n\205h\n!*\207" [widget open-subtree close-subtree force recursive widget-get :open-subtree :close-subtree open :parent :open tla--widget-node-toggle-subtree-recursion close] 4 (#$ . 14036)]) #@144 A helper function for 'tla--widget-node-toggle-subtree-internal'. Apply all sub node of WIDGET opening or closing which is specified by FORCE. (defalias 'tla--widget-node-toggle-subtree-recursion #[(widget force) "\306\211\307\"\310\"\211\311\211\203A @\306\n\312\"\313\f!\f\211@) \211@)=\204.\314\315!\210 \2039\316 \317#\210* A\211\204+\311\207" [widget args arg #1=#:--cl-dolist-temp-- t-widget full-widget widget-get :parent :args nil :node tla--browse-find-real-widget error "Incorrect widget. Please contact the developers" tla--widget-node-toggle-subtree-internal t force] 6 (#$ . 14762)]) #@47 Open tree node function used in `tla-browse'. (defalias 'tla--tree-widget-node-open-subtree #[(widget) "\302\303!\203\304\305\"\304 \306\"?\205\303 !)\207\302\307!\203 \307\207\310\207" [widget parent fboundp tree-widget-action widget-get :parent :open tree-widget-open-node tla--tree-widget-node-toggle-subtree-for-tree-widget-v1] 3 (#$ . 15383)]) #@48 Close tree node function used in `tla-browse'. (defalias 'tla--tree-widget-node-close-subtree #[(widget) "\302\303!\203\304\305\"\304 \306\"\205\303 !)\207\302\307!\203\310\207\311\207" [widget parent fboundp tree-widget-action widget-get :parent :open tree-widget-open-node tree-widget-close-node tla--tree-widget-node-toggle-subtree-for-tree-widget-v1] 3 (#$ . 15745)]) #@336 Toggle tree node function used in `tla-browse' with tree-widget ver.1.0.5. The code is the almost same as in tree-widget-toggle-folding tree-widget version 1.0.5. Original documents say: "Toggle a `tree-widget' folding. WIDGET is a `tree-widget-node-handle-widget' and its parent the `tree-widget' itself. IGNORE other arguments." (defalias 'tla--tree-widget-node-toggle-subtree-for-tree-widget-v1 #[(widget) "\303\304\"\305 !\211\203\306 !\210\307 \310\n?#\210\311 \n?\"\210\312\313 \"*\207" [widget parent open widget-get :parent widget-value tree-widget-children-value-save widget-put :open widget-value-set run-hook-with-args tree-widget-after-toggle-functions] 5 (#$ . 16132)]) #@57 `tla--widget-node-toggle-subtree' with mouse interface. (defalias 'tla--widget-node-toggle-subtree-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla--widget-node-toggle-subtree] 2 (#$ . 16830) "e"]) (define-widget 'tla--widget-my-id 'push-button "Widget to control tla's my-id." :format "%{My-id:%} %[%t%]" :sample-face 'bold :button-face 'widget-field-face :notify 'tla--widget-my-id-set :help-echo "Click here to change my-id") #@117 Set my-id to my-id-widget. SELF is not used. CHANGED is just passed to `widget-value-set'. EVENT is also not used. (defalias 'tla--widget-my-id-set #[(self changed event) "\302\303!\304 \"\210\305 )\207" [new-id changed tla-my-id t widget-value-set widget-setup] 3 (#$ . 17285)]) (define-widget 'tla--widget-root-node 'tla--widget-node "Root node widget for trees in tla-browse buffer." :value-create 'tla--widget-root-node-value-create :format " %v\n" :face 'bold) #@53 Create a value for root node represented by WIDGET. (defalias 'tla--widget-root-node-value-create #[(widget) "\301\302\303\"\"c\207" [widget tla--widget-node-install-ui-element widget-get :tag] 5 (#$ . 17760)]) #@40 Keymap used on the archives root node. (defvar tla--widget-archives-root-node-map (byte-code "\303!\304 \n\305#\210\304 \306\307!\310#\210\304 \306\311!\312#\210 )\207" [tla--widget-node-map map dvc-keyvec-refresh copy-keymap define-key tla--widget-node-refresh dvc-prefix-add 97 tla--widget-archives-root-node-make-archive 114 tla--widget-archives-root-node-register-archive] 4) (#$ . 17979)) #@66 Menu used on the root archives item in `tla-browse-mode' buffer. (defvar tla--widget-archives-root-node-menu nil (#$ . 18381)) (easy-menu-do-define 'tla--widget-archives-root-node-menu nil "Menu used on the root archives item in `tla-browse-mode' buffer." '("Archives Root" ["Update Archives List" tla--widget-node-refresh t] ["Make New Archive..." tla--widget-archives-root-node-make-archive t] ["Register Archive" tla--widget-archives-root-node-register-archive t])) #@79 Call `tla--make-archive' interactively then update the tree of `tla-browse'. (defalias 'tla--widget-archives-root-node-make-archive #[nil "\300\301!\210\302\303!\207" [call-interactively tla--make-archive tla--widget-node-refresh 1] 2 (#$ . 18856) nil]) #@111 Move the point to beginning of line in where the NAME is. This may be useful to search an archive named NAME. (defalias 'tla--widget-archives-root-node-goto #[(name) "eb\210\301!\210\302 \207" [name search-forward beginning-of-line] 2 (#$ . 19118)]) #@84 Call `tla--register-archive' interactively ; then update the tree of `tla-browse'. (defalias 'tla--widget-archives-root-node-register-archive #[nil "\304\305!\211@A@\3068 \205/\307\310!\210\311 !\210\312\313\314 \"\203*\315\310 \"\202+\n!\210\316 ,\207" [result archive-registered archive tla-response call-interactively tla--register-archive 3 tla--widget-node-refresh 1 message tla--widget-archives-root-node-goto string-match ".+: \\(.+\\)" match-string-no-properties dvc-flash-line] 5 (#$ . 19375) nil]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\313\304\305%\210\300\316\317\320\304\305%\207" [custom-declare-face tla-location ((((type tty) (class color)) (:weight light)) (((class color) (background light)) (:foreground "gray")) (((class color) (background dark)) (:foreground "gray")) (t (:weight bold))) "Face to highlight xtla's archive location." :group tla-faces tla-location-ftp ((t (:inherit tla-location))) "Face to highlight xtla's archive ftp location." tla-location-sftp ((t (:inherit tla-location :foreground "gray50"))) "Face to highlight xtla's archive sftp location." tla-location-http ((t (:inherit tla-location :foreground "gray60"))) tla-location-local ((t (:inherit tla-location :foreground "gray30"))) "Face to highlight xtla's local archive."] 6) #@42 Keymap used on tla--widget-archive-node. (defvar tla--widget-archive-node-map (byte-code "\306!\307 \n\310#\210\307 \311\312#\210\307 \313#\210\307 \314\315!\316#\210\307 \317\320\f\"\321#\210\307 \322#\210\307 \323#\210\307 \314\f!\324#\210\307 \314!\325#\210 )\207" [tla--widget-node-map map dvc-keyvec-refresh dvc-keyvec-remove dvc-key-reflect dvc-keyvec-reflect copy-keymap define-key tla--widget-archive-node-refresh "*" tla--widget-archive-node-select-default tla--widget-archive-node-unregister-archive dvc-prefix-add 99 tla--widget-archive-node-make-category vector 46 tla--widget-archive-node-start-project tla--widget-node-synchronize-mirror-to-remote tla--widget-node-synchronize-mirror-to-local tla--widget-archive-node-make-mirror-at-remote tla--widget-archive-node-make-mirror-at-local dvc-keyvec-get dvc-key-get] 5) (#$ . 20734)) #@58 Menu used on a archive item in `tla-browse-mode' buffer. (defvar tla--widget-archive-node-menu nil (#$ . 21593)) (byte-code "\303\302\304\305\306$\210\301B\307\310!\210\311B\312\313!\210\314\315\316\317\320 \321\322\323\324\325\326\327\330\331\n\332\304\333\304\334\304&\210\335B\336\335!\204?\337\335\304\"\210\304\207" [current-load-list tla--widget-archive-node-tag tla--widget-archive-node-menu easy-menu-do-define nil "Menu used on a archive item in `tla-browse-mode' buffer." ("Archive" ["Update Categories List" tla--widget-archive-node-refresh t] ["Set Default Archive" tla--widget-archive-node-select-default t] ["Remove Archive Registration" tla--widget-archive-node-unregister-archive t] ["Make New Category..." tla--widget-archive-node-make-category t] ["Start Project from Here" tla--widget-archive-node-start-project t] ["Add a Bookmark" tla--widget-node-add-bookmark t] ("Remote Mirror" ["Synchronize Mirror to Remote From Local" tla--widget-node-synchronize-mirror-to-remote (let* ((archive (tla--name-archive (tla--widget-node-get-name))) (type (tla--archive-type archive))) (or (and (eq type 'normal) (tla--archive-name-mirror archive t)) (and (eq type 'mirror) (tla--archive-name-source archive t))))] ["Create a Mirror at Remote" tla--widget-archive-node-make-mirror-at-remote (eq (tla--archive-type (tla--name-archive (tla--widget-node-get-name))) 'normal)]) ("Local Mirror" ["Synchronize Mirror to Local[TODO]" tla--widget-node-synchronize-mirror-to-local nil] ["Create a Mirror at Local" tla--widget-archive-node-make-mirror-at-local (eq (tla--archive-type (tla--name-archive (tla--widget-node-get-name))) 'source)] "--" ["Convert to SOURCE archive" tla--widget-archive-node-convert-to-source (eq (tla--archive-type (tla--name-archive (tla--widget-node-get-name))) 'normal)]) ["Save Name to Kill Ring" tla--widget-node-save-name-to-kill-ring t]) (lambda (#1=#:defconst-tmp-var) (defconst tla--widget-archive-node-tag #1#)) "a" tla--widget-archive-node-default-tag (lambda (#2=#:defconst-tmp-var) (defconst tla--widget-archive-node-default-tag #2#)) "A" define-widget tla--widget-archive-node tla--widget-node "Archive node in tla-browse." :tag :value-create tla--widget-archive-node-value-create :tla-type archive :face tla-archive-name :keymap tla--widget-archive-node-map :menu :archive :archive-location :archive-defaultp tla--widget-archive-node-list default-boundp set-default] 22) #@21 Expand ROOT widget. (defalias 'tla--browse-expand-archives #[(root) "\204 \305 \306\"\206\307 \310\311\312\313?\314\"\210\f\")\207" [current-prefix-arg root default-archive tla--widget-archive-node-list tla--archive-tree widget-get :args tla-my-default-archive nil mapcar #[(archive) "\306\307\310@!\311\312\313\314\315\316\317 @\232\203\n\202 \320@\321\211A@)@\322 @\232\257 \257 \323\324 \315\"\325 #\210 )\207" [archive default-archive tla--widget-archive-node-default-tag tla--widget-archive-node-tag x res tree-widget :open tla--browse-open-list-member :has-children t :dynargs tla--browse-expand-categories :node tla--widget-archive-node :tag :archive :archive-location :archive-defaultp widget-put widget-get :parent] 19] tla--archive-tree-build-archives t] 5 (#$ . 24017)]) #@27 Create values for WIDGET. (defalias 'tla--widget-archive-node-value-create #[(widget) " B\306\307\"\306\310\"\306\311\"\306\312\"\313\n!\211\314=\203,\315\316\317#\210\2029\320=\2039\315\316\321#\210) \322\n\f\205C\323#\324 \203O\325 !\202P\326R,c\207" [widget tla--widget-archive-node-list archive location defaultp marks widget-get :archive :archive-location :archive-defaultp :marks tla--archive-type mirror widget-put :face tla-mirror-archive-name source tla-source-archive-name tla--widget-node-install-ui-element dvc-marked " => " tla--widget-archive-put-face-on-location "*unknown now*" #1=#:--cl-var--] 6 (#$ . 24823)]) #@76 Set face to LOCATION based on the location type(ftp, sftp, http or local). (defalias 'tla--widget-archive-put-face-on-location #[(location) "\303!\211\304=\203\305\202) \306=\203\307\202) \310=\203\"\311\202) \312=\205)\313)\314!\315\316G\302\n%\210*\207" [location #1=#:--cl-var-- face tla--location-type ftp tla-location-ftp sftp tla-location-sftp http tla-location-http local tla-location-local copy-sequence put-text-property 0] 7 (#$ . 25480)]) #@42 Refresh an archive node under the point. (defalias 'tla--widget-archive-node-refresh #[nil "\300\301\302\303\304 !#\207" [tla--widget-node-refresh 1 nil tla--name-archive tla--widget-node-get-name] 5 (#$ . 25953) nil]) #@153 Mark a widget associated with the default archive. Unmark widgets not associated with the default archive. `:archive-defaultp' keyword is used to mark. (defalias 'tla--widget-archive-node-select-default #[nil "\304\305\"\210\306 \307\310 !\311\n!\210\312 \313 #\210\312 \314\315#\210\316 \317 !\"*\207" [tla--widget-archive-node-list widget archive tla--widget-archive-node-default-tag mapc #[(widget) "\303 \304\"\232\205\305 \304\n#\210\305 \306\307#\210\310 \311 !\"\207" [tla--widget-archive-node-default-tag widget tla--widget-archive-node-tag widget-get :tag widget-put :archive-defaultp nil widget-value-set widget-value] 4] tla--widget-node-get-at tla--name-archive tla--widget-node-get-name tla-my-default-archive widget-put :tag :archive-defaultp t widget-value-set widget-value] 4 (#$ . 26179) nil]) #@57 Delete the registration of the archive under the point. (defalias 'tla--widget-archive-node-unregister-archive #[nil "\301\302 !\211\203\303\304\"\210\305\306!\202\307\310!)\207" [archive tla--name-archive tla--widget-node-get-name tla--unregister-archive t tla--widget-node-refresh 2 error "No archive under the point"] 4 (#$ . 27002) nil]) #@51 Make new category in the archive under the point. (defalias 'tla--widget-archive-node-make-category #[nil "\303 \304!\305\306 \307#\310\304\n!\311\n!\"\210\312\313\314\304\n!#\210\315\316\304\n!\311\n!#+\207" [name archive l tla--widget-node-get-name tla--name-archive tla-name-read "New Category: " prompt tla-make-category tla--name-category tla--widget-node-refresh 1 nil tla--browse-open t] 5 (#$ . 27356) nil]) #@58 Convert the archive under the point to a source archive. (defalias 'tla--widget-archive-node-convert-to-source #[nil "\306 \307\310\"\307\311\"\312 \n\"\211@ A@\313 8\211\205=\314\315!\210\316\f!\210\317\320\321\f\"\2038\322\323\f\"\2029 !\210\324 .\207" [widget archive location result tla-response archive-registered tla--widget-node-get-at widget-get :archive :archive-location tla--archive-convert-to-source-archive 3 tla--widget-node-refresh 2 message tla--widget-archives-root-node-goto string-match ".+: \\(.+\\)" match-string-no-properties 1 dvc-flash-line] 5 (#$ . 27782) nil]) #@50 Start new project in the archive unde the point. (defalias 'tla--widget-archive-node-start-project #[nil "\306\307 !p`\310\311\"\312 @!\313 @!\314 @!r q\210\315\316\n#\210\317\320\f %.\207" [archive buffer p result category branch tla--name-archive tla--widget-node-get-name tla-start-project synchronously tla--name-category tla--name-branch tla--name-version tla--widget-node-refresh 1 tla--browse-open t version] 6 (#$ . 28388) nil]) #@76 Create a mirror for the local archive under the point at somewhere remote. (defalias 'tla--widget-archive-node-make-mirror-at-remote #[nil "\301\302 !\211\204 \303\304!\210\305\306\211\211\211%\210\307\310!\210\311\312\313 \203$\314\202%\315\"!\210\316 )\207" [archive tla--name-archive tla--widget-node-get-name error "No archive under the point" tla-mirror-archive nil tla--widget-node-refresh 2 tla--widget-archives-root-node-goto format tla-use-baz-archive-registration "%s" "%s-MIRROR" dvc-flash-line] 7 (#$ . 28845) nil]) #@66 Create a mirror for the remote archive under the point to local. (defalias 'tla--widget-archive-node-make-mirror-at-local #[nil "\301\302 !\211\204 \303\304!\210\305\306\"\210\307\310!\210\311\312\"\210\313\314\315\"\316P!\210\317 )\207" [archive tla--name-archive tla--widget-node-get-name error "No archive under the point" tla-mirror-from-archive nil tla--widget-node-refresh 2 string-match "\\(.*\\)-SOURCE$" tla--widget-archives-root-node-goto match-string 1 " " dvc-flash-line] 5 (#$ . 29385) nil]) #@43 Keymap used on tla--widget-category-node. (defvar tla--widget-category-node-map (byte-code "\303!\304 \n\305#\210\304 \306\307!\310#\210 )\207" [tla--widget-node-map map dvc-keyvec-refresh copy-keymap define-key tla--widget-category-node-refresh dvc-prefix-add 98 tla--widget-category-node-make-branch] 4) (#$ . 29901)) #@58 Menu used on a archive item in `tla-browse-mode' buffer. (defvar tla--widget-category-node-menu nil (#$ . 30229)) (byte-code "\301\300\302\303\304$\210\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\302\325\302&\207" [tla--widget-category-node-menu easy-menu-do-define nil "Menu used on a archive item in `tla-browse-mode' buffer." ("Category" ["Update Branches List" tla--widget-category-node-refresh t] ["Remove Category[NOT IMPLEMENTED]" nil t] ["Make New Branch..." tla--widget-category-node-make-branch t] ["Add a Bookmark" tla--widget-node-add-bookmark t] ["Synchronize Mirror to Remote" tla--widget-node-synchronize-mirror-to-remote t] ["Save Name to Kill Ring" tla--widget-node-save-name-to-kill-ring t]) define-widget tla--widget-category-node tla--widget-node "Category node in tla-browse." :tag "c" :value-create tla--widget-category-node-value-create :tla-type category :face tla-category-name :keymap tla--widget-category-node-map :menu :archive :category] 20) #@24 Expand ARCHIVE widget. (defalias 'tla--browse-expand-categories #[(archive) "\204 \305 \306\"\2066\305\211 \307\"\310\"\311\312\313\n!\211AA)\211\203&\203,\314\n\315\316#\210\313\n!\211AA*\")\207" [current-prefix-arg archive archive-name x l widget-get :args :node :archive mapcar #[(category) "\303\304\305 @\"\306\307\310\311\312\313\314\315 @\257\257 \316\317\n\312\"\320\n#\210\n)\207" [archive-name category res tree-widget :open tla--browse-open-list-member :has-children t :dynargs tla--browse-expand-branches :node tla--widget-category-node :archive :category widget-put widget-get :parent] 13] tla--archive-tree-get-archive tla--archive-tree-build-categories nil t] 7 (#$ . 31228)]) #@36 Create values for category WIDGET. (defalias 'tla--widget-category-node-value-create #[(widget) "\301\302\"\207" [widget tla--widget-node-value-create :category] 3 (#$ . 31940)]) #@41 Refresh a category widget at the point. (defalias 'tla--widget-category-node-refresh #[nil "\301 \302\303\304\305!\306!$)\207" [name tla--widget-node-get-name tla--widget-node-refresh 1 nil tla--name-archive tla--name-category] 6 (#$ . 32126) nil]) #@50 Make new branch in the category under the point. (defalias 'tla--widget-category-node-make-branch #[nil "\304 \305!\306!\307\310 \n\311$\312\305 !\306 !\313 !#\210\314\315\316\305 !\306 !$\210\317\320\305 !\306 !\313 !$,\207" [name archive category l tla--widget-node-get-name tla--name-archive tla--name-category tla-name-read "New Branch: " prompt tla-make-branch tla--name-branch tla--widget-node-refresh 1 nil tla--browse-open t] 6 (#$ . 32384) nil]) #@41 Keymap used on tla--widget-branch-node. (defvar tla--widget-branch-node-map (byte-code "\304!\305 \n\306#\210\305 \307\310!\311#\210\305 \312#\210 )\207" [tla--widget-node-map map dvc-keyvec-refresh dvc-keyvec-get copy-keymap define-key tla--widget-branch-node-refresh dvc-prefix-add 118 tla--widget-branch-node-make-version tla--widget-branch-node-get-branch] 4) (#$ . 32851)) #@58 Menu used on a archive item in `tla-browse-mode' buffer. (defvar tla--widget-branch-node-menu nil (#$ . 33238)) (byte-code "\301\300\302\303\304$\210\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\302\325\302\326\302&\207" [tla--widget-branch-node-menu easy-menu-do-define nil "Menu used on a archive item in `tla-browse-mode' buffer." ("Branch" ["Update Version List" tla--widget-branch-node-refresh t] ["Remove Branch Registration[NOT IMPLEMENTED]" nil t] ["Make New Version..." tla--widget-branch-node-make-version t] ["Get..." tla--widget-branch-node-get-branch t] ["Add a Bookmark" tla--widget-node-add-bookmark t] ["Synchronize Mirror to Remote" tla--widget-node-synchronize-mirror-to-remote t] ["Save Name to Kill Ring" tla--widget-node-save-name-to-kill-ring t]) define-widget tla--widget-branch-node tla--widget-node "Branch node in tla-browse." :tag "b" :value-create tla--widget-branch-node-value-create :tla-type branch :face tla-branch-name :keymap tla--widget-branch-node-map :menu :archive :category :branch] 22) #@25 Expand CATEGORY widget. (defalias 'tla--browse-expand-branches #[(category) "\204 \306 \307\"\2069\306 \310\"\306\n\311\"\306\n\312\"\313\314\315 \f\"A\211\203*\2031\316 \f\317\320$\210\315 \f\"A)\"+\207" [current-prefix-arg category parent-node archive-name category-name l widget-get :args :node :archive :category mapcar #[(branch) "\304\305\306 \n@#\307\310\311\312\313\314\315\316\317\320 \321\n@\257\257 \322\323 \315\"\324 #\210 )\207" [archive-name category-name branch res tree-widget :open tla--browse-open-list-member :has-children t :leaf-control tla--widget-version-control :dynargs tla--browse-expand-versions :node tla--widget-branch-node :archive :category :branch widget-put widget-get :parent] 17] tla--archive-tree-get-category tla--archive-tree-build-branches nil t] 8 (#$ . 34291)]) #@34 Create values for branch WIDGET. (defalias 'tla--widget-branch-node-value-create #[(widget) "\301\302\"\207" [widget tla--widget-node-value-create :branch] 3 (#$ . 35115)]) #@39 Refresh a branch widget at the point. (defalias 'tla--widget-branch-node-refresh #[nil "\301 \302\303\304\305!\306!\307!%)\207" [name tla--widget-node-get-name tla--widget-node-refresh 1 nil tla--name-archive tla--name-category tla--name-branch] 7 (#$ . 35295) nil]) #@49 Make new version in the branch under the point. (defalias 'tla--widget-branch-node-make-version #[nil "\305 \306!\307!\307!\310\311 \n \312%\313\306\f!\307\f!\314\f!\315\f!$\210\316\317\320\306\f!\307\f!\314\f!%\210\321\322\306\f!\307\f!\314\f!\315\f!%-\207" [name archive category branch l tla--widget-node-get-name tla--name-archive tla--name-category tla-name-read "New Version: " prompt tla-make-version tla--name-branch tla--name-version tla--widget-node-refresh 1 nil tla--browse-open t] 7 (#$ . 35572) nil]) #@44 Run `tla get' against the branch at point. (defalias 'tla--widget-branch-node-get-branch #[nil "\305 \306!\307!\310!\311\312\313\314 \204\315\316!\210\317 \n #\"!! \2032\320\f\321 \n %\2025\315\316!-\207" [name archive category branch directory tla--widget-node-get-name tla--name-archive tla--name-category tla--name-branch expand-file-name dvc-read-directory-name format "Restore \"%s\" to: " error "No branch under the point" tla--name-construct tla-get ask] 8 (#$ . 36101) nil]) #@42 Keymap used on tla--widget-version-node. (defvar tla--widget-version-node-map (byte-code "\305!\306 \n\307#\210\306 \310#\210\306 \f\311#\210\306 \312\313#\210 )\207" [tla--widget-node-map map dvc-keyvec-refresh dvc-keyvec-get dvc-keyvec-tag copy-keymap define-key tla--widget-version-node-show-revisions tla--widget-version-node-get-version tla--widget-version-node-tag [76] tla--widget-version-node-add-to-library] 4) (#$ . 36602)) #@58 Menu used on a archive item in `tla-browse-mode' buffer. (defvar tla--widget-version-node-menu nil (#$ . 37045)) (byte-code "\301\300\302\303\304$\210\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\302\325\302\326\302\327\302\330\331\332\331&\210\305\333\334\335\311\336\337\340\341\342& \207" [tla--widget-version-node-menu easy-menu-do-define nil "Menu used on a archive item in `tla-browse-mode' buffer." ("Version" ["Show Revisions" tla--widget-version-node-show-revisions t] ["Remove Version Registration[NOT IMPLEMENTED]" nil t] ["Get..." tla--widget-version-node-get-version t] ["Add to Library" tla--widget-version-node-add-to-library t] ["Add a Bookmark" tla--widget-node-add-bookmark t] ["Synchronize Mirror to Remote" tla--widget-node-synchronize-mirror-to-remote t] ["Put Tag..." tla--widget-version-node-tag t] ["Save Name to Kill Ring" tla--widget-node-save-name-to-kill-ring t]) define-widget tla--widget-version-node tla--widget-node "Version node in tla-browse." :tag "v" :value-create tla--widget-version-node-value-create :tla-type version :face tla-version-name :keymap tla--widget-version-node-map :menu :archive :category :branch :version :open-subtree tla--widget-version-node-open-subtree :close-subtree tla--widget-version-control tree-widget-empty-control "Control widget that represents a leaf version node." "[->]" :format "%[%t%]" :action tla--widget-version-control-show-revisions] 28) #@123 Show revisions in a version associated with WIDGET. The version is under the point or place where click EVENT is created. (defalias 'tla--widget-version-control-show-revisions #[(widget &optional event) "\203\302!\210\303`\304p\305 $\211\205\306 !)\207" [event pos mouse-set-point next-single-property-change widget line-end-position tla--widget-version-node-show-revisions] 6 (#$ . 38487)]) #@23 Expand BRANCH widget. (defalias 'tla--browse-expand-versions #[(branch) "\204 \306 \307\"\206B\306 \310\"\306\n\311\"\306\n\312\"\306\n\313\"\314\315\316 \f #A\211\2031\2039\317 \f \320\321%\210\316 \f #A)\",\207" [current-prefix-arg branch parent-node archive-name category-name branch-name widget-get :args :node :archive :category :branch mapcar #[(version) "\304\305\306 \307\n\310 @\257 \207" [archive-name category-name branch-name version tla--widget-version-node :archive :category :branch :version] 9] tla--archive-tree-get-branch tla--archive-tree-build-versions nil t l] 9 (#$ . 38892)]) #@35 Create values for version WIDGET. (defalias 'tla--widget-version-node-value-create #[(widget) "\301\302\"\207" [widget tla--widget-node-value-create :version] 3 (#$ . 39510)]) #@94 Show revisions in the version under the POINT. If POINT is nil, use the point under `point'. (defalias 'tla--widget-version-node-show-revisions #[(&optional point) "\302\206`!\303\304 !\305 !\306 !\307 !\310\211&)\207" [point name tla--widget-node-get-name tla-revisions tla--name-archive tla--name-category tla--name-branch tla--name-version nil] 7 (#$ . 39693) nil]) #@45 Run "tla get" against the version at point. (defalias 'tla--widget-version-node-get-version #[nil "\306 \307!\310!\311!\312!\313\314\315\316\f\204\317\320!\210\321 \n \f$\"!!\f\2039\322 \323 \n \f&\202<\317\320!.\207" [name archive category branch version directory tla--widget-node-get-name tla--name-archive tla--name-category tla--name-branch tla--name-version expand-file-name dvc-read-directory-name format "Restore \"%s\" to: " error "No version under the point" tla--name-construct tla-get ask] 9 (#$ . 40073) nil]) #@53 Run "tla library-add" against the version at point. (defalias 'tla--widget-version-node-add-to-library #[nil "\305 \306!\307!\310!\311!\211\203 \312 \n \f$\202#\313\314!-\207" [name archive category branch version tla--widget-node-get-name tla--name-archive tla--name-category tla--name-branch tla--name-version tla-library-add error "No version under the point"] 6 (#$ . 40618) nil]) #@47 Run tla tag from the version under the point. (defalias 'tla--widget-version-node-tag #[nil "\304 \305!\306\307\310 \"\311\211\211\211%\305\n!\204\312\313!\210 \204&\312\314!\210\212\315 \316#\210)\317\320\321 !\"\210\322\323\324\321 !#\210\317\320\321 !\325 !#\210\322\323\324\321 !\325 !$\210\317\320\321 !\325 !\326 !$\210\322\323\324\321 !\325 !\326 !%\210\317\327\321 !\325 !\326 !\330 !%,\207" [from from-fq to to-fq tla--widget-node-get-name tla--name-construct tla-name-read format "Tag from `%s' to: " prompt error "No version under the point" "Wrong version tagged to is given" tla--version-tag-internal synchronously tla--browse-open nil tla--name-archive tla--widget-node-refresh 1 name tla--name-category tla--name-branch t tla--name-version] 7 (#$ . 41020) nil]) #@55 List revisions in the version associated with WIDGET. (defalias 'tla--widget-version-node-open-subtree #[(widget) "\301\302\303\"\302\304\"\302\305\"\302\306\"\307\211&\207" [widget tla-revisions widget-get :archive :category :branch :version nil] 7 (#$ . 41813)]) #@251 Browse registered archives as trees within one buffer. You can specify the node should be opened by alist, INITIAL-OPEN-LIST. If APPEND is nil, the nodes not in INITIAL-OPEN-LIST are made closed. If non-nil, the nodes already opened are kept open. (defalias 'tla-browse #[(&optional initial-open-list append) "\306\307 \"!\210\310\311!\210\312\313\314\315 !\203 \312\316\f\312\"\210\202I \203.\313\316\f\313\"\210\202I\317\320\321\322 \"!\203B\312\316\f\313\"\210\202I\313\316\f\312\"\210 \203V\323 \210\324 \210\202\\\325\326 \"\210)eb\210\327 \207" [tla-arch-branch tla--browse-buffer-type truncate-lines building initial-open-list append switch-to-buffer dvc-get-buffer-create make-local-variable tla--browse-open-list t nil zerop buffer-size tla--browse-set-initial-open-list y-or-n-p format "Remove old %s? " buffer-name tla--browse-erase-buffer tla--browse-build-buffer mapc #[(elt) "\301\302\303!\304!\305!\306!%\207" [elt tla--browse-open nil tla--name-archive tla--name-category tla--name-branch tla--name-version] 7] tla-browse-mode] 4 (#$ . 42090) nil]) #@151 Insert LIST to `tla--browse-open-list'. If CLEARP is set, clear `tla--browse-open-list' before insertion. This is a helper function for `tla-browse'. (defalias 'tla--browse-set-initial-open-list #[(list clearp) "\203\303\304\305\n\"\207" [clearp tla--browse-open-list list nil mapc #[(elt) "\301\302!\303!\304!\305!$\207" [elt tla--browse-open-list-add tla--name-archive tla--name-category tla--name-branch tla--name-version] 6]] 3 (#$ . 43184)]) #@28 Erase *tla-browse* buffer. (defalias 'tla--browse-erase-buffer #[nil "\301\302 \210)\303\304\305ed\"\"\207" [inhibit-read-only t erase-buffer mapc delete-overlay overlays-in] 5 (#$ . 43645)]) #@34 Insert contents of *tla-buffer*. (defalias 'tla--browse-build-buffer #[nil "\301\302\303\304\305\306\307\304\310\311 D&\210\312\313!\210\314\315\316\"\210\301\302\303\304\305\317\320\321\322\323\324\325\326\257 \327\304\330\331& \210\332 \207" [tla--widget-archives-root-node-menu widget-create tree-widget :open t :node (item :format "%[%t%]\n" :tag "Personal Configuration") :has-chidren tla--widget-my-id tla-my-id widget-insert "\n" add-hook tree-widget-after-toggle-functions tla--browse-open-tracker tla--widget-root-node :tla-type archives-root :tag "Archives" :keymap tla--widget-archives-root-node-map :menu :has-children :dynargs tla--browse-expand-archives widget-setup] 14 (#$ . 43844)]) #@167 Run `tla--browse-toggle-subtree'. Before running a widget is searched and move the point to the widget if it is found. If no widget is found, `widget-button-press'. (defalias 'tla--browse-toggle-subtree-maybe #[nil "\301\302 \303\304\305 $\211\203\306!\203\307!\202\310`!)\207" [p next-single-property-change line-beginning-position widget nil line-end-position tla--widget-node-get-type tla--widget-node-toggle-subtree widget-button-press] 6 (#$ . 44553) nil]) #@68 Move the point to the place where a widget is in the current line. (defalias 'tla--browse-dash #[nil "\301\302 \303\304\305 $\211\205\306!\205b\210\307 )\207" [p next-single-property-change line-beginning-position widget nil line-end-position tla--widget-node-get-type dvc-flash-line] 6 (#$ . 45031) nil]) #@35 Keymap used in `tla-browse-mode'. (defvar tla-browse-map (byte-code "\306!\307 \n\310#\210\307 \311\312!\313#\210\307 \311\314!\315#\210\307 \311 !\316#\210\307 \317\320#\210\307 \321\320#\210\307 \322\323#\210\307 \f\324#\210\307 \325#\210\307 \326#\210\307 \327\330#\210 )\207" [widget-keymap map dvc-keyvec-help dvc-key-show-bookmark dvc-keyvec-next dvc-keyvec-previous copy-keymap define-key describe-mode dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks [return] tla--browse-toggle-subtree-maybe " " " " tla--browse-dash next-line previous-line kill-this-buffer [43] tla--widget-node-toggle-subtree-recursive dvc-keyvec-quit] 4) (#$ . 45350)) #@88 Mode for browsing tla's archives. Don't use this function. Instead call `tla-browse'. (defalias 'tla-browse-mode #[nil "\303 \210\304\305\306\n!\210\307\310!\210\311\312!\207" [major-mode mode-name tla-browse-map dvc-install-buffer-menu tla-browse-mode "tla-browse" use-local-map set-buffer-modified-p nil run-hooks tla-browse-mode-hook] 2 (#$ . 46052)]) (provide 'tla-browse)