| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306\307\310#\203/ \311\312\313\300!\205! \"\203/ \314\315!\203/ \315\316!\210\317\320\307\321\322\323\324\325&\210\317\326\307\327\324\320%\210\330\331\332\333\334DD\335\336\337\324\320\340\341& \210\330\342\332\333\343DD\344\324\320\340\345&\210\330\346\332\333\347DD\350\324\320\340\351&\210\330\352\332\333\353DD\354\336\355\324\320\340\351& \210\330\356\332\333\357DD\360\324\320\340\361&\210\362\363\364\365\324\326%\210\362\366\367\370\324\326%\210\362\371\372\373\324\326%\210\362\374\375\376\324\326%\210\362\377\201@ \201A \324\326%\207" [async-bytecomp-allowed-packages require button cl-lib dash format-spec async-bytecomp nil t cl-intersection (all magit) boundp fboundp async-bytecomp-package-mode 1 custom-declare-group magit-popup "Infix arguments with a popup as feedback." :link (info-link "(magit-popup)") :group bindings magit-popup-faces "Faces used by Magit-Popup." custom-declare-variable magit-popup-display-buffer-action funcall function #[0 "\300\207" [((display-buffer-below-selected))] 1] "The action used to display a popup buffer.\n\nPopup buffers are displayed using `display-buffer' with the value\nof this option as ACTION argument. You can also set this to nil\nand instead add an entry to `display-buffer-alist'." :package-version (magit-popup . "2.4.0") :type sexp magit-popup-manpage-package #[0 "\301>\203 \302\207\303\207" [system-type (windows-nt ms-dos) woman man] 2] "The package used to display manpages.\nOne of `man' or `woman'." (choice (const man) (const woman)) magit-popup-show-help-echo #[0 "\300\207" [t] 1] "Show usage information in the echo area." boolean magit-popup-show-common-commands #[0 "\300\207" [nil] 1] "Whether to initially show section with commands common to all popups.\nThis section can also be toggled temporarily using \\<magit-popup-mode-map>\\[magit-popup-toggle-show-common-commands]." (magit-popup . "2.9.0") magit-popup-use-prefix-argument #[0 "\300\207" [default] 1] "Control how prefix arguments affect infix argument popups.\n\nThis option controls the effect that the use of a prefix argument\nbefore entering a popup has.\n\n`default' With a prefix argument directly invoke the popup's\n default action (an Emacs command), instead of bringing\n up the popup.\n\n`popup' With a prefix argument bring up the popup, otherwise\n directly invoke the popup's default action.\n\n`nil' Ignore prefix arguments." (choice (const :tag "Call default action instead of showing popup" default) (const :tag "Show popup instead of calling default action" popup) (const :tag "Ignore prefix argument" nil)) custom-declare-face magit-popup-heading ((t :inherit font-lock-keyword-face)) "Face for key mode header lines." magit-popup-key ((t :inherit font-lock-builtin-face)) "Face for key mode buttons." magit-popup-argument ((t :inherit font-lock-warning-face)) "Face used to display enabled arguments in popups." magit-popup-disabled-argument ((t :inherit shadow)) "Face used to display disabled arguments in popups." magit-popup-option-value ((t :inherit font-lock-string-face)) "Face used to display option values in popups."] 10) | |
| 16 | #@901 Keymap for `magit-popup-mode'. | |
| 17 | ||
| 18 | \<magit-popup-mode-map>This keymap contains bindings common to all popups. A section | |
| 19 | listing these commands can be shown or hidden using \[magit-popup-toggle-show-common-commands]. | |
| 20 | ||
| 21 | The prefix used to toggle any switch can be changed by binding | |
| 22 | another key to `magit-invoke-popup-switch'. Likewise binding | |
| 23 | another key to `magit-invoke-popup-option' changes the prefixed | |
| 24 | used to set any option. The two prefixes have to be different. | |
| 25 | If you change these bindings, you should also change the `prefix' | |
| 26 | property of the button types `magit-popup-switch-button' and | |
| 27 | `magit-popup-option-button'. | |
| 28 | ||
| 29 | If you change any other binding, then you might have to also edit | |
| 30 | `magit-popup-common-commands' for things to align correctly in | |
| 31 | the section listing these commands. | |
| 32 | ||
| 33 | Never bind an alphabetic character in this keymap or you might | |
| 34 | make it impossible to invoke certain actions. | |
| 35 | (defvar magit-popup-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\313#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\325\326!\203_ \301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\202} \301\337\332#\210\301\340\334#\210\301\327\334#\210\301\333\336#\210\301\341\336#\210\211\207" [make-sparse-keymap define-key [remap self-insert-command] magit-invoke-popup-action [45 t] magit-invoke-popup-switch [61 t] magit-invoke-popup-option "" magit-popup-quit "?" magit-popup-help "k" "i" magit-popup-info "" magit-popup-toggle-show-common-commands "" magit-popup-set-default-arguments "" magit-popup-save-default-arguments featurep jkl "" universal-argument [return] push-button " " backward-button " " forward-button " " "" ""] 5) (#$ . 3620)) | |
| 36 | (defvar magit-popup-common-commands '(("Set defaults" magit-popup-set-default-arguments) ("View popup manual" magit-popup-info) ("Toggle this section" magit-popup-toggle-show-common-commands) ("Save defaults" magit-popup-save-default-arguments) (" Popup help prefix" magit-popup-help) ("Abort" magit-popup-quit))) | |
| 37 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\301\310\311\312\313\314\315\316\317\320\321\322\323\324\325&\210\300\326\307\301\310\327\312\330\314\331\316\317\320\332\322\333\324\325&\210\300\334\307\301\310\335\312\336\314\337\316\340\320\341\322\303\324\325&\210\300\342\307\301\310\335\312\343\314\344\316\345\320\341\322\303\324\346&\210\300\347\307\342\316\350\304\351&\210\300\352\307\347\314\353\324\354&\207" [define-button-type magit-popup-button face nil action #[257 "\300\301\"\300\302\"!\207" [button-get function event] 5 "\n\n(fn BUTTON)"] magit-popup-switch-button supertype function magit-invoke-popup-switch property :switches heading "Switches\n" formatter magit-popup-format-argument-button format " %k %d (%a)" prefix 45 maxcols 1 magit-popup-option-button magit-invoke-popup-option :options "Options\n" " %k %d (%a%v)" 61 magit-popup-variable-button magit-invoke-popup-action :variables "Variables\n" magit-popup-format-variable-button " %k %d" magit-popup-action-button :actions "Actions\n" magit-popup-format-action-button :max-action-columns magit-popup-command-button magit-popup-format-command-button #[257 "\300\301\"\211\302=?\205 \303!\207" [button-get function push-button call-interactively] 4 "\n\n(fn BUTTON)"] magit-popup-internal-command-button "Common Commands\n" 3] 18) | |
| 38 | #@125 The popup which is currently active. | |
| 39 | This is intended for internal use only. | |
| 40 | Don't confuse this with `magit-current-popup'. | |
| 41 | (defvar magit-this-popup nil (#$ . 7058)) | |
| 42 | (make-variable-buffer-local 'magit-this-popup) | |
| 43 | #@131 The events known to the active popup. | |
| 44 | This is intended for internal use only. | |
| 45 | Don't confuse this with `magit-current-popup-args'. | |
| 46 | (defvar magit-this-popup-events nil (#$ . 7278)) | |
| 47 | (make-variable-buffer-local 'magit-this-popup-events) | |
| 48 | (defvar magit-previous-popup nil nil) | |
| 49 | (make-variable-buffer-local 'magit-previous-popup) | |
| 50 | #@63 The buffer that was current before invoking the active popup. | |
| 51 | (defvar magit-pre-popup-buffer nil (#$ . 7606)) | |
| 52 | (make-variable-buffer-local 'magit-pre-popup-buffer) | |
| 53 | #@60 While a popup is active, get the value of PROP. | |
| 54 | ||
| 55 | (fn PROP) | |
| 56 | (defalias 'magit-popup-get #[257 "\211\302>\203 \303\"\207\303 J\"\207" [magit-this-popup-events magit-this-popup (:switches :options :variables :actions) plist-get] 4 (#$ . 7775)]) | |
| 57 | #@71 While a popup is active, set the value of PROP to VAL. | |
| 58 | ||
| 59 | (fn PROP VAL) | |
| 60 | (defalias 'magit-popup-put #[514 "\301>\203 \302#\211\207\303\304\"\207" [magit-this-popup-events (:switches :options :variables :actions) plist-put error "Property %s isn't supported"] 6 (#$ . 8026)]) | |
| 61 | #@280 The popup from which this editing command was invoked. | |
| 62 | ||
| 63 | Use this inside the `interactive' form of a popup aware command | |
| 64 | to determine whether it was invoked from a popup and if so from | |
| 65 | which popup. If the current command was invoked without the use | |
| 66 | of a popup, then this is nil. | |
| 67 | (defvar magit-current-popup nil (#$ . 8312)) | |
| 68 | #@38 The popup action now being executed. | |
| 69 | (defvar magit-current-popup-action nil (#$ . 8642)) | |
| 70 | #@830 The value of the popup arguments for this editing command. | |
| 71 | ||
| 72 | If the current command was invoked from a popup, then this is | |
| 73 | a list of strings of all the set switches and options. This | |
| 74 | includes arguments which are set by default not only those | |
| 75 | explicitly set during this invocation. | |
| 76 | ||
| 77 | When the value is nil, then that can be because no argument is | |
| 78 | set, or because the current command wasn't invoked from a popup; | |
| 79 | consult `magit-current-popup' to tell the difference. | |
| 80 | ||
| 81 | Generally it is better to use `NAME-arguments', which is created | |
| 82 | by `magit-define-popup', instead of this variable or the function | |
| 83 | by the same name, because `NAME-argument' uses the default value | |
| 84 | for the arguments when the editing command is invoked directly | |
| 85 | instead of from a popup. When the command is bound in several | |
| 86 | popups that might not be feasible though. | |
| 87 | (defvar magit-current-popup-args nil (#$ . 8738)) | |
| 88 | #@449 Return the value of the popup arguments for this editing command. | |
| 89 | ||
| 90 | The value is the same as that of the variable by the same name | |
| 91 | (which see), except that FILTER is applied. FILTER is a list | |
| 92 | of regexps; only arguments that match one of them are returned. | |
| 93 | The first element of FILTER may also be `:not' in which case | |
| 94 | only arguments that don't match any of the regexps are returned, | |
| 95 | or `:only' which doesn't change the behaviour. | |
| 96 | ||
| 97 | (fn &rest FILTER) | |
| 98 | (defalias 'magit-current-popup-args #[128 "\211C\302\303\242@\304=\203 \305\306\307\310\311!\312\"\313\314%\2028 \242@\315=\203+ \211\242A\240\210\305\306\316\310\311!\317\"\313\314% \")\207" [-compare-fn magit-current-popup-args #[514 "\300\"\207" [magit-popup-arg-match] 5 "\n\n(fn A B)"] -filter :not make-byte-code 257 "\301\300\242A\"?\207" vconcat vector [-contains-p] 4 "\n\n(fn ARG)" :only "\301\300\242\"\207" [-contains-p]] 9 (#$ . 9624)]) | |
| 99 | #@114 The buffer that was current before invoking the active popup. | |
| 100 | This is bound when invoking an action or variable. | |
| 101 | (defvar magit-current-pre-popup-buffer nil (#$ . 10542)) | |
| 102 | #@279 Execute the forms in BODY in the buffer that current before the popup. | |
| 103 | If `magit-current-pre-popup-buffer' is non-nil use that, else if | |
| 104 | `magit-pre-popup-buffer' is non-nil use that, otherwise (when no | |
| 105 | popup is involved) execute the forms in the current buffer. | |
| 106 | ||
| 107 | (fn &rest BODY) | |
| 108 | (defalias 'magit-with-pre-popup-buffer '(macro . #[128 "\300\301\302\303BBBBB\207" [--if-let (or magit-current-pre-popup-buffer magit-pre-popup-buffer) with-current-buffer it] 6 (#$ . 10719)])) | |
| 109 | (byte-code "\300\301\302\303#\300\207" [function-put magit-with-pre-popup-buffer lisp-indent-function 0] 4) | |
| 110 | #@23 | |
| 111 | ||
| 112 | (fn PATTERN STRING) | |
| 113 | (defalias 'magit-popup-arg-match #[514 "\301\302\303\304#)\266\203\204 \305\302\303\304#)\266\203\203( \304\306\307\"\"\207\211\230\207" [inhibit-changing-match-data "=$" nil t string-match "^-[A-Z]$" format "^%s\\(.*\\)$"] 9 (#$ . 11307)]) | |
| 114 | #@76 compiler-macro for inlining `magit-popup-event-p'. | |
| 115 | ||
| 116 | (fn CL-WHOLE-ARG CL-X) | |
| 117 | (defalias 'magit-popup-event-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-p (and (memq (type-of cl-x) cl-struct-magit-popup-event-tags) t)) nil] 9 (#$ . 11590)]) | |
| 118 | (put 'magit-popup-event-p 'compiler-macro 'magit-popup-event-p--cmacro) | |
| 119 | #@13 | |
| 120 | ||
| 121 | (fn CL-X) | |
| 122 | (defalias 'magit-popup-event-p #[257 "\301!>\205 \302\207" [cl-struct-magit-popup-event-tags type-of t] 3 (#$ . 11967)]) | |
| 123 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put magit-popup-event-p side-effect-free error-free put magit-popup-event cl-deftype-satisfies] 5) | |
| 124 | #@78 compiler-macro for inlining `magit-popup-event-key'. | |
| 125 | ||
| 126 | (fn CL-WHOLE-ARG CL-X) | |
| 127 | (defalias 'magit-popup-event-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-key (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 1)) nil] 9 (#$ . 12270)]) | |
| 128 | (put 'magit-popup-event-key 'compiler-macro 'magit-popup-event-key--cmacro) | |
| 129 | #@66 Access slot "key" of `magit-popup-event' struct CL-X. | |
| 130 | ||
| 131 | (fn CL-X) | |
| 132 | (defalias 'magit-popup-event-key #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 1] 5 (#$ . 12701)]) | |
| 133 | (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-key side-effect-free t] 4) | |
| 134 | #@78 compiler-macro for inlining `magit-popup-event-dsc'. | |
| 135 | ||
| 136 | (fn CL-WHOLE-ARG CL-X) | |
| 137 | (defalias 'magit-popup-event-dsc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-dsc (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 2)) nil] 9 (#$ . 13066)]) | |
| 138 | (put 'magit-popup-event-dsc 'compiler-macro 'magit-popup-event-dsc--cmacro) | |
| 139 | #@66 Access slot "dsc" of `magit-popup-event' struct CL-X. | |
| 140 | ||
| 141 | (fn CL-X) | |
| 142 | (defalias 'magit-popup-event-dsc #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 2] 5 (#$ . 13497)]) | |
| 143 | (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-dsc side-effect-free t] 4) | |
| 144 | #@78 compiler-macro for inlining `magit-popup-event-arg'. | |
| 145 | ||
| 146 | (fn CL-WHOLE-ARG CL-X) | |
| 147 | (defalias 'magit-popup-event-arg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-arg (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 3)) nil] 9 (#$ . 13862)]) | |
| 148 | (put 'magit-popup-event-arg 'compiler-macro 'magit-popup-event-arg--cmacro) | |
| 149 | #@66 Access slot "arg" of `magit-popup-event' struct CL-X. | |
| 150 | ||
| 151 | (fn CL-X) | |
| 152 | (defalias 'magit-popup-event-arg #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 3] 5 (#$ . 14293)]) | |
| 153 | (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-arg side-effect-free t] 4) | |
| 154 | #@78 compiler-macro for inlining `magit-popup-event-fun'. | |
| 155 | ||
| 156 | (fn CL-WHOLE-ARG CL-X) | |
| 157 | (defalias 'magit-popup-event-fun--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-fun (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 4)) nil] 9 (#$ . 14658)]) | |
| 158 | (put 'magit-popup-event-fun 'compiler-macro 'magit-popup-event-fun--cmacro) | |
| 159 | #@66 Access slot "fun" of `magit-popup-event' struct CL-X. | |
| 160 | ||
| 161 | (fn CL-X) | |
| 162 | (defalias 'magit-popup-event-fun #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 4] 5 (#$ . 15089)]) | |
| 163 | (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-fun side-effect-free t] 4) | |
| 164 | #@78 compiler-macro for inlining `magit-popup-event-use'. | |
| 165 | ||
| 166 | (fn CL-WHOLE-ARG CL-X) | |
| 167 | (defalias 'magit-popup-event-use--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-use (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 5)) nil] 9 (#$ . 15454)]) | |
| 168 | (put 'magit-popup-event-use 'compiler-macro 'magit-popup-event-use--cmacro) | |
| 169 | #@66 Access slot "use" of `magit-popup-event' struct CL-X. | |
| 170 | ||
| 171 | (fn CL-X) | |
| 172 | (defalias 'magit-popup-event-use #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 5] 5 (#$ . 15885)]) | |
| 173 | (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-use side-effect-free t] 4) | |
| 174 | #@78 compiler-macro for inlining `magit-popup-event-val'. | |
| 175 | ||
| 176 | (fn CL-WHOLE-ARG CL-X) | |
| 177 | (defalias 'magit-popup-event-val--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block magit-popup-event-val (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 6)) nil] 9 (#$ . 16250)]) | |
| 178 | (put 'magit-popup-event-val 'compiler-macro 'magit-popup-event-val--cmacro) | |
| 179 | #@66 Access slot "val" of `magit-popup-event' struct CL-X. | |
| 180 | ||
| 181 | (fn CL-X) | |
| 182 | (defalias 'magit-popup-event-val #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 6] 5 (#$ . 16681)]) | |
| 183 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put magit-popup-event-val side-effect-free t defalias copy-magit-popup-event copy-sequence] 4) | |
| 184 | #@109 compiler-macro for inlining `make-magit-popup-event'. | |
| 185 | ||
| 186 | (fn CL-WHOLE &cl-quote &key KEY DSC ARG FUN USE VAL) | |
| 187 | (defalias 'make-magit-popup-event--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315\316\311 \311 & \207" [plist-member :key :dsc :arg :fun :use :val (:key :dsc :arg :fun :use :val :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :dsc :arg :fun :use :val)" cl--defsubst-expand (key dsc arg fun use val) (cl-block make-magit-popup-event (record 'magit-popup-event key dsc arg fun use val))] 20 (#$ . 17103)]) | |
| 188 | (put 'make-magit-popup-event 'compiler-macro 'make-magit-popup-event--cmacro) | |
| 189 | #@89 Constructor for objects of type `magit-popup-event'. | |
| 190 | ||
| 191 | (fn &key KEY DSC ARG FUN USE VAL) | |
| 192 | (defalias 'make-magit-popup-event #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315&\207" [plist-member :key :dsc :arg :fun :use :val (:key :dsc :arg :fun :use :val :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :dsc :arg :fun :use :val)" record magit-popup-event] 15 (#$ . 17904)]) | |
| 193 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-magit-popup-event side-effect-free t cl-struct-define magit-popup-event nil cl-structure-object record ((cl-tag-slot) (key) (dsc) (arg) (fun) (use) (val)) cl-struct-magit-popup-event-tags] 11) | |
| 194 | #@11 | |
| 195 | ||
| 196 | (fn EV) | |
| 197 | (defalias 'magit-popup-event-keydsc #[257 "\301!>\204 \302\303\304D\"\210\211\305H\306\307!\203 \202 \310!!\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 1 key-description vectorp vector] 5 (#$ . 18767)]) | |
| 198 | #@19 | |
| 199 | ||
| 200 | (fn EVENT TYPE) | |
| 201 | (defalias 'magit-popup-lookup #[514 "\301\302\303\304!\"\305\306\203D \203D @\203 \301\262\2028 \307!>\204, \310\311\312D\"\210\211\313H\232\2038 \211\262\210\211T\262A\262\202 \266\211\207" [cl-struct-magit-popup-event-tags nil -filter magit-popup-event-p magit-popup-get t 0 type-of signal wrong-type-argument magit-popup-event 1] 11 (#$ . 19043)]) | |
| 202 | (defalias 'magit-popup-get-args #[0 "\300\301\302\303\301\304\305!\304\306!\"\"\"\207" [apply append mapcar #[257 "\301!>\205J \301!>\204 \302\303\304D\"\210\211\305H\205J \306\307\301!>\204. \302\303\304D\"\210\310H\301!>\204A \302\303\304D\"\210\311H\206H \312#C\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 5 format "%s%s" 3 6 ""] 8 "\n\n(fn IT)"] magit-popup-get :switches :options] 8]) | |
| 203 | #@17 | |
| 204 | ||
| 205 | (fn DEF FORM) | |
| 206 | (defalias 'magit-popup-convert-events '(macro . #[514 "\300\301\302\303FE\207" [--map if (or (null it) (stringp it) (functionp it)) it] 7 (#$ . 19889)])) | |
| 207 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit-popup-convert-events lisp-indent-function 1 put edebug-form-spec (form form)] 5) | |
| 208 | #@16 | |
| 209 | ||
| 210 | (fn VAL DEF) | |
| 211 | (defalias 'magit-popup-convert-switches #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\211\203 \211;\204 \301!\203 \207\3028\303\304@\305A@\306\307\300\235\205' \310\311\312\313\f\"\2054 \314\f8&\n\207" vconcat vector [functionp 2 make-magit-popup-event :key :dsc :arg :use t :fun string-prefix-p "++" 3] 15 "\n\n(fn IT)"] 9 (#$ . 20220)]) | |
| 212 | #@16 | |
| 213 | ||
| 214 | (fn VAL DEF) | |
| 215 | (defalias 'magit-popup-convert-options #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\211\203 \211;\204 \301!\203 \207\3028\303\304\"\305\300\306\307\203F \203F @\203/ \305\262\202: \310\"\203: \211\262\210\211T\262A\262\202 \266\211\262\311\312@\313A@\314\315\205^ \306\316\n\205i \317\320\f\"\321\3228\206r \323&\f\207" vconcat vector [functionp 2 format "^%s\\(.*\\)" nil t 0 string-match make-magit-popup-event :key :dsc :arg :use :val match-string 1 :fun 3 read-from-minibuffer] 18 "\n\n(fn IT)"] 9 (#$ . 20634)]) | |
| 216 | #@16 | |
| 217 | ||
| 218 | (fn VAL DEF) | |
| 219 | (defalias 'magit-popup-convert-variables #[514 "\300\301\"\207" [mapcar #[257 "\211\203 \211;\204 \300!\203 \207\301\302@A@\3038\3048\305\211&\207" [functionp record magit-popup-event 3 2 nil] 9 "\n\n(fn IT)"]] 5 (#$ . 21246)]) | |
| 220 | #@16 | |
| 221 | ||
| 222 | (fn VAL DEF) | |
| 223 | (defalias 'magit-popup-convert-actions #[514 "\300\301\"\207" [mapcar #[257 "\211\203 \211;\204 \300!\203 \207\301\302@A@\303\3048\303\211&\207" [functionp record magit-popup-event nil 2] 9 "\n\n(fn IT)"]] 5 (#$ . 21506)]) | |
| 224 | #@7027 Define a popup command named NAME. | |
| 225 | ||
| 226 | NAME should begin with the package prefix and by convention end | |
| 227 | with `-popup'. That name is used for the actual command as well | |
| 228 | as for a variable used internally. DOC is used as the doc-string | |
| 229 | of that command. | |
| 230 | ||
| 231 | Also define an option and a function named `SHORTNAME-arguments', | |
| 232 | where SHORTNAME is NAME with the trailing `-popup' removed. The | |
| 233 | name of this option and this function can be overwritten using | |
| 234 | the optional argument OPTION, but that is rarely advisable. As a | |
| 235 | special case if OPTION is specified but nil, do not define this | |
| 236 | option and this function at all. | |
| 237 | ||
| 238 | The option `SHORTNAME-arguments' holds the default value for the | |
| 239 | popup arguments. It can be customized from within the popup or | |
| 240 | using the Custom interface. | |
| 241 | ||
| 242 | The function `SHORTNAME-arguments' is a wrapper around the | |
| 243 | variable `magit-current-popup-args', both of which are intended | |
| 244 | to be used inside the `interactive' form of commands commonly | |
| 245 | invoked from the popup `NAME'. When such a command is invoked | |
| 246 | from that popup, then the function `SHORTNAME-arguments' returns | |
| 247 | the value of the variable `magit-current-popup-args'; however | |
| 248 | when the command is invoked directly, then it returns the default | |
| 249 | value of the variable `SHORTNAME-arguments'. | |
| 250 | ||
| 251 | Optional argument GROUP specifies the Custom group into which the | |
| 252 | option is placed. If omitted, then the option is placed into some | |
| 253 | group the same way it is done when directly using `defcustom' and | |
| 254 | omitting the group, except when NAME begins with "magit-", in | |
| 255 | which case the group `magit-git-arguments' is used. | |
| 256 | ||
| 257 | Optional argument MODE is deprecated, instead use the keyword | |
| 258 | arguments `:setup-function' and/or `:refresh-function'. If MODE | |
| 259 | is non-nil, then it specifies the mode used by the popup buffer, | |
| 260 | instead of the default, which is `magit-popup-mode'. | |
| 261 | ||
| 262 | The remaining arguments should have the form | |
| 263 | ||
| 264 | [KEYWORD VALUE]... | |
| 265 | ||
| 266 | The following keywords are meaningful (and by convention are | |
| 267 | usually specified in that order): | |
| 268 | ||
| 269 | `:actions' | |
| 270 | The actions which can be invoked from the popup. VALUE is a | |
| 271 | list whose members have the form (KEY DESC COMMAND), see | |
| 272 | `magit-define-popup-action' for details. | |
| 273 | ||
| 274 | Actions are regular Emacs commands, which usually have an | |
| 275 | `interactive' form setup to consume the values of the popup | |
| 276 | `:switches' and `:options' when invoked from the corresponding | |
| 277 | popup, else when invoked as the default action or directly | |
| 278 | without using the popup, the default value of the variable | |
| 279 | `SHORTNAME-arguments'. This is usually done by calling the | |
| 280 | function `SHORTNAME-arguments'. | |
| 281 | ||
| 282 | Members of VALUE may also be strings and functions, assuming | |
| 283 | the first member is a string or function. In that case the | |
| 284 | members are split into sections and these special elements are | |
| 285 | used as headings. If such an element is a function then it is | |
| 286 | called with no arguments and must return either a string, which | |
| 287 | is used as the heading, or nil, in which case the section is | |
| 288 | not inserted. | |
| 289 | ||
| 290 | Members of VALUE may also be nil. This should only be used | |
| 291 | together with `:max-action-columns' and allows having gaps in | |
| 292 | the action grid, which can help arranging actions sensibly. | |
| 293 | ||
| 294 | `:default-action' | |
| 295 | The default action of the popup which is used directly instead | |
| 296 | of displaying the popup buffer, when the popup is invoked with | |
| 297 | a prefix argument. Also see `magit-popup-use-prefix-argument' | |
| 298 | and `:use-prefix', which can be used to inverse the meaning of | |
| 299 | the prefix argument. | |
| 300 | ||
| 301 | `:use-prefix' | |
| 302 | Controls when to display the popup buffer and when to invoke | |
| 303 | the default action (if any) directly. This overrides the | |
| 304 | global default set using `magit-popup-use-prefix-argument'. | |
| 305 | The value, if specified, should be one of `default' or `popup', | |
| 306 | or a function that is called with no arguments and returns one | |
| 307 | of these symbols. | |
| 308 | ||
| 309 | `:max-action-columns' | |
| 310 | The maximum number of actions to display on a single line, a | |
| 311 | number or a function that returns a number and takes the name | |
| 312 | of the section currently being inserted as argument. If there | |
| 313 | isn't enough room to display as many columns as specified here, | |
| 314 | then fewer are used. | |
| 315 | ||
| 316 | `:switches' | |
| 317 | The popup arguments which can be toggled on and off. VALUE | |
| 318 | is a list whose members have the form (KEY DESC SWITCH), see | |
| 319 | `magit-define-popup-switch' for details. | |
| 320 | ||
| 321 | Members of VALUE may also be strings and functions, assuming | |
| 322 | the first member is a string or function. In that case the | |
| 323 | members are split into sections and these special elements are | |
| 324 | used as headings. If such an element is a function then it is | |
| 325 | called with no arguments and must return either a string, which | |
| 326 | is used as the heading, or nil, in which case the section is | |
| 327 | not inserted. | |
| 328 | ||
| 329 | `:options' | |
| 330 | The popup arguments which take a value, as in "--opt=OPTVAL". | |
| 331 | VALUE is a list whose members have the form (KEY DESC OPTION | |
| 332 | READER), see `magit-define-popup-option' for details. | |
| 333 | ||
| 334 | Members of VALUE may also be strings and functions, assuming | |
| 335 | the first member is a string or function. In that case the | |
| 336 | members are split into sections and these special elements are | |
| 337 | used as headings. If such an element is a function then it is | |
| 338 | called with no arguments and must return either a string, which | |
| 339 | is used as the heading, or nil, in which case the section is | |
| 340 | not inserted. | |
| 341 | ||
| 342 | `:default-arguments' | |
| 343 | The default arguments, a list of switches (which are then | |
| 344 | enabled by default) and options with there default values, as | |
| 345 | in "--OPT=OPTVAL". | |
| 346 | ||
| 347 | `:variables' | |
| 348 | ||
| 349 | Variables which can be set from the popup. VALUE is a list | |
| 350 | whose members have the form (KEY DESC COMMAND FORMATTER), see | |
| 351 | `magit-define-popup-variable' for details. | |
| 352 | ||
| 353 | Members of VALUE may also be strings and functions, assuming | |
| 354 | the first member is a string or function. In that case the | |
| 355 | members are split into sections and these special elements are | |
| 356 | used as headings. If such an element is a function then it is | |
| 357 | called with no arguments and must return either a string, which | |
| 358 | is used as the heading, or nil, in which case the section is | |
| 359 | not inserted. | |
| 360 | ||
| 361 | Members of VALUE may also be actions as described above for | |
| 362 | `:actions'. | |
| 363 | ||
| 364 | VALUE may also be a function that returns a list as describe | |
| 365 | above. | |
| 366 | ||
| 367 | `:sequence-predicate' | |
| 368 | When this function returns non-nil, then the popup uses | |
| 369 | `:sequence-actions' instead of `:actions', and does not show | |
| 370 | the `:switches' and `:options'. | |
| 371 | ||
| 372 | `:sequence-actions' | |
| 373 | The actions which can be invoked from the popup, when | |
| 374 | `:sequence-predicate' returns non-nil. | |
| 375 | ||
| 376 | `:setup-function' | |
| 377 | When this function is specified, then it is used instead of | |
| 378 | `magit-popup-default-setup'. | |
| 379 | ||
| 380 | `:refresh-function' | |
| 381 | When this function is specified, then it is used instead of | |
| 382 | calling `magit-popup-insert-section' three times with symbols | |
| 383 | `magit-popup-switch-button', `magit-popup-option-button', and | |
| 384 | finally `magit-popup-action-button' as argument. | |
| 385 | ||
| 386 | `:man-page' | |
| 387 | The name of the manpage to be displayed when the user requests | |
| 388 | help for a switch or argument. | |
| 389 | ||
| 390 | (fn NAME DOC [GROUP [MODE [OPTION]]] :KEYWORD VALUE...) | |
| 391 | (defalias 'magit-define-popup '(macro . #[642 "\300!\301@!\203 \302\303\"\205 \304\202 \211A\262\242\301@!?\205) \211A\262\242\301@!\203F \305\306\307\"\203? \310\311O\202@ \312P!\202N \313\211A\262\242!\314\315\316 \317\320\321D \322BBB\257\323 \324\325\321D BBBE\326\321 DD\205\262 \327\330 \331BB\332\333 \205\217 \334\fD\335\"BBBB\315\336\337\340\341\321DE\342 FF\343\321D\344\321DFEBBBB\207" [symbol-name keywordp string-prefix-p "magit-" 'magit-git-arguments intern string-suffix-p "-popup" 0 -6 "-arguments" eval progn defun (&optional arg) (interactive "P") magit-invoke-popup quote (arg) defvar list :variable magit-define-popup-keys-deferred defcustom plist-get (:default-arguments) "" append :group (:type '(repeat (string :tag "Argument"))) nil if eq magit-current-popup magit-current-popup-args put 'definition-name] 20 (#$ . 21762)])) | |
| 392 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put magit-define-popup lisp-indent-function defun doc-string-elt 2] 5) | |
| 393 | #@915 In POPUP, define KEY as SWITCH. | |
| 394 | ||
| 395 | POPUP is a popup command defined using `magit-define-popup'. | |
| 396 | SWITCH is a string representing an argument that takes no value. | |
| 397 | KEY is a character representing the second event in the sequence | |
| 398 | of keystrokes used to toggle the argument. (The first event, the | |
| 399 | prefix, is shared among all switches, defaults to -, and can be | |
| 400 | changed in `magit-popup-mode-keymap'). | |
| 401 | ||
| 402 | DESC is a string describing the purpose of the argument, it is | |
| 403 | displayed in the popup. | |
| 404 | ||
| 405 | If optional ENABLE is non-nil, then the switch is on by default. | |
| 406 | ||
| 407 | SWITCH is inserted after all other switches already defined for | |
| 408 | POPUP, unless optional PREPEND is non-nil, in which case it is | |
| 409 | placed first. If optional AT is non-nil, then it should be the | |
| 410 | KEY of another switch already defined for POPUP, the argument | |
| 411 | is then placed before or after AT, depending on PREPEND. | |
| 412 | ||
| 413 | (fn POPUP KEY DESC SWITCH &optional ENABLE AT PREPEND) | |
| 414 | (defalias 'magit-define-popup-switch #[1796 "\300\301E&\207" [magit-define-popup-key :switches] 14 (#$ . 29824)]) | |
| 415 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-switch lisp-indent-function defun] 4) | |
| 416 | #@1540 In POPUP, define KEY as OPTION. | |
| 417 | ||
| 418 | POPUP is a popup command defined using `magit-define-popup'. | |
| 419 | OPTION is a string representing an argument that takes a value. | |
| 420 | KEY is a character representing the second event in the sequence | |
| 421 | of keystrokes used to set the argument's value. (The first | |
| 422 | event, the prefix, is shared among all options, defaults to =, | |
| 423 | and can be changed in `magit-popup-mode-keymap'). | |
| 424 | ||
| 425 | DESC is a string describing the purpose of the argument, it is | |
| 426 | displayed in the popup. | |
| 427 | ||
| 428 | If optional VALUE is non-nil then the option is on by default, | |
| 429 | and VALUE is its default value. | |
| 430 | ||
| 431 | READER is used to read a value from the user when the option is | |
| 432 | invoked and does not currently have a value. (When the option | |
| 433 | has a value, then invoking the option causes it to be unset.) | |
| 434 | This function must take two arguments but may choose to ignore | |
| 435 | them. The first argument is the name of the option (with ": " | |
| 436 | appended, unless it ends with "=") and can be used as the | |
| 437 | prompt. The second argument is nil or the value that was in | |
| 438 | effect before the option was unset, which may be suitable as | |
| 439 | initial completion input. If no reader is specified, then | |
| 440 | `read-from-minibuffer' is used. | |
| 441 | ||
| 442 | OPTION is inserted after all other options already defined for | |
| 443 | POPUP, unless optional PREPEND is non-nil, in which case it is | |
| 444 | placed first. If optional AT is non-nil, then it should be the | |
| 445 | KEY of another option already defined for POPUP, the argument | |
| 446 | is then placed before or after AT, depending on PREPEND. | |
| 447 | ||
| 448 | (fn POPUP KEY DESC OPTION &optional READER VALUE AT PREPEND) | |
| 449 | (defalias 'magit-define-popup-option #[2052 "\300\301 F&\207" [magit-define-popup-key :options] 16 (#$ . 30985)]) | |
| 450 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-option lisp-indent-function defun] 4) | |
| 451 | #@828 In POPUP, define KEY as COMMAND. | |
| 452 | ||
| 453 | POPUP is a popup command defined using `magit-define-popup'. | |
| 454 | COMMAND is a command which calls `magit-popup-set-variable'. | |
| 455 | FORMATTER is a function which calls `magit-popup-format-variable'. | |
| 456 | These two functions have to be called with the same arguments. | |
| 457 | ||
| 458 | KEY is a character representing the event used interactively call | |
| 459 | the COMMAND. | |
| 460 | ||
| 461 | DESC is the variable or a representation thereof. It's not | |
| 462 | actually used for anything. | |
| 463 | ||
| 464 | COMMAND is inserted after all other commands already defined for | |
| 465 | POPUP, unless optional PREPEND is non-nil, in which case it is | |
| 466 | placed first. If optional AT is non-nil, then it should be the | |
| 467 | KEY of another command already defined for POPUP, the command | |
| 468 | is then placed before or after AT, depending on PREPEND. | |
| 469 | ||
| 470 | (fn POPUP KEY DESC COMMAND FORMATTER &optional AT PREPEND) | |
| 471 | (defalias 'magit-define-popup-variable #[1797 "\300\301E&\207" [magit-define-popup-key :variables] 14 (#$ . 32771)]) | |
| 472 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-variable lisp-indent-function defun] 4) | |
| 473 | #@751 In POPUP, define KEY as COMMAND. | |
| 474 | ||
| 475 | POPUP is a popup command defined using `magit-define-popup'. | |
| 476 | COMMAND can be any command but should usually consume the popup | |
| 477 | arguments in its `interactive' form. | |
| 478 | KEY is a character representing the event used invoke the action, | |
| 479 | i.e. to interactively call the COMMAND. | |
| 480 | ||
| 481 | DESC is a string describing the purpose of the action, it is | |
| 482 | displayed in the popup. | |
| 483 | ||
| 484 | COMMAND is inserted after all other commands already defined for | |
| 485 | POPUP, unless optional PREPEND is non-nil, in which case it is | |
| 486 | placed first. If optional AT is non-nil, then it should be the | |
| 487 | KEY of another command already defined for POPUP, the command | |
| 488 | is then placed before or after AT, depending on PREPEND. | |
| 489 | ||
| 490 | (fn POPUP KEY DESC COMMAND &optional AT PREPEND) | |
| 491 | (defalias 'magit-define-popup-action #[1540 "\300\301D&\207" [magit-define-popup-key :actions] 13 (#$ . 33849)]) | |
| 492 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-action lisp-indent-function defun] 4) | |
| 493 | #@112 Like `magit-define-popup-action' but for `:sequence-action'. | |
| 494 | ||
| 495 | (fn POPUP KEY DESC COMMAND &optional AT PREPEND) | |
| 496 | (defalias 'magit-define-popup-sequence-action #[1540 "\300\301D&\207" [magit-define-popup-key :sequence-actions] 13 (#$ . 34842)]) | |
| 497 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-sequence-action lisp-indent-function defun] 4) | |
| 498 | (defconst magit-popup-type-plural-alist '((:switch . :switches) (:option . :options) (:variable . :variables) (:action . :actions) (:sequence-action . :sequence-actions))) | |
| 499 | #@13 | |
| 500 | ||
| 501 | (fn TYPE) | |
| 502 | (defalias 'magit-popup-pluralize-type #[257 "\211\236A\206 \211\207" [magit-popup-type-plural-alist] 3 (#$ . 35394)]) | |
| 503 | #@322 In POPUP, define KEY as an action, switch, or option. | |
| 504 | It's better to use one of the specialized functions | |
| 505 | `magit-define-popup-action', | |
| 506 | `magit-define-popup-sequence-action', | |
| 507 | `magit-define-popup-switch', | |
| 508 | `magit-define-popup-option', or | |
| 509 | `magit-define-popup-variable'. | |
| 510 | ||
| 511 | (fn POPUP TYPE KEY DEF &optional AT PREPEND) | |
| 512 | (defalias 'magit-define-popup-key #[1540 "\300!\262\301>\203\264 \302!\203\241 J\303\"\304\"\211\203* \211\241\210\2021 B\262\203r \305\306\307\310\311&\211\262\203~ \312\306\307\310\311&\262\203f @\211AB\241\266\240\210\202~ \211AB\241\266\202~ \312\306\307\310\311&\262\304\"\204\227 \203\220 \211B\202\225 \313C\"\262\314\n#L\207\257\315\316\316NB#\207\317\320\"\207" [magit-popup-pluralize-type (:switches :options :variables :actions :sequence-actions) boundp plist-get assoc cl-member :key car-safe :test equal cl-delete append plist-put put magit-popup-deferred error "Unknown popup event type: %s"] 16 (#$ . 35533)]) | |
| 513 | (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-key lisp-indent-function defun] 4) | |
| 514 | #@14 | |
| 515 | ||
| 516 | (fn POPUP) | |
| 517 | (defalias 'magit-define-popup-keys-deferred #[257 "\211\300N\211\203' \211@\3011 \302\303#0\202 \304\305\306!\307#\262\210A\266\202\202 \210\310\300\311#\207" [magit-popup-deferred (debug error) apply magit-define-popup-key display-warning magit error-message-string :error put nil] 8 (#$ . 36664)]) | |
| 518 | #@189 In POPUP, bind TO to what FROM was bound to. | |
| 519 | TYPE is one of `:action', `:sequence-action', `:switch', or | |
| 520 | `:option'. Bind TO and unbind FROM, both are characters. | |
| 521 | ||
| 522 | (fn POPUP TYPE FROM TO) | |
| 523 | (defalias 'magit-change-popup-key #[1028 "\300\301J\302!\"\"\211\203 \211\240\202 \303\304\"\207" [assoc plist-get magit-popup-pluralize-type message "magit-change-popup-key: FROM key %c is unbound"] 10 (#$ . 36993)]) | |
| 524 | #@240 In POPUP, remove KEY's binding of TYPE. | |
| 525 | POPUP is a popup command defined using `magit-define-popup'. | |
| 526 | TYPE is one of `:action', `:sequence-action', `:switch', or | |
| 527 | `:option'. KEY is the character which is to be unbound. | |
| 528 | ||
| 529 | (fn POPUP TYPE KEY) | |
| 530 | (defalias 'magit-remove-popup-key #[771 "\300!\262J\301\"\302\"\303\304\"#L\207" [magit-popup-pluralize-type plist-get assoc plist-put delete] 13 (#$ . 37415)]) | |
| 531 | (defvar magit-popup-previous-winconf nil nil) | |
| 532 | (make-variable-buffer-local 'magit-popup-previous-winconf) | |
| 533 | #@23 | |
| 534 | ||
| 535 | (fn POPUP MODE ARG) | |
| 536 | (defalias 'magit-invoke-popup #[771 "J\306\307\"J\306\310\"\306\311\"\312!\203 \211 \202 \211\211\206 \211\313=\203+ \2046 \211\314=\203\200 \204\200 \203q \313D \315\316\"\210\317 * \203j <\203j @\320U?\205i @\320\245C\321!*\202\270 \322\323\n\"\210\324 \"\202\270 \211\325>\203\251 \324 \"\210!\205\270 \322\326\327\330\331\332\333#\330\334\332\333#\330\335\332\333#$!\202\270 \203\264 \336\337\"\202\270 \336\340\"\207" [magit-popup-use-prefix-argument magit-this-popup-events magit-this-popup magit-current-popup-args magit-current-popup current-prefix-arg plist-get :variable :default-action :use-prefix functionp default popup nil magit-popup-default-setup magit-popup-get-args 4 call-interactively message "%s has no default action; showing popup instead." magit-popup-mode-setup (default popup nil) format "[%s] show common commands, [%s] describe events, [%s] show manual" propertize "C-t" face magit-popup-key "?" "C-h i" error "Invalid :use-prefix popup property value: %s" "Invalid magit-popup-use-prefix-argument value: %s" magit-popup-show-help-echo] 18 (#$ . 37940)]) | |
| 537 | #@14 | |
| 538 | ||
| 539 | (fn EVENT) | |
| 540 | (defalias 'magit-invoke-popup-switch #[257 "\301\302\"\211\2036 \303!>\204 \304\305\306D\"\210\211\211\307\303!>\204* \304\305\306D\"\210\307H?I\266\310 \202: \311\312\"\207" [cl-struct-magit-popup-event-tags magit-popup-lookup :switches type-of signal wrong-type-argument magit-popup-event 5 magit-refresh-popup-buffer user-error "%c isn't bound to any switch"] 9 (#$ . 39096) (list last-command-event)]) | |
| 541 | #@14 | |
| 542 | ||
| 543 | (fn EVENT) | |
| 544 | (defalias 'magit-invoke-popup-option #[257 "\302\303\"\211\203\263 \304!>\204 \305\306\307D\"\210\211\310H\2036 \304!>\204, \305\306\307D\"\210\211\211\310\311I\266\202\256 \304!>\204E \305\306\307D\"\210\211\312H\304!>\204W \305\306\307D\"\210\313H\314\311\315\316#)\266\203?\205m \317P\304!>\204~ \305\306\307D\"\210\320H\"\304!>\204\221 \305\306\307D\"\210\211\310\315I\266\304!>\204\247 \305\306\307D\"\210\211\320I\266\321 \202\267 \322\323\"\207" [cl-struct-magit-popup-event-tags inhibit-changing-match-data magit-popup-lookup :options type-of signal wrong-type-argument magit-popup-event 5 nil 3 4 "=$" t string-match ": " 6 magit-refresh-popup-buffer user-error "%c isn't bound to any option"] 12 (#$ . 39533) (list last-command-event)]) | |
| 545 | #@14 | |
| 546 | ||
| 547 | (fn EVENT) | |
| 548 | (defalias 'magit-invoke-popup-action #[257 "\306\307\"\306\310\"\211\203' \311!>\204 \312\313\314D\"\210\211\315H\204' \211\262\316\262\204/ \211\203r \317 \f \311\206< !>\204M \312\313\314\206J D\"\210\206R \211\320H\211 \203^ \321 \210\211\322!\210?\205l \323 ,\262\202\214 \324=\203\210 \321 \210\205\214 \325\316\"\202\214 \326\327\"\207" [cl-struct-magit-popup-event-tags magit-this-popup magit-current-popup magit-current-popup-args magit-pre-popup-buffer magit-current-pre-popup-buffer magit-popup-lookup :actions :variables type-of signal wrong-type-argument magit-popup-event 3 nil magit-popup-get-args 4 magit-popup-quit call-interactively magit-refresh-popup-buffer 113 magit-popup-mode-setup user-error "%c isn't bound to any action" magit-current-popup-action this-command magit-previous-popup] 7 (#$ . 40338) (list last-command-event)]) | |
| 549 | #@60 Quit the current popup command without invoking an action. | |
| 550 | (defalias 'magit-popup-quit #[0 "\301\302!\203 \303 \210\202 \304\305!\210\306\300!\210\211\205 \307!\207" [magit-popup-previous-winconf derived-mode-p magit-popup-mode kill-buffer magit-popup-help-mode -1 kill-local-variable set-window-configuration] 3 (#$ . 41239) nil]) | |
| 551 | #@88 Like `read-number' but DEFAULT may be a numeric string. | |
| 552 | ||
| 553 | (fn PROMPT &optional DEFAULT) | |
| 554 | (defalias 'magit-popup-read-number #[513 "\300;\203 \301!\202 \"\207" [read-number string-to-number] 6 (#$ . 41582)]) | |
| 555 | #@298 Set default value for the arguments for the current popup. | |
| 556 | Then close the popup without invoking an action; unless a prefix | |
| 557 | argument is used in which case the popup remains open. | |
| 558 | ||
| 559 | For a popup named `NAME-popup' that usually means setting the | |
| 560 | value of the custom option `NAME-arguments'. | |
| 561 | ||
| 562 | (fn ARG) | |
| 563 | (defalias 'magit-popup-set-default-arguments #[257 "\300\301!\211\203 \302\303 \"\210?\205 \304 \202 \305\306!\207" [magit-popup-get :variable customize-set-variable magit-popup-get-args magit-popup-quit user-error "Nothing to set"] 5 (#$ . 41800) "P"]) | |
| 564 | #@298 Save default value for the arguments for the current popup. | |
| 565 | Then close the popup without invoking an action; unless a prefix | |
| 566 | argument is used in which case the popup remains open. | |
| 567 | ||
| 568 | For a popup named `NAME-popup' that usually means saving the | |
| 569 | value of the custom option `NAME-arguments'. | |
| 570 | ||
| 571 | (fn ARG) | |
| 572 | (defalias 'magit-popup-save-default-arguments #[257 "\300\301!\211\203 \302\303 \"\210?\205 \304 \202 \305\306!\207" [magit-popup-get :variable customize-save-variable magit-popup-get-args magit-popup-quit user-error "Nothing to save"] 5 (#$ . 42363) "P"]) | |
| 573 | #@174 Show or hide an additional section with common commands. | |
| 574 | The commands listed in this section are common to all popups | |
| 575 | and are defined in `magit-popup-mode-map' (which see). | |
| 576 | (defalias 'magit-popup-toggle-show-common-commands #[0 "?\301 \210\302 \207" [magit-popup-show-common-commands magit-refresh-popup-buffer fit-window-to-buffer] 1 (#$ . 42929) nil]) | |
| 577 | #@48 Show help for the argument or action at point. | |
| 578 | (defalias 'magit-popup-help #[0 "\301\302!\303\304\205\n \305\306Q!\211GSH\307\310 \311#\206 \307\312 \"\211\313=\203\202 \314\315\"\211\203y \316\317\320!>\204? \321\322\323D\"\210\324H\"\203r \320!>\204U \321\322\323D\"\210\211\325H\203r \326\320!>\204k \321\322\323D\"\210\325H!\202} \327\"\202} \330\331\"\262\2028\211\332=\203\344 \314\333\"\211\203\333 \316\317\320!>\204\241 \321\322\323D\"\210\324H\"\203\324 \320!>\204\267 \321\322\323D\"\210\211\325H\203\324 \326\320!>\204\315 \321\322\323D\"\210\325H!\202\337 \327\"\202\337 \330\334\"\262\2028\211\335=\203\361 \327\336\"\2028\211\337>\203(\314\340\"\206\314\341\"\262\211\203 \326\320!>\204\321\322\323D\"\210\325H!\2028\342 \210\343\336!\2028\211\2045\342 \210\343\336!\2028\326!\207" [cl-struct-magit-popup-event-tags magit-popup-get :man-page read-key-sequence "Describe key" " (? for manpage)" ": " lookup-key current-local-map t current-global-map magit-invoke-popup-switch magit-popup-lookup :switches string-prefix-p "++" type-of signal wrong-type-argument magit-popup-event 3 4 magit-popup-describe-function magit-popup-manpage user-error "%c isn't bound to any switch" magit-invoke-popup-option :options "%c isn't bound to any option" magit-popup-help nil (magit-invoke-popup-action self-insert-command) :actions :variables ding message] 11 (#$ . 43291) nil]) | |
| 579 | #@18 | |
| 580 | ||
| 581 | (fn TOPIC ARG) | |
| 582 | (defalias 'magit-popup-manpage #[514 "\204 \306\307\310\311!\"\210\211\203N \312!>\204 \313\314\315D\"\210\211\316H\262\317\320\"\203N \211\321\230\2034 \322\202L \317\323\"\203E \320\324\325\326OQ\202L \320\327\330\326OQ\262\331 \326 \332\267\202\226 \333 \210\334 \210\326\211\211 \335!+\210p\262\202\226 \336\337K\340\341\342\343\344!\345\"\330$\216\337M\210\346!\262)\266\333 \210\334 \210\347\350 \"\210r\211q\210\351 \210\352\353 !\210\203\357 \354\355!\203\357 \326\356 8\357\360\361\362 \363\"\203\316 \211\341GGZO\266\202\202\320 \262\363\362 \"\203\334 \364\202\335 \365%\326\366#)\266\202\203\357 \367\224b\202\361 eb)\207" [cl-struct-magit-popup-event-tags magit-popup-manpage-package display-buffer-overriding-action display-buffer-function display-buffer-alist magit-popup-previous-winconf user-error "No man page associated with %s" magit-popup-get :man-page type-of signal wrong-type-argument magit-popup-event 3 string-prefix-p "--" "-- " "\\(?:\\[--\\] \\)?<[^[:space:]]+>\\.\\.\\." "--no-" "\\[?no-\\]?" 5 nil "\\(?:\\[no-\\]\\)?" 2 current-window-configuration #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (woman 87 man 110)) delete-other-windows split-window-below woman #[257 "\300\207" [nil] 2 "\n\n(fn _)"] fboundp make-byte-code 0 "\301\300M\207" vconcat vector [fboundp] man set-window-buffer selected-window magit-popup-help-mode fit-window-to-buffer next-window Man-find-section "OPTIONS" "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+" re-search-forward format "^[ ]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$" "=" string-suffix-p "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]" "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?" t 1 case-fold-search] 16 (#$ . 44736)]) | |
| 583 | #@17 | |
| 584 | ||
| 585 | (fn FUNCTION) | |
| 586 | (defalias 'magit-popup-describe-function #[257 "\305 \306 \210\307 \210\310\311!\210\312\313\211\211\314!,\210\315 \210\310\311!\210\211\316 \207" [help-window-select display-buffer-overriding-action display-buffer-function display-buffer-alist magit-popup-previous-winconf current-window-configuration delete-other-windows split-window-below other-window 1 (("" display-buffer-use-some-window)) nil describe-function fit-window-to-buffer magit-popup-help-mode] 6 (#$ . 46539)]) | |
| 587 | #@24 Show the popup manual. | |
| 588 | (defalias 'magit-popup-info #[0 "\301 \302 \210\303 \210\304\305!\210\306 \210\306 \210\307\310 !\207" [magit-popup-previous-winconf current-window-configuration delete-other-windows split-window-below info "(magit-popup.info)Usage" magit-popup-help-mode fit-window-to-buffer next-window] 3 (#$ . 47046) nil]) | |
| 589 | #@111 Non-nil if Magit-Popup-Help mode is enabled. | |
| 590 | Use the command `magit-popup-help-mode' to change this variable. | |
| 591 | (defvar magit-popup-help-mode nil (#$ . 47387)) | |
| 592 | (make-variable-buffer-local 'magit-popup-help-mode) | |
| 593 | #@285 Auxiliary minor mode used to restore previous window configuration. | |
| 594 | When some sort of help buffer is created from within a popup, | |
| 595 | then this minor mode is turned on in that buffer, so that when | |
| 596 | the user quits it, the previous window configuration is also | |
| 597 | restored. | |
| 598 | ||
| 599 | (fn &optional ARG) | |
| 600 | (defalias 'magit-popup-help-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [magit-popup-help-mode current-message toggle prefix-numeric-value 0 run-hooks magit-popup-help-mode-hook magit-popup-help-mode-on-hook magit-popup-help-mode-off-hook called-interactively-p any " in current buffer" message "Magit-Popup-Help mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 47604) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 601 | (defvar magit-popup-help-mode-hook nil) | |
| 602 | (byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [magit-popup-help-mode-hook variable-documentation put "Hook run after entering or leaving `magit-popup-help-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4) | |
| 603 | #@37 Keymap for `magit-popup-help-mode'. | |
| 604 | (defvar magit-popup-help-mode-map (byte-code "\300\301!\203 \211\202 \211<\203 \302!\202 \303\304\"\207" [(([remap Man-quit] . magit-popup-quit) ([remap Info-exit] . magit-popup-quit) ([remap quit-window] . magit-popup-quit)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 48828)) | |
| 605 | (byte-code "\301\302\303\303\211%\207" [magit-popup-help-mode-map add-minor-mode magit-popup-help-mode nil] 6) | |
| 606 | (defvar magit-popup-mode-hook nil) | |
| 607 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-popup-mode-hook variable-documentation put "Hook run after entering MagitPopup mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-popup-mode-map definition-name magit-popup-mode] 4) | |
| 608 | (defvar magit-popup-mode-map (make-sparse-keymap)) | |
| 609 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [magit-popup-mode-abbrev-table magit-popup-mode-map variable-documentation put purecopy "Keymap for `magit-popup-mode'." boundp magit-popup-mode-syntax-table definition-name magit-popup-mode (lambda (#1=#:def-tmp-var) (defvar magit-popup-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-popup-mode'." (lambda (#1#) (defvar magit-popup-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-popup-mode'." derived-mode-parent] 5) | |
| 610 | #@170 Major mode for infix argument popups. | |
| 611 | ||
| 612 | This mode runs the hook `magit-popup-mode-hook', as the final or penultimate step | |
| 613 | during initialization. | |
| 614 | ||
| 615 | \{magit-popup-mode-map} | |
| 616 | (defalias 'magit-popup-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \307\211\306\315!\210\316 \306\317!\210\320 \210)\321\322!\207" [delay-mode-hooks major-mode mode-name magit-popup-mode-map magit-popup-mode-syntax-table magit-popup-mode-abbrev-table make-local-variable t kill-all-local-variables magit-popup-mode "MagitPopup" use-local-map set-syntax-table scroll-margin 0 magit-popup-show-common-commands hack-dir-local-variables-non-file-buffer run-mode-hooks magit-popup-mode-hook local-abbrev-table truncate-lines buffer-read-only] 3 (#$ . 50495) nil]) | |
| 617 | (put 'magit-popup-mode 'mode-class 'special) | |
| 618 | #@16 | |
| 619 | ||
| 620 | (fn VAL DEF) | |
| 621 | (defalias 'magit-popup-default-setup #[514 "\300\301!\211\205 \211 \262\203 \302\303\304\300\305!\"\"\207\306\307\"\310!\203& \211 \262\211\2032 \302\307\311\"\"\210\210\302\312\313\306\312\"\"\"\210\302\314\315\306\314\"\"\"\210\302\303\304\306\303\"\"\"\207" [magit-popup-get :sequence-predicate magit-popup-put :actions magit-popup-convert-actions :sequence-actions plist-get :variables functionp magit-popup-convert-variables :switches magit-popup-convert-switches :options magit-popup-convert-options] 9 (#$ . 51310)]) | |
| 622 | #@19 | |
| 623 | ||
| 624 | (fn POPUP MODE) | |
| 625 | (defalias 'magit-popup-mode-setup #[514 "\305J\306\"JJp\307\310\311\312\"!\206 \313\"\210\211\314\304!\2031 \f\2031 \315\304#\210\202< \316\317!\2068 \320\"\210\266\321 \210\322\323\211\324d!#\207" [magit-current-popup magit-previous-popup magit-this-popup magit-pre-popup-buffer magit-popup-setup-hook plist-get :variable magit-popup-mode-display-buffer get-buffer-create format "*%s*" magit-popup-mode boundp run-hook-with-args magit-popup-get :setup-function magit-popup-default-setup magit-refresh-popup-buffer fit-window-to-buffer nil line-number-at-pos] 10 (#$ . 51870)]) | |
| 626 | #@20 | |
| 627 | ||
| 628 | (fn BUFFER MODE) | |
| 629 | (defalias 'magit-popup-mode-display-buffer #[514 "\302 \303\304\"!\210 \210\211\211\207" [magit-popup-display-buffer-action magit-popup-previous-winconf current-window-configuration select-window display-buffer] 7 (#$ . 52488)]) | |
| 630 | #@233 Hook run by `magit-refresh-popup-buffer'. | |
| 631 | ||
| 632 | The hook is run right after inserting the representation of the | |
| 633 | popup events but before optionally inserting the representation | |
| 634 | of events shared by all popups and before point is adjusted. | |
| 635 | (defvar magit-refresh-popup-buffer-hook nil (#$ . 52747)) | |
| 636 | (defalias 'magit-refresh-popup-buffer #[0 "\303\304`!\211\205 \305\306\"\205 \305\307\"\310 \210\212\311\312!\211\203& \211 \210\2026 \313\314!\210\313\315!\210\313\316!\210\313\317!\210\210\320\321!\210 \203D \322\323\n\"\210)\324\325!\210\211\205| \3261X \327\330!0\202] \210\325\202| \205| \304`!\305\306\"\232?\206t \305\307\"\232?\262\205| \202M )\207" [inhibit-read-only magit-popup-show-common-commands magit-popup-common-commands t button-at button-get prefix event erase-buffer magit-popup-get :refresh-function magit-popup-insert-section magit-popup-variable-button magit-popup-switch-button magit-popup-option-button magit-popup-action-button run-hooks magit-refresh-popup-buffer-hook magit-popup-insert-command-section magit-popup-internal-command-button set-buffer-modified-p nil (error) forward-button 1] 7]) | |
| 637 | #@64 Minimal amount of whitespace between columns in popup buffers. | |
| 638 | (defvar magit-popup-min-padding 3 (#$ . 53877)) | |
| 639 | #@36 | |
| 640 | ||
| 641 | (fn TYPE &optional SPEC HEADING) | |
| 642 | (defalias 'magit-popup-insert-section #[769 "\204\231 \301\302\303\"!\262\205\236@;\204 \304@!\203\224 \211\205u \305@\211C;\206/ \304!\305A\211\203j \211@\211;\206@ \304!\232\203Z \203] \237B\262\305\262\305\262\202] \306\262B\262A\266\203\2022 \237B\262\237\266\206\262\307\205\223 @\310A@#\266\211T\262A\262\202x \207\310\"\207\302\311\"\312\313\314\315\316\317 \"\320\"\321\322%\206\270 \301\302\303\"!\"\302\323\"\301\324!\205\234\304!\203\332 \211\262\203\367 \325\261\210\202\367 \204\345 \302\326\"\262\327\330\331#c\210\332\333\"\204\367 \334c\210\211\203\211 \203\305\262\202 \335!\203\301!\262\202 9\203 J\262\304!\203(!\262\205\234\336\337\312\340\"\"\\\211\203\214\211@n\204pi\246Z\341i#\342 W\203l\343i\344_\245!\206_\345W\203l\346\347\"c\210\202o\334c\210\210\211\350\232\204\205\211\203\202\336\351\"\210\202\205\347c\210A\266\202\2027\266`Sf\325U\203\232\334\202\233\352c\266\204\207" [magit-popup-min-padding magit-popup-get button-type-get property functionp nil t 0 magit-popup-insert-section formatter mapcar make-byte-code 257 "\211\205\f \301\300\"\206\f \302\207" vconcat vector [(#1="")] 4 "\n\n(fn EV)" maxcols :sequence-predicate 10 heading propertize face magit-popup-heading string-match "\n$" "\n" keywordp apply max #[257 "\211@G\207" [] 2 "\n\n(fn E)"] + window-width ceiling 1.0 1000 make-string 32 (#1#) insert-button "\n\n"] 15 (#$ . 53994)]) | |
| 643 | #@16 | |
| 644 | ||
| 645 | (fn TYPE EV) | |
| 646 | (defalias 'magit-popup-format-argument-button #[514 "\301\302\303\"\304\305\302\306\"\211\205 \307!\262\310!P\311\312#B\313\314!>\204/ \315\316\317D\"\210\320HB\321\305\314!>\204F \315\316\317 D\"\210\322H\311\314 !>\204\\ \315\316\317 D\"\210\323H\203g \324\202h \325#B\326\314!>\204| \315\316\317 D\"\210\327H\314!>\204\221 \315\316\317\nD\"\210\323H\203\251 \211\330\232\204\251 \305\303\331\"\311\332#\202\252 \330\262BF\"\333\334\314!>\204\302 \315\316\317D\"\210\335H\257\207" [cl-struct-magit-popup-event-tags format-spec button-type-get format 107 propertize prefix char-to-string magit-popup-event-keydsc face magit-popup-key 100 type-of signal wrong-type-argument magit-popup-event 2 97 3 5 magit-popup-argument magit-popup-disabled-argument 118 6 "" "\"%s\"" magit-popup-option-value type event 1] 14 (#$ . 55535)]) | |
| 647 | #@16 | |
| 648 | ||
| 649 | (fn TYPE EV) | |
| 650 | (defalias 'magit-popup-format-variable-button #[514 "\301!>\204 \302\303\304D\"\210\211\305H\204 \306\307\"\207\310\311\312\"\313\314\315!\316\317#B\320\301!>\2049 \302\303\304D\"\210\305H BD\"\321\322\301!>\204S \302\303\304D\"\210\323H\257\207" [cl-struct-magit-popup-event-tags type-of signal wrong-type-argument magit-popup-event 3 magit-popup-format-action-button magit-popup-action-button format-spec button-type-get format 107 propertize magit-popup-event-keydsc face magit-popup-key 100 type event 1] 10 (#$ . 56428)]) | |
| 651 | #@16 | |
| 652 | ||
| 653 | (fn TYPE EV) | |
| 654 | (defalias 'magit-popup-format-action-button #[514 "\302!>\204 \303\304\305D\"\210\211\306H\302!>\204! \303\304\305D\"\210\307H\310!\205+ \211 \2057 9\2057 \311N?\205\251 \211\203[ \211 \211\205W \312\313G\314\315%\203T \211\202W \316!\262\262\205\251 \317\320\321\"\322\323\324!\314\325#B\326B\327\204\211 \330\331!=\203\211 \323\314\332#\202\213 BE\"\333\334\302!>\204\243 \303\304\305\nD\"\210\335H\257\207" [cl-struct-magit-popup-event-tags disabled-command-function type-of signal wrong-type-argument magit-popup-event 4 2 functionp disabled text-property-not-all 0 face nil magit-branch-set-face format-spec button-type-get format 107 propertize magit-popup-event-keydsc magit-popup-key 100 68 magit-popup-get :default-action bold type event 1] 14 (#$ . 56996)]) | |
| 655 | #@18 | |
| 656 | ||
| 657 | (fn TYPE SPEC) | |
| 658 | (defalias 'magit-popup-insert-command-section #[514 "\300\301\302\"\"\207" [magit-popup-insert-section mapcar #[257 "\300A@\301 \"@@D\207" [where-is-internal current-local-map] 4 "\n\n(fn ELT)"]] 7 (#$ . 57823)]) | |
| 659 | #@17 | |
| 660 | ||
| 661 | (fn TYPE ELT) | |
| 662 | (defalias 'magit-popup-format-command-button #[514 "\300\301\302@A@\303\211\211\211&\"\304\305\306 @\"D\244\207" [magit-popup-format-action-button record magit-popup-event nil function lookup-key current-local-map] 12 (#$ . 58063)]) | |
| 663 | #@19 | |
| 664 | ||
| 665 | (fn ARGS FILES) | |
| 666 | (defalias 'magit-popup-import-file-args #[514 "\211\203 \300\301\302\303#PB\207\207" ["-- " mapconcat identity ","] 7 (#$ . 58323)]) | |
| 667 | #@13 | |
| 668 | ||
| 669 | (fn ARGS) | |
| 670 | (defalias 'magit-popup-export-file-args #[257 "\300\301\302\203. \203. @\203 \300\262\202\" \303\304\"\203\" \211\262\210\211T\262A\262\202 \266\211\262\211\203F \305\"\262\306\307\300O\310\"\262D\207" [nil t 0 string-prefix-p "-- " remove split-string 3 ","] 9 (#$ . 58484)]) | |
| 671 | (defconst magit-popup-font-lock-keywords '(("(\\(magit-define-popup\\)\\_>[ '(]*\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 'font-lock-keyword-face) (2 'font-lock-function-name-face nil t)))) | |
| 672 | (byte-code "\301\302\"\210\303\304!\207" [magit-popup-font-lock-keywords font-lock-add-keywords emacs-lisp-mode provide magit-popup] 3) | |
