;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-defs.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-defs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304\305\"\210\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\306\316!\210\306\317!\210\306\320!\210\321\322\323\217\210\306\324!\210\306\316!\210\301B\325\301!\204K\326\301\327\321B\"\210\301\330 BM\210\302B\325\302!\204b\326\302\331\321B\"\210\302\330\nBM\207" [current-load-list xtla--name-read-partner-menu xtla--name-read-bookmark-menu autoload ad-add-advice "advice" require ediff diff-mode font-lock add-log ffap dvc-log dvc-utils dvc-core dvc-ui dvc-defs nil (byte-code "\300\301!\207" [require dvc-site] 2) ((error)) easymenu default-boundp set-default "Insert Partner Version" keymap "Insert Version in Bookmarks"] 4) #@289 Key definitions table for `tla--name-read-minibuf-map'. The reason these definitions are defined separately from `tla--name-read-minibuf-map' is that to reuse these definitions in `tla-name-read-help'. Don't forget to evalute `tla--name-read-minibuf-map' again after updating this value. (defvar tla--name-read-extension-keydefs '(([(control r)] . tla-name-read-refresh-cache) ([(meta *)] . tla-name-read-insert-default-archive) ([(meta \.)] . tla-name-read-insert-info-at-point) ([(meta \;)] . tla-name-read-insert-version-associated-with-default-directory) ([(control n)] . tla-name-read-insert-partner-next) ([(control p)] . tla-name-read-insert-partner-previous) ([(control v)] . tla-name-read-insert-bookmark-next) ([(meta v)] . tla-name-read-insert-bookmark-previous) ([(meta ^)] . tla-name-read-insert-ancestor) ([(control h)] . tla-name-read-help) ([(meta \?)] . tla-name-read-inline-help)) (#$ . 1289)) (defalias 'tla-name-read-minibuf-map-fn #[nil "\303!\304\305\n\"\210\306 \307\310\311\310!B#\210\306 \312\313\314\315E#\210\306 \316\313\317\320\321\322\257#\210\306 \323\313\324\325\321\326\257#\210\306 \327\313\330\331\321\332\257#\210\306 \333\313\334\335\321\336\257#\210\306 \337\313\340\341\321\342\257#\210 )\207" [minibuffer-local-completion-map map tla--name-read-extension-keydefs copy-keymap mapc #[(pair) "@A\304 \n #*\207" [pair func key map define-key] 4] define-key [menu-bar xtla] "Xtla" make-sparse-keymap [menu-bar xtla refresh] menu-item "Refresh Completion Cache" tla-name-read-refresh-cache [menu-bar xtla ancestor] "Insert Ancestor" tla-name-read-insert-ancestor :enable (and (minibufferp) (equal #1="" (minibuffer-contents)) (member archive '(prompt maybe)) (not (eq this-command 'tla-revision-direct-ancestor))) [menu-bar xtla default] "Insert Default Archive" tla-name-read-insert-default-archive (and (minibufferp) (equal #1# (minibuffer-contents)) (member archive '(prompt maybe))) [menu-bar xtla here] "Insert Thing at Point" tla-name-read-insert-info-at-point (and (minibufferp) (equal #1# (minibuffer-contents)) tla-name-read-insert-info-at-point) [menu-bar xtla bookmark] "Insert Version in Bookmark" xtla--name-read-bookmark-menu (let* ((l (condition-case nil (let ((default-version (tla-tree-version-list default-directory))) (tla-bookmarks-get-partner-versions default-version)) (error nil)))) (and l (< 0 (length l)))) [menu-bar xtla partner] "Insert Partner Version" xtla--name-read-partner-menu (let* ((l (condition-case nil (tla-partner-list) (error nil)))) (and l (< 0 (length l))))] 8]) #@55 Keymap to input a gnuarch revision at the minibuffer. (defvar tla--name-read-minibuf-map (tla-name-read-minibuf-map-fn) (#$ . 3845)) #@113 Function to run when all lint warnings have been eliminated. Must be buffer-local, in a tree-lint mode buffer. (defvar tla--tree-lint-nowarning-fn nil (#$ . 3985)) #@46 Keymap used in `tla-bookmarks-mode' buffers. (defvar tla-bookmarks-mode-map (byte-code "\306 \307 \310#\210\307\n\311#\210\307 \312#\210\307\313\314#\210\307\315\316#\210\307\317\f!\320#\210\307\317 !\321#\210\307\317@!\322#\210\307\317A!\323#\210\307\317B!\324#\210\307\325\326#\210\307\327\330#\210\307C\331#\210\307D\332#\210\307\333\334#\210\307E\335#\210\307F\336#\210\307G\337#\210\307\340\341!\342#\210\307\343\344#\210\307\345\346!\347#\210\307\350\346!\351#\210\307\352\353!\354#\210\307\352\355!\356#\210\307\345\357!\360#\210\307\350\357!\361#\210\307\362\363#\210\307H\364#\210\307\345\365!\366#\210\307\350\365!\367#\210\307\345\341!\370#\210\307\350\341!\371#\210\307\345\372!\373#\210\307\350\372!\374#\210\307\375\376#\210\307I\377#\210\307\201K\346!\201L#\210\307\201K\201M!\201N#\210\307J\201O#\210)\207" [map dvc-keyvec-help dvc-keyvec-next dvc-keyvec-previous dvc-key-star-merge dvc-key-replay make-sparse-keymap define-key describe-mode tla-bookmarks-next tla-bookmarks-previous [78] tla-bookmarks-move-down [80] tla-bookmarks-move-up dvc-prefix-merge tla-bookmarks-star-merge tla-bookmarks-replay tla-bookmarks-update tla-bookmarks-missing tla-bookmarks-tag [111] tla-bookmarks-open-tree [(control x) (control f)] tla-bookmarks-find-file tla-bookmarks-changes tla-bookmarks-get " " tla-bookmarks-goto tla-bookmarks-mark tla-bookmarks-unmark tla-bookmarks-unmark-all dvc-prefix-mark 103 tla-bookmarks-select-by-group [(meta p)] tla-bookmarks-marked-are-partners dvc-prefix-add 112 tla-bookmarks-add-partner-interactive dvc-prefix-remove tla-bookmarks-delete-partner-interactive dvc-prefix-partner-file 114 tla-bookmarks-add-partners-from-file 119 tla-bookmarks-write-partners-to-file 98 tla-bookmarks-add tla-bookmarks-delete [101] tla-bookmarks-edit tla-bookmarks-toggle-details 116 tla-bookmarks-add-tree-interactive tla-bookmarks-delete-tree-interactive tla-bookmarks-add-group-interactive tla-bookmarks-delete-group-interactive 110 tla-bookmarks-add-nickname-interactive tla-bookmarks-delete-nickname-interactive [115] tla-bookmarks-edit-summary tla-bookmarks-inventory dvc-key-update dvc-key-missing dvc-key-tag dvc-keyvec-diff dvc-keyvec-get dvc-keyvec-mark dvc-keyvec-unmark dvc-keyvec-unmark-all dvc-keyvec-toggle dvc-keyvec-inventory dvc-keyvec-quit dvc-prefix-buffer dvc-show-process-buffer 76 dvc-open-internal-log-buffer dvc-buffer-quit] 4) (#$ . 4156)) #@57 Keymap used on entries in `tla-bookmarks-mode' buffers. (defvar tla-bookmarks-entry-map (byte-code "\303!\304 \n\305#\210 )\207" [dvc-cmenu-map-template map dvc-mouse-2 copy-keymap define-key tla-bookmarks-goto-by-mouse] 4) (#$ . 6607)) #@46 Keymap used in `tla-inventory-mode' buffers. (defvar tla-inventory-mode-map (byte-code "\306 \307 \310#\210\307\n\311#\210\307 \312#\210\307\f\313#\210\307 \314#\210\307@\315#\210\307A\316#\210\307B\317#\210\307\320\321#\210\307\322\323#\210\307\324C!\325#\210\307D\326#\210\307\327\330#\210\307E\331#\210\307\332\333#\210\307\334\333#\210\307\335\333#\210\307\336\337#\210\307\340\341#\210\307\342F!\343#\210\307\344G!\345#\210\307\344\346!\347#\210\307\344H!\350#\210\307\344I!\351#\210\307J\345#\210\307K\350#\210\307L\352#\210\307\342M!\353#\210\307\342N!\354#\210\307\342O!\355#\210\307\342P!\356#\210\307\357\360!\361#\210\307\357\362!\363#\210\307\357Q!\364#\210\307R\365#\210\307\366S!\367#\210\307\366\370!\371#\210\307\366\372!\373#\210\307\366\374!\375#\210\307\366\376!\377#\210\307\366\201]!\201^#\210\307\366\201_!\356#\210\307\366\201`!\201a#\210\307\201b\201`!\201c#\210\307\201b\201]!\201d#\210\307\201b\201e!\201f#\210\307\366T!\201g#\210\307\201hU!\201i#\210\307\201hV!\201j#\210\307W\201k#\210\307X\201i#\210\307Y\201j#\210\307\201l\201m!\201n#\210\307\201l\201o!\201p#\210\307\324\201q!\201r#\210\307\324\201s!\201r#\210\307\324\360!\201t#\210\307\324\201u!\201t#\210\307\201l\201v!\201w#\210\307\201l\376!\201x#\210\307\201l\201y!\201z#\210\307\201l\201{!\201z#\210\307\201l\201q!\201|#\210\307\201l\201}!\201~#\210\307\201l\201!\201~#\210\307\201l\360!\201\200#\210\307\201l\201\201!\201\202#\210\307\201l\201\203!\201\204#\210\307\201l\201\205!\201\204#\210\307\201l\201\206!\201\207#\210\307\201l\201\210!\201\211#\210\307\201l\201\212!\201\213#\210\307\201l\201\214!\201\215#\210\307Z\201\216#\210\307[\201\217#\210\307\\\201\220#\210)\207" [map dvc-keyvec-help dvc-keyvec-refresh dvc-keyvec-add dvc-keyvec-remove dvc-keyvec-quit make-sparse-keymap define-key describe-mode dvc-generic-refresh tla-inventory-add-files tla-inventory-remove-files dvc-buffer-quit tla-inventory-next tla-inventory-previous tla-inventory-parent-directory [(control x) (control j)] dvc-dired-jump [88] tla-inventory-delete-files dvc-prefix-move tla-inventory-move tla-inventory-edit-log [108] tla-changelog tla-logs [102] tla-inventory-find-file [return] " " [111] dvc-find-file-other-window [118] dvc-view-file dvc-prefix-merge tla-inventory-missing dvc-prefix-diff tla-inventory-changes 108 tla-changes-last-revision tla-inventory-file-ediff tla-inventory-delta tla-inventory-mirror tla-inventory-star-merge tla-inventory-replay tla-inventory-update tla-inventory-apply-changeset dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks tla-inventory-revert dvc-prefix-working-copy tla-inventory-undo 82 tla-inventory-redo 83 tla-changes-save 115 tla-changes-save-as-tgz 86 tla-show-changeset dvc-keyvec-next dvc-keyvec-previous dvc-keyvec-parent dvc-key-move dvc-keyvec-commit dvc-keyvec-logs dvc-key-missing dvc-key-diff dvc-key-ediff dvc-key-get dvc-keyvec-diff dvc-keyvec-ediff dvc-keyvec-reflect dvc-key-star-merge dvc-key-replay dvc-key-update dvc-key-reflect dvc-key-show-bookmark dvc-keyvec-revert dvc-key-revert dvc-key-tree-lint dvc-key-mark dvc-key-unmark dvc-keyvec-unmark-all dvc-keyvec-mark dvc-keyvec-unmark dvc-keyvec-toggle-set dvc-keyvec-toggle-reset dvc-keyvec-toggle-invert 118 tla-show-changeset-from-tgz 65 97 tla-inventory-apply-changeset-from-tgz dvc-prefix-kill-ring tla-save-archive-to-kill-ring tla-save-version-to-kill-ring 114 tla-save-revision-to-kill-ring tla-tree-lint dvc-prefix-mark tla-inventory-mark-file tla-inventory-unmark-file tla-inventory-unmark-all dvc-prefix-tagging-method 61 tla-edit-=tagging-method-file 46 tla-edit-\.arch-inventory-file 106 tla-inventory-make-junk 44 tla-inventory-make-precious 43 77 tla-generic-set-id-tagging-method tla-generic-set-tree-version 120 tla-generic-add-to-exclude 101 tla-generic-add-to-junk 98 tla-generic-add-to-backup 126 tla-generic-add-to-precious 117 tla-generic-add-to-unrecognized 88 tla-generic-add-ext-to-exclude 69 74 tla-generic-add-ext-to-junk 66 tla-generic-add-ext-to-backup 80 tla-generic-add-ext-to-precious 85 tla-generic-add-ext-to-unrecognized tla-inventory-set-all-toggle-variables tla-inventory-reset-all-toggle-variables tla-inventory-toggle-all-toggle-variables] 4) (#$ . 6852)) #@55 Keymap used on items in `tla-inventory-mode' buffers. (defvar tla-inventory-item-map (byte-code "\303!\304 \n\305#\210 )\207" [dvc-cmenu-map-template map dvc-mouse-2 copy-keymap define-key tla-inventory-find-file-by-mouse] 4) (#$ . 11271)) #@75 Keymap used on the default version field in `tla-inventory-mode' buffers. (defvar tla-inventory-default-version-map (byte-code "\302!\303 \304\305#\210\303 \306\305#\210 )\207" [dvc-cmenu-map-template map copy-keymap define-key [return] tla-generic-set-tree-version " "] 4) (#$ . 11519)) #@74 Keymap used on the tagging method field in `tla-inventory-mode' buffers. (defvar tla-inventory-tagging-method-map (byte-code "\303!\304 \n\305#\210\304 \306\307#\210\304 \310\311#\210 )\207" [dvc-cmenu-map-template map dvc-mouse-2 copy-keymap define-key tla-generic-set-id-tagging-method-by-mouse [return] tla-generic-set-id-tagging-method " " tla-inventory-id-tagging-method] 4) (#$ . 11815)) #@43 List of possible file types in inventory. (defconst tla-inventory-file-types-manipulators '((83 tla-inventory-display-source tla-inventory-toggle-source 115 "source") (80 tla-inventory-display-precious tla-inventory-toggle-precious 112 "precious") (74 tla-inventory-display-junk tla-inventory-toggle-junk 106 "junk") (66 tla-inventory-display-backup tla-inventory-toggle-backup 98 "backup") (84 tla-inventory-display-tree tla-inventory-toggle-tree 116 "tree root") (85 tla-inventory-display-unrecognized tla-inventory-toggle-unrecognized 117 "unrecognized")) (#$ . 12217)) (byte-code "\306\211\203+\n@\307 \310\311 \211AA)\211A@)\" \211AA)@#\210\nA\211\204*\306\211\203T @\312\313 \211A@)\314\315\316 8\317Q\320BBBB!\210 A\211\2044*\306\207" [tla-inventory-file-types-manipulators type-arg #:--cl-dolist-temp-- tla-inventory-mode-map x #:--cl-dolist-temp-- nil define-key vector 116 eval defcustom t "Wether " 4 " should be printed in inventory" (:group 'tla-inventory :type 'boolean)] 8) #@46 Keymap used in `tla-tree-lint-mode' buffers. (defvar tla-tree-lint-mode-map (byte-code "\306 \307 \310#\210\307\n\311#\210\307 \312#\210\307\f\313#\210\307 \314#\210\307\315\316#\210\307@\317#\210\307A\320#\210\307B\321#\210\307\322\320#\210\307\323\321#\210\307C\324#\210\307\325\326!\327#\210\307\325\330!\327#\210\307\325\331!\332#\210\307\325\333!\332#\210\307\334\335!\336#\210\307\334\337!\340#\210\307\334\341!\342#\210\307\334\343!\344#\210\307\334\345!\346#\210\307\334\347!\350#\210\307\334\351!\346#\210\307\334\352!\350#\210\307\334\326!\353#\210\307\334\354!\355#\210\307\334\356!\357#\210\307\334\360!\361#\210\307\334\362!\357#\210\307\334\331!\363#\210\307\334\364!\365#\210\307\334\366!\367#\210\307\334\370!\371#\210\307D\372#\210\307E\373#\210\307\374\375#\210\307\376\375#\210\307\377\201L#\210\307\201M\201N#\210\307\201OF!\201P#\210\307\201OG!\201Q#\210\307H\201R#\210\307I\201P#\210\307J\201Q#\210\307\201S\331!\201T#\210\307\201S\201U!\201V#\210\307\201SK!\201W#\210)\207" [map dvc-keyvec-help dvc-keyvec-refresh dvc-keyvec-add dvc-keyvec-remove dvc-keyvec-quit make-sparse-keymap define-key describe-mode dvc-generic-refresh tla-tree-lint-add-files tla-tree-lint-delete-files dvc-buffer-quit [(control x) (control j)] dvc-dired-jump tla-edit-log tla-tree-lint-next tla-tree-lint-previous [down] [up] tla-tree-lint-regenerate-id dvc-prefix-move 106 tla-tree-lint-make-junk 44 112 tla-tree-lint-make-precious 43 dvc-prefix-tagging-method 61 tla-edit-=tagging-method-file 46 tla-edit-\.arch-inventory-file 77 tla-generic-set-id-tagging-method 86 tla-generic-set-tree-version 120 tla-generic-add-to-exclude 88 tla-generic-add-ext-to-exclude 101 69 tla-generic-add-to-junk 74 tla-generic-add-ext-to-junk 98 tla-generic-add-to-backup 66 tla-generic-add-ext-to-backup 126 tla-generic-add-to-precious 80 tla-generic-add-ext-to-precious 117 tla-generic-add-to-unrecognized 85 tla-generic-add-ext-to-unrecognized tla-changes tla-inventory [return] dvc-find-file-at-point " " [111] dvc-keyvec-commit dvc-keyvec-next dvc-keyvec-previous dvc-keyvec-id dvc-keyvec-diff dvc-keyvec-inventory dvc-key-mark dvc-key-unmark dvc-keyvec-unmark-all dvc-keyvec-mark dvc-keyvec-unmark dvc-key-show-bookmark dvc-find-file-other-window [118] dvc-view-file dvc-prefix-mark tla-tree-lint-mark-file tla-tree-lint-unmark-file tla-tree-lint-unmark-all dvc-prefix-buffer dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks] 4) (#$ . 13231)) #@48 Keymap used on files in tla-lint-mode buffers. (defvar tla-tree-lint-file-map (byte-code "\303!\304 \n\305#\210 )\207" [dvc-cmenu-map-template map dvc-mouse-2 copy-keymap define-key dvc-find-file-at-point-by-mouse] 4) (#$ . 15766)) #@43 Keymap used in `tla-revlog-mode' buffers. (defvar tla-revlog-mode-map (byte-code "\306 \307 \310#\210\307\n\311#\210\307 \312#\210\307\f\313#\210\307\314\315#\210\307 \316#\210)\207" [map dvc-keyvec-help dvc-keyvec-inventory dvc-keyvec-quit dvc-keyvec-diff dvc-mouse-2 make-sparse-keymap define-key describe-mode dvc-pop-to-inventory dvc-buffer-quit tla-log-get-changeset " " tla-press-button tla-push-button] 4) (#$ . 16006)) #@51 Revision displayed in a `tla-revlog-mode' buffer. (defvar tla-current-revision nil (#$ . 16447)) #@195 *Function to call when clicking a revision button. Buttons appear in Gnus Article buffer if `tla-insinuate-gnus' has been run, and in log buffers. The function must take a string as argument. (custom-declare-variable 'tla-button-revision-fn ''tla-revlog-any '(#$ . -16551) :type 'function :group 'xtla) #@45 Keymap used in `tla-log-edit-mode' buffers. (defvar tla-log-edit-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210)\207" [map make-sparse-keymap define-key [(control 99) (control 99)] tla-log-edit-done [(control 99) (control 100)] tla-changes [(control 99) (control 108)] tla-changelog [(control 99) (control 109)] tla-log-edit-insert-log-for-merge [(control 99) 109] tla-log-edit-insert-log-for-merge-and-headers [(control 99) (control 112)] tla-log-edit-insert-memorized-log [(control 99) (control 113)] tla-log-edit-abort [(control 99) (control 115)] tla-log-goto-summary [(control 99) (control 98)] tla-log-goto-body [(control 99) (control 107)] tla-log-edit-keywords " " tla-log-edit-next-field] 4) (#$ . 16862)) #@49 Keymap used in `tla-archive-list-mode' buffers. (defvar tla-archive-list-mode-map (byte-code "\306 \307 \310#\210\307\311\312!\313#\210\307\314\315#\210\307\316\315#\210\307\317\320!\321#\210\307\317\322!\323#\210\307\317\n!\324#\210\307 \325#\210\307\326\327#\210\307\330\331#\210\307\332\333!\334#\210\307\332\312!\335#\210\307\332\336!\337#\210\307\f\340#\210\307\341\342#\210\307\343\344#\210\307\345\346#\210\307\347\350#\210\307\351\352#\210\307\353\350#\210\307\354\352#\210\307 \355#\210)\207" [map dvc-keyvec-help dvc-key-show-bookmark dvc-keyvec-add-bookmark dvc-keyvec-remove dvc-keyvec-quit make-sparse-keymap define-key describe-mode dvc-prefix-kill-ring 97 tla-save-archive-to-kill-ring " " tla-archive-list-categories [return] dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks tla-bookmarks-add [111] tla-archive-browse-archive [42] tla-archive-select-default dvc-prefix-add 114 tla-register-archive tla-make-archive 109 tla-archive-mirror-archive tla-archive-unregister-archive [103] tla-archives [115] tla-archive-synchronize-archive [101] tla-archive-edit-archive-location [down] tla-archive-next [up] tla-archive-previous [110] [112] dvc-buffer-quit] 4) (#$ . 17763)) #@58 Keymap used archives in `tla-archive-list-mode' buffers. (defvar tla-archive-archive-map (byte-code "\302 \303 \304#\210)\207" [map dvc-mouse-2 make-sparse-keymap define-key tla-archive-list-categories-by-mouse] 4) (#$ . 19022)) #@50 Keymap used in `tla-category-list-mode' buffers. (defvar tla-category-list-mode-map (byte-code "\305 \306 \307#\210\306\310\311#\210\306\312\311#\210\306\313\314!\315#\210\306\313\316!\317#\210\306\313\n!\320#\210\306 \321#\210\306\322\323#\210\306\324\325!\326#\210\306\327\330#\210\306\331\332#\210\306\333\334#\210\306\335\336#\210\306\337\334#\210\306\340\336#\210\306\f\341#\210)\207" [map dvc-keyvec-help dvc-key-show-bookmark dvc-keyvec-add-bookmark dvc-keyvec-quit make-sparse-keymap define-key describe-mode " " tla-category-list-branches [return] dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks tla-category-bookmarks-add-here [94] tla-archives dvc-prefix-add 99 tla-category-make-category [103] tla-category-refresh [115] tla-category-mirror-archive [down] tla-category-next [up] tla-category-previous [110] [112] dvc-buffer-quit] 4) (#$ . 19260)) #@61 Keymap used categories in `tla-category-list-mode' buffers. (defvar tla-category-category-map (byte-code "\302 \303 \304#\210)\207" [map dvc-mouse-2 make-sparse-keymap define-key tla-category-list-branches-by-mouse] 4) (#$ . 20187)) #@48 Keymap used in `tla-branch-list-mode' buffers. (defvar tla-branch-list-mode-map (byte-code "\306 \307 \310#\210\307\311\312#\210\307\313\312#\210\307\314\315!\316#\210\307\314\317!\320#\210\307\314\n!\321#\210\307 \322#\210\307\323\324!\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\335#\210\307\341\337#\210\307\f\342#\210\307 \343#\210)\207" [map dvc-keyvec-help dvc-key-show-bookmark dvc-keyvec-parent dvc-keyvec-quit dvc-keyvec-add-bookmark make-sparse-keymap define-key describe-mode " " tla-branch-list-versions [return] dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks tla-branch-list-parent-category dvc-prefix-add 98 tla-branch-make-branch [62] tla-branch-get-branch [103] tla-branch-refresh [115] tla-branch-mirror-archive [down] tla-category-next [up] tla-category-previous [110] [112] dvc-buffer-quit tla-branch-bookmarks-add-here] 4) (#$ . 20429)) #@57 Keymap used branches in `tla-branch-list-mode' buffers. (defvar tla-branch-branch-map (byte-code "\302 \303 \304#\210)\207" [map dvc-mouse-2 make-sparse-keymap define-key tla-branch-list-versions-by-mouse] 4) (#$ . 21414)) #@49 Keymap used in `tla-version-list-mode' buffers. (defvar tla-version-list-mode-map (byte-code "\306 \307 \310#\210\307\311\312#\210\307\313\312#\210\307\314\315!\316#\210\307\314\317!\320#\210\307\314\n!\321#\210\307\322\323!\324#\210\307 \325#\210\307\326\323!\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210\307\342\337#\210\307\343\341#\210\307\f\344#\210\307 \345#\210\307'\346#\210)\207" [map dvc-keyvec-help dvc-key-show-bookmark dvc-keyvec-parent dvc-keyvec-quit dvc-keyvec-add-bookmark make-sparse-keymap define-key describe-mode " " tla-version-list-revisions [return] dvc-prefix-buffer 112 dvc-show-process-buffer 76 dvc-open-internal-log-buffer tla-bookmarks dvc-prefix-kill-ring 118 tla-version-save-version-to-kill-ring tla-version-list-parent-branch dvc-prefix-add tla-version-make-version [62] tla-version-get-version [103] tla-version-refresh [115] tla-version-mirror-archive [down] tla-category-next [up] tla-category-previous [110] [112] dvc-buffer-quit tla-version-bookmarks-add-here tla-version-tag dvc-keyvec-tag] 4) (#$ . 21646)) #@58 Keymap used versions in `tla-version-list-mode' buffers. (defvar tla-version-version-map (byte-code "\302 \303 \304#\210)\207" [map dvc-mouse-2 make-sparse-keymap define-key tla-version-list-revisions-by-mouse] 4) (#$ . 22771)) #@50 Keymap used in `tla-revision-list-mode' buffers. (defvar tla-revision-list-mode-map (byte-code "\306 \307 \310#\210\307\311\312#\210\307\313\314#\210\307\315\316#\210\307\317\320!\321#\210\307\317\322!\323#\210\307\n\324#\210\307\325\326!\327#\210\307\325\330!\331#\210\307\325\332!\333#\210\307\325\334!\335#\210\307\325\320!\336#\210\307 \337#\210\307\340\f!\341#\210\307 \342#\210\307\340/!\343#\210\307\344\345#\210\307\3400!\346#\210\3071\347#\210\307\350\351#\210\307\3402!\352#\210\307\3533!\354#\210\307\3534!\355#\210\307\n\356#\210)\207" [map dvc-keyvec-parent dvc-keyvec-add-bookmark dvc-keyvec-star-merge dvc-key-star-merge dvc-keyvec-replay make-sparse-keymap define-key tla-revision-list-parent-version [62 103] tla-revision-get-revision [62 67] tla-revision-cache-revision [62 76] tla-revision-add-to-library dvc-prefix-kill-ring 114 tla-revision-save-revision-to-kill-ring 118 tla-revision-save-version-to-kill-ring tla-bookmarks-add dvc-prefix-toggle 63 tla-revision-toggle-help 108 tla-revision-toggle-library 109 tla-revision-toggle-merges 98 tla-revision-toggle-merged-by tla-revision-toggle-reverse tla-revision-star-merge dvc-prefix-merge tla-revision-star-merge-version tla-revision-replay tla-revision-replay-version [121] tla-revision-sync-tree tla-revision-update tla-revision-tag-from-here [108] tla-revision-revlog tla-missing-show-all-revisions dvc-prefix-diff tla-revision-delta tla-revision-store-delta tla-revision-bookmarks-add dvc-key-replay dvc-key-update dvc-keyvec-tag dvc-key-missing dvc-key-diff dvc-key-get] 4) (#$ . 23008)) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put tla--revision-revision cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-revision (or (and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) (error "tla--revision-revision accessing a non-tla--revision")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-revision #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-revision accessing a non-tla--revision" 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 tla--revision-revision setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-revision #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 1] 6] tla--revision-summary cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-summary (or #1# (error "tla--revision-summary accessing a non-tla--revision")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-summary #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-summary accessing a non-tla--revision" 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 tla--revision-summary setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-summary #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 2] 6] tla--revision-creator cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-creator (or #1# (error "tla--revision-creator accessing a non-tla--revision")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-creator #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-creator accessing a non-tla--revision" 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 tla--revision-creator setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-creator #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 3] 6] tla--revision-date cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-date (or #1# (error "tla--revision-date accessing a non-tla--revision")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-date #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-date accessing a non-tla--revision" 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 tla--revision-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-date #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 4] 6] tla--revision-merges cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-merges (or #1# (error "tla--revision-merges accessing a non-tla--revision")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-merges #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-merges accessing a non-tla--revision" 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 tla--revision-merges setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-merges #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 5] 6] tla--revision-body cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-body (or #1# (error "tla--revision-body accessing a non-tla--revision")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-body #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-body accessing a non-tla--revision" 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 tla--revision-body setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-body #1=(and (memq (aref cl-x 0) cl-struct-tla--revision-tags)) 6] 6] tla--revision-log cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-log (or #1# (error "tla--revision-log accessing a non-tla--revision")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-log #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-tla--revision-tags 0 error "tla--revision-log accessing a non-tla--revision" 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 tla--revision-log setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander tla--revision tla--revision-log (and #1=(memq (aref cl-x 0) cl-struct-tla--revision-tags)) 7] 6] tla--revision-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block tla--revision-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'tla--revision-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-tla--revision-tags vectorp 8 0 t] 2]) (defalias 'copy-tla--revision #[(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-tla--revision 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# revision summary creator date merges :revision :summary :creator :date :merges :body :log (:revision :summary :creator :date :merges :body :log :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revision :summary :creator :date :merges :body :log)" cl-defsubst-expand (revision summary creator date merges body log) (block make-tla--revision (vector 'cl-struct-tla--revision revision summary creator date merges body log)) t body log #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key REVISION SUMMARY CREATOR DATE MERGES BODY LOG)"] byte-compile cl-byte-compile-compiler-macro] 4) #@73 Not documented (fn &key REVISION SUMMARY CREATOR DATE MERGES BODY LOG) (defalias 'make-tla--revision #[(&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# revision summary creator date merges :revision :summary :creator :date :merges :body :log (:revision :summary :creator :date :merges :body :log :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revision :summary :creator :date :merges :body :log)" vector cl-struct-tla--revision body log #2=#:--cl-keys--] 10 (#$ . 31730)]) (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-tla--revision-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-tla--revision-tags cl-s vectorp 8 0 princ "#S(tla--revision" " revision" prin1 error "tla--revision-revision accessing a non-tla--revision" 1 " summary" "tla--revision-summary accessing a non-tla--revision" 2 " creator" "tla--revision-creator accessing a non-tla--revision" 3 " date" "tla--revision-date accessing a non-tla--revision" 4 " merges" "tla--revision-merges accessing a non-tla--revision" 5 " body" "tla--revision-body accessing a non-tla--revision" 6 " log" "tla--revision-log accessing a non-tla--revision" 7 ")" t] 3] cl-struct-tla--revision put tla--revision cl-struct-slots ((cl-tag-slot) (revision) (summary) (creator) (date) (merges) (body) (log)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-tla--revision side-effect-free copy-tla--revision tla--revision-p error-free tla--revision-log tla--revision-body tla--revision-merges tla--revision-date tla--revision-creator tla--revision-summary tla--revision-revision] 4) #@63 Keymap used on revisions in `tla-revision-list-mode' buffers. (defvar tla-revision-revision-map (byte-code "\303!\304 \n\305#\210 )\207" [dvc-cmenu-map-template map dvc-mouse-2 copy-keymap define-key dvc-revlist-show-item-by-mouse] 4) (#$ . 34316)) #@38 Keymap used in `tla-changelog-mode'. (defvar tla-changelog-mode-map (byte-code "\305!\306 !\210\307 \n\310#\210\307 \311\312#\210\307 \313\314#\210\307 \315\316#\210\307 \317\320#\210\307 \321\322#\210\307 \323#\210\307 \f\324#\210\307 \325\326!\327#\210\307 \325\330!\331#\210\307 \325\332!\333#\210 )\207" [change-log-mode-map map dvc-keyvec-quit dvc-mouse-2 dvc-keyvec-kill-ring copy-keymap suppress-keymap define-key dvc-buffer-quit [110] tla-changelog-next-entry [112] tla-changelog-previous-entry [61] tla-changelog-show-changeset [77] tla-send-commit-notification " " tla-press-button tla-push-button nil dvc-prefix-kill-ring 108 tla-changelog-save-log-message-as-kill 114 tla-changelog-save-revision-as-kill 118 tla-changelog-save-version-as-kill] 4) (#$ . 34573)) #@52 Keymap used in tla-log-edit-keywords-mode buffers. (defvar tla-log-edit-keywords-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210)\207" [map make-sparse-keymap define-key [110] tla-log-edit-keywords-next [112] tla-log-edit-keywords-previous [109] tla-log-edit-keywords-mark [117] tla-log-edit-keywords-unmark [116] tla-log-edit-keywords-toggle-mark [42 33] tla-log-edit-keywords-unmark-all [42 42] tla-log-edit-keywords-mark-all "" tla-log-edit-keywords-insert] 4) (#$ . 35355)) (byte-code "\301B\302\303!\210\304B\305\306!\207" [current-load-list tla-\.arch-inventory-menu-list (lambda (#1=#:defconst-tmp-var) (defconst tla-\.arch-inventory-menu-list #1#)) ("Put to .arch-inventory" ["Junk" tla-generic-add-to-junk t] ["Backup" tla-generic-add-to-backup t] ["Precious" tla-generic-add-to-precious t] ["Unrecognized" tla-generic-add-to-unrecognized t]) tla-=tagging-method-menu-list (lambda (#2=#:defconst-tmp-var) (defconst tla-=tagging-method-menu-list #2#)) ("Put to =tagging-method" ["Junk" (tla-generic-add-to-junk t) t] ["Backup" (tla-generic-add-to-backup t) t] ["Precious" (tla-generic-add-to-precious t) t] ["Unrecognized" (tla-generic-add-to-junk t) t])] 2) #@46 Used both for the local and the global menu. (defconst tla-bookmarks-entry-menu-list '("Bookmark Entry" ["Delete" tla-bookmarks-delete t] ["Goto Location" tla-bookmarks-goto t] ("File Tree" ["Find File" tla-bookmarks-find-file t] ["Run Dired" tla-bookmarks-open-tree t] ["Run Inventory" tla-bookmarks-inventory t] ["View Changes" tla-bookmarks-changes t]) ("Merge/Tag" ["View Missing Patches" tla-bookmarks-missing t] ["Replay" tla-bookmarks-replay t] ["Update" tla-bookmarks-update t] ["Star-merge" tla-bookmarks-star-merge t] ["Tag" tla-bookmarks-tag t]) ("Edit" ["Edit Bookmark" tla-bookmarks-edit t] ["Add Nickname" tla-bookmarks-add-nickname-interactive t] ["Remove Nickname" tla-bookmarks-delete-nickname-interactive t] ["Add Local Tree" tla-bookmarks-add-tree-interactive t] ["Remove Local Tree" tla-bookmarks-delete-tree-interactive t] ["Add Group" tla-bookmarks-add-group-interactive t] ["Remove Group" tla-bookmarks-delete-group-interactive t] ["Add Partner" tla-bookmarks-add-partner-interactive t] ["Remove Partner" tla-bookmarks-delete-partner-interactive t]) ("Partners" ["Add Partner" tla-bookmarks-add-partner-interactive t] ["Remove Partner" tla-bookmarks-delete-partner-interactive t] ["Write to Partner File" tla-bookmarks-write-partners-to-file t] ["Load from Partner File" tla-bookmarks-add-partners-from-file t] ["View Missing Patches" tla-bookmarks-missing t])) (#$ . 36659)) #@27 `tla-bookmarks-mode' menu (defvar tla-bookmarks-mode-menu nil (#$ . 38064)) (byte-code "\302\303\304\305\306\307\310\311 \257$\207" [tla-bookmarks-mode-map tla-bookmarks-entry-menu-list easy-menu-do-define tla-bookmarks-mode-menu "`tla-bookmarks-mode' menu" "Xtla-Bookmarks" ["Add Bookmark" tla-bookmarks-add t] ["Show Details" tla-bookmarks-toggle-details :style toggle :selected tla-bookmarks-show-details] ["Select by Group" tla-bookmarks-select-by-group t] ["Cleanup 'local-tree fields" tla-bookmarks-cleanup-local-trees t]] 10) #@36 Menu used on a tla bookmark entry. (defvar tla-bookmarks-entry-menu nil (#$ . 38605)) (easy-menu-do-define 'tla-bookmarks-entry-menu nil "Menu used on a tla bookmark entry." tla-bookmarks-entry-menu-list) #@36 `tla-inventory-mode' partners menu (defvar tla-inventory-mode-partners-menu nil (#$ . 38816)) (easy-menu-do-define 'tla-inventory-mode-partners-menu tla-inventory-mode-map "`tla-inventory-mode' partners menu" '("Partners" ["Add Partner..." tla-partner-add t] ("Set Tree Version" :filter (lambda (x) (tla--partner-create-menu 'tla-generic-set-tree-version))) "--" ("Show Changes" :filter (lambda (x) (tla--partner-create-menu '(lambda (x) (tla-changes current-prefix-arg (list tla-arch-branch (list 'revision (tla--name-split x)))))))) ("Show Missing" :filter (lambda (x) (tla--partner-create-menu '(lambda (x) (tla-missing default-directory x))))) ("Show ChangeLog" :filter (lambda (x) (tla--partner-create-menu '(lambda (x) (tla-changelog x))))) "--" ("Replay" :filter (lambda (x) (tla--partner-create-menu 'tla-inventory-replay))) ("Star-merge" :filter (lambda (x) (tla--partner-create-menu 'tla-inventory-star-merge))))) #@61 Used both in the context and the global menu for inventory. (defconst tla-inventory-item-menu-list (list "Inventory Item" ["Open File" tla-inventory-find-file t] ["View File" dvc-view-file t] #1="--" ["Add" tla-inventory-add-files t] ["Move" tla-inventory-move t] ["Revert" tla-inventory-revert t] ["Remove" tla-inventory-remove-files t] ["Delete" tla-inventory-delete-files t] #1# ["Make Junk" tla-inventory-make-junk t] ["Make Precious" tla-inventory-make-precious t] tla-\.arch-inventory-menu-list tla-=tagging-method-menu-list) (#$ . 39746)) #@27 `tla-inventory-mode' menu (defvar tla-inventory-mode-menu nil (#$ . 40298)) (byte-code "\303\304\305\306\307\310\311\312\313\314\310 \310\315\316\317\320\310\321\322\310\323\324\325\310\326\327\330\331\332\333\n\"BBBB\257$\207" [tla-inventory-mode-map tla-inventory-item-menu-list tla-inventory-file-types-manipulators easy-menu-do-define tla-inventory-mode-menu "`tla-inventory-mode' menu" "Inventory" ["Edit Log" tla-inventory-edit-log t] "--" ["Show Changes" tla-inventory-changes t] ["Show Changelog" tla-changelog t] ["Show Logs" tla-logs t] ["Show Missing" tla-inventory-missing t] ["Update" tla-inventory-update t] ["Replay" tla-inventory-replay t] ["Star-merge" tla-inventory-star-merge t] ("Changesets" ["Save actual changes in directory" tla-changes-save t] ["Save actual changes in tarball" tla-changes-save-as-tgz t] ["View changeset from directory" tla-show-changeset t] ["View changeset from tarball" tla-show-changeset-from-tgz t] ["Apply changeset from directory" tla-inventory-apply-changeset t] ["Apply changeset from tarball" tla-inventory-apply-changeset-from-tgz t]) ["Undo" tla-inventory-undo t] ["Redo" tla-inventory-redo t] ["Synchronize Mirror" tla-inventory-mirror t] ("Taging Method" ["Edit .arch-inventory" tla-edit-\.arch-inventory-file t] ["Edit =tagging-method" tla-edit-=tagging-method-file t] ["Set Tagging Method" tla-generic-set-id-tagging-method t] ["Set Tree Version From Scratch" tla-generic-set-tree-version t]) ["Tree-lint" tla-tree-lint t] "Toggles" ["Set All Toggle Variables" tla-inventory-set-all-toggle-variables t] ["Reset All Toggle Variables" tla-inventory-reset-all-toggle-variables t] ["Toggle All Toggle Variables" tla-inventory-toggle-all-toggle-variables t] mapcar #[(elem) "\302\303\211AA)AA@P\211AA)@\304\305\306\211A@)&\207" [elem x vector "Toggle " :style toggle :selected] 8]] 33) #@32 Menu used on a inventory item. (defvar tla-inventory-item-menu nil (#$ . 42152)) (easy-menu-do-define 'tla-inventory-item-menu nil "Menu used on a inventory item." tla-inventory-item-menu-list) #@61 Menu used on the taggine method line in a inventory buffer. (defvar tla-inventory-tagging-method-menu nil (#$ . 42352)) (easy-menu-do-define 'tla-inventory-tagging-method-menu nil "Menu used on the taggine method line in a inventory buffer." '("Switch Taggine Method" ["Tagline" (tla-generic-set-id-tagging-method "tagline") t] ["Explicit" (tla-generic-set-id-tagging-method "explicit") t] ["Names" (tla-generic-set-id-tagging-method "names") t] ["Implicit" (tla-generic-set-id-tagging-method "implicit") t])) #@24 'tla-revlog-mode' menu (defvar tla-revlog-mode-menu nil (#$ . 42868)) (easy-menu-do-define 'tla-revlog-mode-menu tla-revlog-mode-map "'tla-revlog-mode' menu" '("Revlog" ["Inventory" dvc-pop-to-inventory t] ["Show Changeset" tla-log-get-changeset t] ["Quit" dvc-buffer-quit t])) #@26 `tla-log-edit-mode' menu (defvar tla-log-edit-mode-menu nil (#$ . 43152)) (easy-menu-do-define 'tla-log-edit-mode-menu tla-log-edit-mode-map "`tla-log-edit-mode' menu" '("Log" ["Insert tla log-for-merge" tla-log-edit-insert-log-for-merge t] ["log-for-merge and headers" tla-log-edit-insert-log-for-merge-and-headers t] ["Insert memorized log" tla-log-edit-insert-memorized-log t] ["Show changes" tla-changes t] ["Commit" tla-log-edit-done t] ("Manage Version" ["Commit with Sealing" tla-log-edit-done-with-sealing t] ["Commit with Fixing" tla-log-edit-done-with-fixing t]) ["Show Changelog" tla-changelog t] "--" ["Goto Summary Field" tla-log-goto-summary t] ["Goto Body" tla-log-goto-body t] ["Edit Keywords Field" tla-log-edit-keywords t] ["Kill Body" tla-log-kill-body t] "--" ["Tree Lint" tla-tree-lint t] ["Abort" tla-log-edit-abort t])) #@30 `tla-archive-list-mode' menu (defvar tla-archive-list-mode-menu nil (#$ . 44001)) (easy-menu-do-define 'tla-archive-list-mode-menu tla-archive-list-mode-map "`tla-archive-list-mode' menu" '("Archives" ["Register New Archive" tla-register-archive t] ["Add a Bookmark" tla-bookmarks-add t] ["Update Archives List" tla-archives t] ["Set Default Archive" tla-archive-select-default t] ["Remove Archive Registration" tla-archive-unregister-archive t] ["Edit Archive Location" tla-archive-edit-archive-location t] ["Make New Archive..." tla-make-archive t] ["Create a Mirror" tla-archive-mirror-archive t] ["Use as default Mirror" tla-archive-use-as-default-mirror t] ["Synchronize Mirror" tla-archive-synchronize-archive t])) #@31 `tla-category-list-mode' menu (defvar tla-category-list-mode-menu nil (#$ . 44728)) (easy-menu-do-define 'tla-category-list-mode-menu tla-category-list-mode-map "`tla-category-list-mode' menu" '("Categories" ["List Archives" tla-archives t] ["Update Categories List" tla-category-refresh t] ["Make New Category..." tla-category-make-category t] ["Add a Bookmark" tla-bookmarks-add t] ["Synchronize Mirror" tla-category-mirror-archive t])) #@29 `tla-branch-list-mode' menu (defvar tla-branch-list-mode-menu nil (#$ . 45173)) (easy-menu-do-define 'tla-branch-list-mode-menu tla-branch-list-mode-map "`tla-branch-list-mode' menu" '("Branches" ["Update Branches List" tla-branch-refresh t] ["List Parent Category" tla-branch-list-parent-category t] ["Make New Branch..." tla-branch-make-branch t] ["Synchronize Mirror" tla-branch-mirror-archive t] ["Bookmark Branch under Point" tla-branch-bookmarks-add t] ["Get..." tla-branch-get-branch t])) #@30 `tla-version-list-mode' menu (defvar tla-version-list-mode-menu nil (#$ . 45675)) (easy-menu-do-define 'tla-version-list-mode-menu tla-version-list-mode-map "`tla-version-list-mode' menu" '("Versions" ["Update Versions List" tla-version-refresh t] ["Get..." tla-version-get-version t] ["Make New Version..." tla-version-make-version t] ["List Parent Branch" tla-version-list-parent-branch t] ["Synchronize Mirror" tla-version-mirror-archive t] ["Bookmark Version under Point" tla-version-bookmarks-add t] ["Tag This Version" tla-version-tag t])) #@31 `tla-revision-list-mode' menu (defvar tla-revision-list-mode-menu nil (#$ . 46227)) (easy-menu-do-define 'tla-revision-list-mode-menu tla-revision-list-mode-map "`tla-revision-list-mode' menu" '("Revisions" ["Refresh Revisions List" dvc-generic-refresh t] ["List Parent Version" tla-revision-list-parent-version t] ["Show all revisions" tla-missing-show-all-revisions t] "--" ["Bookmark Revision under Point" tla-revision-bookmarks-add t] ("Mark" ["Mark Revision" dvc-revision-mark-revision t] ["Unmark Revision" dvc-revision-unmark-revision t]) "--" ["Show Log" tla-revision-revlog t] ["Unify Patch Logs with This Revision" tla-revision-sync-tree t] ["View changeset" tla-revision-changeset t] ("Delta" ["View" (tla-revision-delta t) t] ["Store to Directory" (tla-revision-store-delta t) t]) "--" ["Update" tla-revision-update t] ("Replay" ["From Head Revision" tla-revision-replay-version t] ["From Revision under Point" tla-revision-replay t] ["Revision under Point Reversely" (tla-revision-replay 'reversely) t]) ("Star-Merge" ["From Head Revision" tla-revision-star-merge-version t] ["From Revision under Point" tla-revision-star-merge t]) ("Get" ["Get a Local Copy" tla-revision-get-revision t] ["Make Cache" tla-revision-cache-revision t] ["Add to Library" tla-revision-add-to-library t]) ("Tag " ["From Head Revision" tla-revision-tag-from-head t] ["From Revision under Point" tla-revision-tag-from-here t]) ["Send comment to author" tla-revision-send-comments t] "--" ("Filter Display" ["Date" dvc-revlist-toggle-date :style toggle :selected dvc-revisions-shows-date] ["Creator" dvc-revlist-toggle-creator :style toggle :selected dvc-revisions-shows-creator] ["Summary" dvc-revlist-toggle-summary :style toggle :selected dvc-revisions-shows-summary] ["Presence in Revlib" tla-revision-toggle-library :style toggle :selected tla-revisions-shows-library] ["Merged Patches" tla-revision-toggle-merges :style toggle :selected tla-revisions-shows-merges] ["Patches Merging ..." tla-revision-toggle-merged-by :style toggle :selected tla-revisions-shows-merged-by]))) #@65 Menu used on a revision item in `tla-revision-list-mode' buffer (defvar tla-revision-revision-menu nil (#$ . 48303)) (easy-menu-do-define 'tla-revision-revision-menu nil "Menu used on a revision item in `tla-revision-list-mode' buffer" '("Revision" ["Show Log" tla-revision-revlog t] ["Unify Patch Logs with This Revision" tla-revision-sync-tree t] ["View changeset" tla-revision-changeset t] ["Set Bookmark" tla-revision-bookmarks-add t] ("Mark" ["Mark Revision" dvc-revision-mark-revision t] ["Unmark Revision" dvc-revision-unmark-revision t]) ("Delta" ["In This Version" tla-revision-delta t] ["With Revision in Another Archive" tla-revision-store-delta t]) ("Merge" ["Star-Merge" tla-revision-star-merge t] ["Replay" tla-revision-replay t] ["Replay Reversely" (tla-revision-replay 'reversely) t]) ("Get" ["Get a Local Copy" tla-revision-get-revision t] ["Make Cache" tla-revision-cache-revision t] ["Add to Library" tla-revision-add-to-library t]) ["Send comment to author" tla-revision-send-comments t] ["Tag from Here" tla-revision-tag-from-here])) #@40 Used both for context and global menu. (defconst tla-tree-lint-file-menu-list (list "File" ["Jump to File" dvc-find-file-at-point t] '("Mark" ["Mark File" tla-tree-lint-mark-file t] ["Unmark File" tla-tree-lint-unmark-file t]) #1="--" ["Add File" tla-tree-lint-add-files t] ["Delete File" tla-tree-lint-delete-files t] ["Regenerate ID" tla-tree-lint-regenerate-id t] #1# ["Make Junk" tla-tree-lint-make-junk t] ["Make Precious" tla-tree-lint-make-precious t] tla-\.arch-inventory-menu-list tla-=tagging-method-menu-list) (#$ . 49364)) #@46 Menu used on files listed in `tla-tree-lint' (defvar tla-tree-lint-file-menu nil (#$ . 49905)) (easy-menu-do-define 'tla-tree-lint-file-menu nil "Menu used on files listed in `tla-tree-lint'" tla-tree-lint-file-menu-list) #@22 `tla-tree-lint' menu (defvar tla-tree-lint-mode-menu nil (#$ . 50133)) (byte-code "\302\303\304\305\306 E$\207" [tla-tree-lint-mode-map tla-tree-lint-file-menu-list easy-menu-do-define tla-tree-lint-mode-menu "`tla-tree-lint' menu" "Tree Lint" ["Refresh Buffer" dvc-generic-refresh t]] 7) #@23 `dvc-log-buffer' menu (defvar dvc-log-buffer-mode-menu nil (#$ . 50429)) (byte-code "\301\302\303\304$\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\311\306%\210\305\317\307\320\311\306%\210\305\321\307\322\311\306%\210\305\323\307\324\311\325%\207" [dvc-log-buffer-mode-map easy-menu-do-define dvc-log-buffer-mode-menu "`dvc-log-buffer' menu" ("Logs" ["Show Related Buffer" dvc-switch-to-related-buffer t] ["Show Output Buffer" dvc-switch-to-output-buffer t] ["Show Error Buffer" dvc-switch-to-error-buffer t]) custom-declare-group xtla nil "Arch interface for emacs." :group dvc :prefix "tla-" tla-inventory "This group contains items used in inventory mode." tla-revisions "This group contains items used in revisions mode." tla-bindings "This group contains items related to key bindings." tla-faces "This group contains faces defined for Xtla." dvc-faces] 8) #@34 *The name of the tla executable. (custom-declare-variable 'tla-executable '(dvc-first-set dvc-site-tla-executable "tla") '(#$ . -51312) :type 'string :group 'xtla) #@87 *The name of the baz executable. baz is the command name for bazaar, a branch of tla. (custom-declare-variable 'baz-executable '(dvc-first-set dvc-site-baz-executable "baz") '(#$ . -51482) :type 'string :group 'xtla) #@68 *Branch of GNU Arch to use. Currently supported are 'tla and 'baz. (custom-declare-variable 'tla-arch-branch '(dvc-first-set dvc-site-arch-branch (if (executable-find baz-executable) 'baz 'tla)) '(#$ . -51705) :type '(choice (const baz) (const tla) (const :tag "No tla variant installed" none)) :group 'xtla) #@144 *Use f1 to display help for the actual function call during minibuffer input. Note: this functionality is provided for all minibuffer prompts. (custom-declare-variable 'tla-install-command-help-system 't '(#$ . -52021) :type 'boolean :group 'xtla) #@146 *Whether or not Xtla will compute changes recursively. If non nil, `tla-changes' will be applied recursively to subprojects of the current tree (custom-declare-variable 'tla-changes-recursive 't '(#$ . -52276) :type 'boolean :group 'xtla) #@140 *Whether or not Xtla will run update recursively. If non nil, `tla-update' will be applied recursively to subprojects of the current tree (custom-declare-variable 'tla-update-recursive 't '(#$ . -52523) :type 'boolean :group 'xtla) #@70 *If non-nil, commit operations are invoked with the --strict option. (custom-declare-variable 'tla-strict-commits 'nil '(#$ . -52762) :type 'boolean :group 'xtla) #@169 *List of functions to check the ++log.. buffer. Each function is called, from the log buffer, with no argument. It should raise an error if commit should be canceled. (custom-declare-variable 'tla-commit-check-log-buffer-functions ''(tla-commit-check-empty-headers tla-commit-check-empty-line tla-commit-check-missing-space) '(#$ . -52932) :type 'hook :group 'xtla) #@175 *Headers allowed to be empty in the ++log.. buffer. This should be a regexp matching the header names. Headers not matching this regexp should not be empty when committing. (custom-declare-variable 'tla-commit-headers-allowed-to-be-empty '"^\\(Keywords\\)$" '(#$ . -53306) :type 'string :group 'xtla) #@184 *Whether or not Xtla will add missing spaces after header names. If non-nil, missing spaces after a space will be inserted automatically instead of raising an error when committing. (custom-declare-variable 'tla-commit-fix-missing-space 't '(#$ . -53615) :type 'boolean :group 'xtla) #@142 *If non-nil, merge operations are invoked with --three-way. (or without --two-way for branches of arch in which --three-way is the default). (custom-declare-variable 'tla-three-way-merge 't '(#$ . -53907) :type 'boolean :group 'xtla) #@414 *If non-nil, merge operations are invoked with --show-ancestor. With this option, conflicts markers will include TREE, MERGE-SOURCE, and ancestor versions. `smerge-ediff' allows you to view the ancestor with `ediff-show-ancestor' (usually bound to `/'). Unfortunately, this will also report more conflicts: Conflicts will be reported even when TREE and MERGE-SOURCE are identical, if they differ from ANCESTOR. (custom-declare-variable 'tla-show-ancestor 'nil '(#$ . -54148) :type 'boolean :group 'xtla) #@665 *Which strategy to apply for `tla-update'. "baz merge" has the advantage of being able to use a 3-way merge. "baz replay" is the fastest: No need to build any reference tree. "baz update" is "safe": The local changes are backed-up before updating. In the absence of conflicts, the result should be identical. In the case of conflicts: "baz merge" will leave diff3 inline markers in the code. "baz update" will leave the rejected changes from YOUR modifications in .rej files. "baz replay" will leave the rejected changes from THE ARCHIVE modifications in .rej files. It also stops when it encounters conflicts, so it doesn't always apply every upstream change. (custom-declare-variable 'tla-update-strategy ''merge '(#$ . -54661) :type '(choice (const 'update) (const 'merge) (const 'replay)) :group 'xtla) #@67 *If non-nil, inventory is run with --no-recursion (if available). (custom-declare-variable 'tla-non-recursive-inventory 't '(#$ . -55477) :type 'boolean :group 'xtla) #@102 *Whether "tla tag" or "baz branch" should create a cacherev. Supported values are: 'yes 'no 'ask (custom-declare-variable 'tla-tag-does-cacherev ''ask '(#$ . -55651) :type '(choice (const 'yes) (const 'no) (const 'ask)) :group 'xtla) #@62 *If non-nil, use --skip-present with commands that allow it. (custom-declare-variable 'tla-use-skip-present-option 'nil '(#$ . -55895) :type 'boolean :group 'xtla) #@52 Toggle the value of `tla-use-skip-present-option'. (defalias 'tla-toggle-use-skip-present-option #[nil "?\211\207" [tla-use-skip-present-option] 2 (#$ . 56065) nil]) #@44 Toggle the value of `tla-three-way-merge'. (defalias 'tla-toggle-three-way-merge #[nil "?\211\207" [tla-three-way-merge] 2 (#$ . 56239) nil]) #@42 Toggle the value of `tla-show-ancestor'. (defalias 'tla-toggle-show-ancestor #[nil "?\211\207" [tla-show-ancestor] 2 (#$ . 56389) nil]) #@59 Toggle the value of `tla-toggle-non-recursive-inventory'. (defalias 'tla-toggle-non-recursive-inventory #[nil "?\211\207" [tla-non-recursive-inventory] 2 (#$ . 56533) nil]) (custom-declare-group 'tla-bookmarks nil "Xtla bookmarks allows you to save places (archive, category,\nbranch, version) in the archive that you use often. Try M-x\ntla-bookmarks RET to see." :group 'xtla) #@104 *File in which Xtla bookmarks will be saved. The bookmark file is stored in the `dvc-config-directory' (custom-declare-variable 'tla-bookmarks-file-name '"bookmarks.el" '(#$ . -56921) :type 'file :group 'tla-bookmarks) #@138 Function called to generate the value of the arch-tag. The function must take no argument, and return a string without a final newline. (custom-declare-variable 'tla-tag-function ''tla-tag-uuid '(#$ . 57147) :type '(choice (const tla-tag-uuid) (const tla-tag-name-date-filename) function) :group 'xtla) #@53 *Directory in which the log library will be stored. (custom-declare-variable 'tla-log-library '"~/.arch-log-library/" '(#$ . -57457) :type 'directory :group 'xtla) #@170 *Whether log files are automatically saved in the log library. If non-nil, then, whenever Xtla needs to access a log file, this file will be copied to the log library. (custom-declare-variable 'tla-log-library-greedy 't '(#$ . -57628) :type 'boolean :group 'xtla) #@156 *Whether Xtla should prompt before cleaning a local tree. non nil means `tla-bookmarks-cleanup-local-trees' shouldn't prompt before removing a local-tree (custom-declare-variable 'tla-bookmarks-cleanup-dont-prompt 'nil '(#$ . -57900) :type 'boolean :group 'tla-bookmarks) #@79 *Max length for the summary line when using %t in `tla-send-comments-format'. (custom-declare-variable 'tla-send-comments-width '25 '(#$ . -58179) :type 'integer :group 'xtla) #@333 Format for the Subject line for `tla-revision-send-comments'. The following substring will be substituted: %f: Full revision name %a: The archive name %c: The category name %b: The branch name %v: The version name %r: The revision name %s: The summary line %t: The summary line, truncated to `tla-send-comments-width' characters. (custom-declare-variable 'tla-send-comments-format '"Your patch %c--%b--%v--%r (%t)" '(#$ . 58362) :type 'string :group 'xtla) #@61 Switch to the changes buffer or stay in the current buffer. (custom-declare-variable 'tla-switch-to-changes-buffer 'nil '(#$ . 58827) :type 'boolean :group 'xtla) (custom-declare-group 'tla-hooks nil "This group contains hooks into Xtla." :group 'xtla) #@56 *Hooks run after a successful commit via `tla-commit'. (custom-declare-variable 'tla-commit-done-hook ''nil '(#$ . -59086) :type 'hook :group 'tla-hooks) #@56 *Hooks run after switching to `tla-archive-list-mode'. (custom-declare-variable 'tla-archive-list-mode-hook ''nil '(#$ . -59246) :type 'hook :group 'tla-hooks) #@53 *Hooks run after switching to `tla-bookmarks-mode'. (custom-declare-variable 'tla-bookmarks-mode-hook ''nil '(#$ . -59412) :type 'hook :group 'tla-hooks) #@55 *Hooks run after switching to `tla-branch-list-mode'. (custom-declare-variable 'tla-branch-list-mode-hook ''nil '(#$ . -59572) :type 'hook :group 'tla-hooks) #@50 *Hooks run after switching to `tla-revlog-mode'. (custom-declare-variable 'tla-revlog-mode-hook ''nil '(#$ . -59736) :type 'hook :group 'tla-hooks) #@57 *Hooks run after switching to `tla-category-list-mode'. (custom-declare-variable 'tla-category-list-mode-hook ''nil '(#$ . -59890) :type 'hook :group 'tla-hooks) #@58 *Hooks run after switching to `tla-inventory-file-mode'. (custom-declare-variable 'tla-inventory-file-mode-hook ''nil '(#$ . -60058) :type 'hook :group 'tla-hooks) #@53 *Hooks run after switching to `tla-inventory-mode'. (custom-declare-variable 'tla-inventory-mode-hook ''nil '(#$ . -60228) :type 'hook :group 'tla-hooks) #@52 *Hooks run after switching to `tla-log-edit-mode'. (custom-declare-variable 'tla-log-edit-mode-hook ''nil '(#$ . -60388) :type 'hook :group 'tla-hooks) #@48 *Hooks run after switching to `tla-logs-mode'. (custom-declare-variable 'tla-logs-mode-hook ''nil '(#$ . -60546) :type 'hook :group 'tla-hooks) #@57 *Hooks run after switching to `tla-revision-list-mode'. (custom-declare-variable 'tla-revision-list-mode-hook ''nil '(#$ . -60696) :type 'hook :group 'tla-hooks) #@56 *Hooks run after switching to `tla-version-list-mode'. (custom-declare-variable 'tla-version-list-mode-hook ''nil '(#$ . -60864) :type 'hook :group 'tla-hooks) #@35 *Hooks run after making a branch. (custom-declare-variable 'tla-make-branch-hook ''nil '(#$ . -61030) :type 'hook :group 'tla-hooks) #@37 *Hooks run after making a category. (custom-declare-variable 'tla-make-category-hook ''nil '(#$ . -61169) :type 'hook :group 'tla-hooks) #@36 *Hooks run after making a version. (custom-declare-variable 'tla-make-version-hook ''nil '(#$ . -61312) :type 'hook :group 'tla-hooks) #@42 *Hooks run after creating a new archive. (custom-declare-variable 'tla-make-archive-hook ''nil '(#$ . -61453) :type 'hook :group 'tla-hooks) #@56 *Hooks run when the control enters to `tla-name-read'. (custom-declare-variable 'tla-name-read-init-hook ''nil '(#$ . -61600) :type 'hook :group 'tla-hooks) #@148 *Hooks run when the control leaves `tla-name-read'. The name read by `tla-name-read' is passed to functions connected to this hook as an argument. (custom-declare-variable 'tla-name-read-final-hook ''nil '(#$ . -61764) :type 'hook :group 'tla-hooks) #@58 *Hooks run when an error is occurred in `tla-name-read'. (custom-declare-variable 'tla-name-read-error-hook ''nil '(#$ . -62020) :type 'hook :group 'tla-hooks) #@32 *Follow symlinks of this type. (custom-declare-variable 'tla-follow-symlinks ''tree '(#$ . -62186) :type '(choice (const :tag "None" nil) (const :tag "Symlinks into an arch-managed tree" tree) (const :tag "Symlinks to an arch-managed file" id)) :group 'dvc-file-actions) #@38 *Before following a symlink do this. (custom-declare-variable 'tla-follow-symlinks-mode ''follow '(#$ . -62463) :type '(choice (const :tag "Ask" ask) (const :tag "Follow" follow) (const :tag "Warn" warn)) :group 'dvc-file-actions) #@451 *Enable left/right for navigation. This works best if `dvc-switch-to-buffer-mode' is set to 'single-window. It enables binding for navigation allowing you to browse by only using the cursor keys, which is much faster than n/p/return/^. Use up/down to move to an item, right to select it and left to go to its "logical" parent! Got the idea? See the variable `tla-use-arrow-keys-for-navigation-list' for a list of bindings that will be installed. (custom-declare-variable 'tla-use-arrow-keys-for-navigation 'nil '(#$ . -62701) :type '(choice (const :tag "Disabled" nil) (const :tag "Enabled" t) (const :tag "Enabled with Shift" shift)) :group 'tla-bindings) #@146 *Display library information in revision lists. If non-nil the presence of this revision in the library should be displayed for `tla-revisions' (custom-declare-variable 'tla-revisions-shows-library 't '(#$ . -63369) :type 'boolean :group 'tla-revisions) #@144 *Display merge information in revision lists. If non-nil, the list of merged patches of this revision should be displayed for `tla-revisions' (custom-declare-variable 'tla-revisions-shows-merges 'nil '(#$ . -63631) :type 'boolean :group 'tla-revisions) #@143 *Display "merged-by" field in revision lists. If non-nil the list of patches merged by this revision should be displayed for `tla-revisions' (custom-declare-variable 'tla-revisions-shows-merged-by 't '(#$ . -63892) :type 'boolean :group 'tla-revisions) #@61 A list of keywords for the Keywords field of a log message. (custom-declare-variable 'tla-log-edit-keywords ''("bugfix" "docfix" "warnfix" "linting" "newfeature" "merge" "update" "rename" "delete" "newfile") '(#$ . 64152) :type '(repeat (string)) :group 'xtla) #@243 *Tree in which patches should be applied. An alist of rules to map fully qualified revision names to target directories. This is used by the `tla-gnus-apply-patch' function. Example setting: '(((nil "xtla" nil nil nil) "~/work/tla/xtla"))) (custom-declare-variable 'tla-apply-patch-mapping 'nil '(#$ . -64420) :type '(repeat (list :tag "Rule" (list :tag "Full revision (regexps)" (choice (const :tag "Any archive" nil) (regexp :tag "Archive")) (choice (const :tag "Any category" nil) (regexp :tag "Category")) (choice (const :tag "Any branch" nil) (regexp :tag "Branch")) (choice (const :tag "Any version" nil) (regexp :tag "Version")) (choice (const :tag "Any revision" nil) (string :tag "Revision"))) (string :tag "Target directory"))) :group 'xtla) #@235 *Email addresses that should be used to send patches An alist of rules to map fully qualified revision names to target email addresses and the base name to use in the attached patch. This is used by the `tla-submit-patch' function. (custom-declare-variable 'tla-submit-patch-mapping ''(((nil "xtla" nil nil nil) ("xtla-el-dev@gna.org" "xtla"))) '(#$ . -65181) :type '(repeat (list :tag "Rule" (list :tag "Full revision (regexps)" (choice (const :tag "Any archive" nil) (regexp :tag "Archive")) (choice (const :tag "Any category" nil) (regexp :tag "Category")) (choice (const :tag "Any branch" nil) (regexp :tag "Branch")) (choice (const :tag "Any version" nil) (regexp :tag "Version")) (choice (const :tag "Any revision" nil) (string :tag "Revision"))) (list :tag "Target" (string :tag "Email address") (string :tag "Base name of tarball")))) :group 'xtla) #@132 *What shall be done, after sending a patch via mail. The possible values are 'keep-tarball, 'keep-changes, 'keep-both, 'keep-none. (custom-declare-variable 'tla-patch-sent-action ''keep-tarball '(#$ . -66047) :type '(choice (const keep-tarball) (const keep-changes) (const keep-both) (const keep-none)) :group 'xtla) #@236 *Preset some useful values for commit emails. An alist of rules to map fully qualified revision names to target email addresses and the prefix string for the subject line. This is used by the `tla-send-commit-notification' function. (custom-declare-variable 'tla-mail-notification-destination 'nil '(#$ . -66371) :type '(repeat (list :tag "Rule" (list :tag "Full revision (regexps)" (choice (const :tag "Any archive" nil) (regexp :tag "Archive")) (choice (const :tag "Any category" nil) (regexp :tag "Category")) (choice (const :tag "Any branch" nil) (regexp :tag "Branch")) (choice (const :tag "Any version" nil) (regexp :tag "Version")) (choice (const :tag "Any revision" nil) (string :tag "Revision"))) (list :tag "Target" (string :tag "Email subject prefix") (string :tag "Email address")))) :group 'xtla) (custom-declare-group 'tla-merge nil "Merging with Xtla." :group 'xtla) #@236 *Function returning a name for a version. If non-nil, it must be a function that is called with the version as an argument, and must return a string that will be used to instead of the nickname. See `tla-merge-summary-line-for-log'. (custom-declare-variable 'tla-version-to-name-function 'nil '(#$ . -67262) :type '(choice (const nil) function) :group 'tla-merge) #@264 *Function generating a string summarizing the merge. If non-nil, it must be a function that is called with a list like (("Robert" 167 168 170) ("Masatake" 209 213 214 215 217 218)) as an argument, and must return a string. See `tla-merge-summary-line-for-log'. (custom-declare-variable 'tla-generate-line-function 'nil '(#$ . -67635) :type '(choice (const nil) function) :group 'tla-merge) #@240 *Function formatting the summary line. If non-nil, it must be a function that is called with a string as an argument, and returns another string (typically adding a "Merges " comment in front of it. See `tla-merge-summary-line-for-log'. (custom-declare-variable 'tla-format-line-function 'nil '(#$ . -68034) :type '(choice (const nil) function) :group 'tla-merge) #@351 *Format to use to display description of patch-id. Must be a list. Each element is either - A string to be inserted. - The symbol 'patch-id => print the patch-id as entered in the prompt. - The symbol 'summary => if patch-id is actually a patch level, insert its summary line. - The symbol 'location => insert the location of the archive. (custom-declare-variable 'tla-description-format ''(patch-id "\n " summary "\n Located at: " location "\n") '(#$ . -68407) :type '(repeat (choice symbol string)) :group 'xtla) #@124 *If non-nil, don't insert hyperlink in ChangeLog buffer. Hyperlink are sometimes long to set up with large ChangeLogs ... (custom-declare-variable 'tla-dont-hyperlink-changelog 'nil '(#$ . -68942) :type 'boolean :group 'xtla) (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\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\333%\207" [custom-declare-face tla-archive-name ((t (:inherit dvc-repository-name))) "Face to highlight Xtla archive names." :group tla-faces tla-source-archive-name ((t (:inherit tla-archive-name))) "Face to highlight Xtla source archive names." tla-mirror-archive-name ((t (:inherit tla-archive-name))) "Face to highlight Xtla mirror archive names." tla-category-name ((t (:inherit tla-archive-name))) "Face to highlight Xtla category names." tla-branch-name ((t (:inherit tla-archive-name))) "Face to highlight Xtla branch names." tla-version-name ((t (:inherit tla-archive-name))) "Face to highlight Xtla version names." tla-tagging-method ((t (:inherit tla-archive-name))) "Face to highlight tagging methods." tla-junk ((t (:inherit font-lock-function-name-face))) "Face to highlight junk entries" dvc-faces] 6) #@38 Keywords in tla-inventory-file mode. (defvar tla-inventory-file-font-lock-keywords '(("^#.*$" quote dvc-comment) ("^[ ]*\\(backup\\|exclude\\|junk\\|precious\\|unrecognized\\|source\\)\\>[ ]*\\(.*\\)$" (1 font-lock-keyword-face) (2 font-lock-string-face)) ("^[ ]*\\(untagged-source\\)" (1 font-lock-builtin-face)) ("^[ ]*\\(untagged-source\\) \\(precious\\|source\\|backup\\|junk\\|unrecognized\\)\\>" (1 font-lock-builtin-face) (2 font-lock-keyword-face)) ("^[ ]*\\(explicit\\|tagline\\|names\\|implicit\\)\\>" (1 font-lock-builtin-face))) (#$ . 70228)) #@28 Keywords in tla-logs-mode. (defvar tla-logs-font-lock-keywords '(("^[^ ]*\\(base\\|patch\\|version\\(fix\\)?\\)-[0-9]+" . font-lock-function-name-face)) (#$ . 70794)) #@32 Keywords in `tla-revlog-mode'. (defvar tla-revlog-font-lock-keywords '(("^\\(Revision\\|Archive\\|Creator\\|Date\\|Standard-date\\|Modified-files\\|New-patches\\|Summary\\|Keywords\\|New-files\\|New-directories\\|Removed-files\\|Removed-directories\\|Renamed-files\\|Renamed-directories\\|Modified-directories\\|Removed-patches\\):" . font-lock-function-name-face)) (#$ . 70968)) #@32 Keywords in tla-log-edit mode. (defvar tla-log-edit-font-lock-keywords (byte-code "\301\302\303\304\305!\306Q\307BF\207" [dvc-log-edit-file-list-marker ("^Summary: " quote dvc-header) ("^Keywords: " quote dvc-header) ("^ ?\\* \\([^ ,:([\n]+\\)" (1 'change-log-file-face) ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ("\\= (\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face)) ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face))) "^" regexp-quote "$" 'dvc-header] 6) (#$ . 71354)) #@33 Keywords in `tla-changes' mode. (defvar tla-changes-font-lock-keywords (append '(("^\\* looking for .* to compare with$" . font-lock-function-name-face) ("^\\* comparing to .*$" . font-lock-function-name-face) ("^\\* dir metadata changed$" . font-lock-function-name-face) ("^\\* file metadata changed$" . font-lock-function-name-face) ("^\\* modified files" . font-lock-function-name-face) ("^\\* added files" . font-lock-function-name-face) ("^\\* removed files" . font-lock-function-name-face) ("^ +-?-/ .*$" quote dvc-meta-info) ("^ +-- .*$" quote dvc-meta-info) ("^ *T. .*$" quote dvc-nested-tree)) diff-font-lock-keywords) (#$ . 71866)) #@35 Keywords in `tla-changelog' mode. (defvar tla-changelog-font-lock-keywords (append '((" \\([^ ].+:\\)$" (1 'dvc-keyword)) (" \\(patch-[0-9]+\\)" (1 'dvc-keyword)) (" \\(base-0\\)" (1 'dvc-keyword)) ("^#.*$" quote dvc-comment)) change-log-font-lock-keywords) (#$ . 72514)) (add-to-list 'auto-mode-alist '("/\\(=tagging-method\\|\\.arch-inventory\\)$" . tla-inventory-file-mode)) #@57 Global keymap used by Xtla in the ediff control buffer. (defvar tla-ediff-keymap (copy-keymap dvc-global-keymap) (#$ . 72901)) (byte-code "\303 \304#\210\305\306\307\"\210\310\311\312\"\210\305\313\311\"\210\314\nB\315\314!\204$\316\314\317\"\210\303\207" [tla-ediff-keymap dvc-keyvec-log-entry current-load-list define-key tla-ediff-add-log-entry add-hook ediff-keymap-setup-hook #[nil "\303 \n#\207" [ediff-mode-map dvc-prefix-key tla-ediff-keymap define-key] 4] autoload tla-find-file-hook "tla" find-file-hooks tla-use-arrow-keys-for-navigation-list default-boundp set-default ((tla-inventory-mode-map right 'tla-inventory-find-file) (tla-inventory-mode-map left 'tla-inventory-parent-directory) (tla-archive-list-mode-map right 'tla-archive-list-categories) (tla-archive-list-mode-map left 'dvc-buffer-quit) (tla-category-list-mode-map right 'tla-category-list-branches) (tla-category-list-mode-map left 'tla-archives) (tla-branch-list-mode-map right 'tla-branch-list-versions) (tla-branch-list-mode-map left 'tla-branch-list-parent-category) (tla-version-list-mode-map right 'tla-version-list-revisions) (tla-version-list-mode-map left 'tla-version-list-parent-branch) (tla-revision-list-mode-map left 'tla-revision-list-parent-version) (tla-revision-list-mode-map right 'dvc-revlist-show-item) (dvc-diff-mode-map left 'dvc-diff-jump-to-change) (dvc-diff-mode-map right 'dvc-diff-view-source) (tla-changelog-mode-map left 'dvc-buffer-quit) (dvc-process-buffer-mode-map left 'dvc-buffer-quit) (tla-bookmarks-mode-map right 'tla-bookmarks-inventory))] 4) #@223 Bind the left/right keys for navigation. This function will be called automatically if variable `tla-use-arrow-keys-for-navigation' is non-nil. If argument UNINSTALL is non-nil, undefine the keys instead of defining it. (defalias 'tla-use-arrow-keys-for-navigation #[(&optional uninstall) "\306\307!\204\n\310\311!\210\312 \f\203\220\f@\fA\313\314\315 @D\n\312=\2033\316 \211A@)!\312D\202\212\n\317=\203b\203M\316\317 \211A@)D!\312D\202\212\316\317 \211A@)D! \211AA)@D\202\212\n\320=\205\212\203z\316 \211A@)!\312D\202\212\316 \211A@)! \211AA)@D\"!\210\202\203\246\321\322\n\317=\203\241\323\202\242\324\"\202\264\321\325\n\317=\203\262\323\202\263\324\"+\207" [tla-use-arrow-keys-for-navigation-list tla-use-arrow-keys-for-navigation m b bl x boundp dvc-diff-mode-map load-library "dvc-diff" nil eval append define-key vector shift t message "%sleft/right bindings for Xtla have been removed." "Shifted " "" "%sleft/right bindings for Xtla have been installed." uninstall] 7 (#$ . 74471) "P"]) (byte-code "\203\300 \210\301\302!\207" [tla-use-arrow-keys-for-navigation provide tla-defs] 2)