;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\313\306%\210\317\320\321\322\323DD\324\325\326\313\306\327\330& \210\317\331\321\322\332DD\333\313\306\327\334&\210\317\335\321\322\336DD\337\313\306\327\340&\210\317\341\321\322\342DD\343\325\344\313\306\327\340& \210\317\345\321\322\346DD\347\313\306\327\350&\210\351\352\353\354\313\315%\210\351\355\356\357\313\315%\210\351\360\361\362\313\315%\210\351\363\364\365\313\315%\210\351\366\367\370\313\315%\207" [require button cl-lib dash format-spec custom-declare-group magit-popup nil "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-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) #@901 Keymap for `magit-popup-mode'. \This keymap contains bindings common to all popups. A section listing these commands can be shown or hidden using \[magit-popup-toggle-show-common-commands]. The prefix used to toggle any switch can be changed by binding another key to `magit-invoke-popup-switch'. Likewise binding another key to `magit-invoke-popup-option' changes the prefixed used to set any option. The two prefixes have to be different. If you change these bindings, you should also change the `prefix' property of the button types `magit-popup-switch-button' and `magit-popup-option-button'. If you change any other binding, then you might have to also edit `magit-popup-common-commands' for things to align correctly in the section listing these commands. Never bind an alphabetic character in this keymap or you might make it impossible to invoke certain actions. (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\207\301\337\332#\210\301\340\334#\210\301\327\334#\210\301\333\336#\210\301\341\336#\210\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) (#$ . 3090)) (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))) (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) #@125 The popup which is currently active. This is intended for internal use only. Don't confuse this with `magit-current-popup'. (defvar magit-this-popup nil (#$ . 6522)) (make-variable-buffer-local 'magit-this-popup) #@131 The events known to the active popup. This is intended for internal use only. Don't confuse this with `magit-current-popup-args'. (defvar magit-this-popup-events nil (#$ . 6742)) (make-variable-buffer-local 'magit-this-popup-events) (defvar magit-previous-popup nil nil) (make-variable-buffer-local 'magit-previous-popup) #@63 The buffer that was current before invoking the active popup. (defvar magit-pre-popup-buffer nil (#$ . 7070)) (make-variable-buffer-local 'magit-pre-popup-buffer) #@60 While a popup is active, get the value of PROP. (fn PROP) (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 (#$ . 7239)]) #@71 While a popup is active, set the value of PROP to VAL. (fn PROP VAL) (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 (#$ . 7490)]) #@280 The popup from which this editing command was invoked. Use this inside the `interactive' form of a popup aware command to determine whether it was invoked from a popup and if so from which popup. If the current command was invoked without the use of a popup, then this is nil. (defvar magit-current-popup nil (#$ . 7776)) #@38 The popup action now being executed. (defvar magit-current-popup-action nil (#$ . 8106)) #@830 The value of the popup arguments for this editing command. If the current command was invoked from a popup, then this is a list of strings of all the set switches and options. This includes arguments which are set by default not only those explicitly set during this invocation. When the value is nil, then that can be because no argument is set, or because the current command wasn't invoked from a popup; consult `magit-current-popup' to tell the difference. Generally it is better to use `NAME-arguments', which is created by `magit-define-popup', instead of this variable or the function by the same name, because `NAME-argument' uses the default value for the arguments when the editing command is invoked directly instead of from a popup. When the command is bound in several popups that might not be feasible though. (defvar magit-current-popup-args nil (#$ . 8202)) #@449 Return the value of the popup arguments for this editing command. The value is the same as that of the variable by the same name (which see), except that FILTER is applied. FILTER is a list of regexps; only arguments that match one of them are returned. The first element of FILTER may also be `:not' in which case only arguments that don't match any of the regexps are returned, or `:only' which doesn't change the behaviour. (fn &rest FILTER) (defalias 'magit-current-popup-args #[128 "\211C\302\303\242@\304=\203\305\306\"\202&\242@\307=\203\"\211\242A\240\210\305\310\" \")\207" [-compare-fn magit-current-popup-args #[514 "\300\"\207" [magit-popup-arg-match] 5 "\n\n(fn A B)"] -filter :not make-closure #[257 "\301\300\242A\"?\207" [V0 -contains-p] 4 "\n\n(fn ARG)"] :only #[257 "\301\300\242\"\207" [V0 -contains-p] 4 "\n\n(fn ARG)"]] 6 (#$ . 9088)]) #@114 The buffer that was current before invoking the active popup. This is bound when invoking an action or variable. (defvar magit-current-pre-popup-buffer nil (#$ . 9969)) #@279 Execute the forms in BODY in the buffer that current before the popup. If `magit-current-pre-popup-buffer' is non-nil use that, else if `magit-pre-popup-buffer' is non-nil use that, otherwise (when no popup is involved) execute the forms in the current buffer. (fn &rest BODY) (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 (#$ . 10145)])) (byte-code "\300\301\302\303#\300\207" [function-put magit-with-pre-popup-buffer lisp-indent-function 0] 4) #@23 (fn PATTERN STRING) (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 (#$ . 10733)]) #@76 compiler-macro for inlining `magit-popup-event-p'. (fn CL-WHOLE-ARG CL-X) (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 (#$ . 11016)]) (put 'magit-popup-event-p 'compiler-macro 'magit-popup-event-p--cmacro) #@13 (fn CL-X) (defalias 'magit-popup-event-p #[257 "\301!>\205 \302\207" [cl-struct-magit-popup-event-tags type-of t] 3 (#$ . 11393)]) (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) #@78 compiler-macro for inlining `magit-popup-event-key'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 1))) nil] 9 (#$ . 11696)]) (put 'magit-popup-event-key 'compiler-macro 'magit-popup-event-key--cmacro) #@66 Access slot "key" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 12135)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-key side-effect-free t] 4) #@78 compiler-macro for inlining `magit-popup-event-dsc'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 2))) nil] 9 (#$ . 12500)]) (put 'magit-popup-event-dsc 'compiler-macro 'magit-popup-event-dsc--cmacro) #@66 Access slot "dsc" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 12939)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-dsc side-effect-free t] 4) #@78 compiler-macro for inlining `magit-popup-event-arg'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 3))) nil] 9 (#$ . 13304)]) (put 'magit-popup-event-arg 'compiler-macro 'magit-popup-event-arg--cmacro) #@66 Access slot "arg" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 13743)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-arg side-effect-free t] 4) #@78 compiler-macro for inlining `magit-popup-event-fun'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 4))) nil] 9 (#$ . 14108)]) (put 'magit-popup-event-fun 'compiler-macro 'magit-popup-event-fun--cmacro) #@66 Access slot "fun" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 14547)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-fun side-effect-free t] 4) #@78 compiler-macro for inlining `magit-popup-event-use'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 5))) nil] 9 (#$ . 14912)]) (put 'magit-popup-event-use 'compiler-macro 'magit-popup-event-use--cmacro) #@66 Access slot "use" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 15351)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-popup-event-use side-effect-free t] 4) #@78 compiler-macro for inlining `magit-popup-event-val'. (fn CL-WHOLE-ARG CL-X) (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 (progn (or (magit-popup-event-p cl-x) (signal 'wrong-type-argument (list 'magit-popup-event cl-x))) (aref cl-x 6))) nil] 9 (#$ . 15716)]) (put 'magit-popup-event-val 'compiler-macro 'magit-popup-event-val--cmacro) #@66 Access slot "val" of `magit-popup-event' struct CL-X. (fn CL-X) (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 (#$ . 16155)]) (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) #@109 compiler-macro for inlining `make-magit-popup-event'. (fn CL-WHOLE &cl-quote &key KEY DSC ARG FUN USE VAL) (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 (#$ . 16577)]) (put 'make-magit-popup-event 'compiler-macro 'make-magit-popup-event--cmacro) #@89 Constructor for objects of type `magit-popup-event'. (fn &key KEY DSC ARG FUN USE VAL) (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 (#$ . 17378)]) (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) #@11 (fn EV) (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 (#$ . 18241)]) #@19 (fn EVENT TYPE) (defalias 'magit-popup-lookup #[514 "\301\302\303\304!\"\305\301\211\211\203M\211A\262\242\262\262\211\262\203M\306!>\2040\307\310\311D\"\210\312H\232\203@\301\262\203M\262\262T\262\202 \266\207" [cl-struct-magit-popup-event-tags nil -filter magit-popup-event-p magit-popup-get 0 type-of signal wrong-type-argument magit-popup-event 1] 12 (#$ . 18517)]) (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]) #@17 (fn DEF FORM) (defalias 'magit-popup-convert-events '(macro . #[514 "\300\301\302\303FE\207" [--map if (or (null it) (stringp it) (functionp it)) it] 7 (#$ . 19378)])) (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) #@16 (fn VAL DEF) (defalias 'magit-popup-convert-switches #[514 "\300\301\302\"\"\207" [mapcar make-closure #[257 "\211\203\211;\204\301!\203\207\3028\303\304@A@\305\306\"\205'\3078\300\235\205/\310\311&\207" [V0 functionp 2 record magit-popup-event string-prefix-p "++" 3 t nil] 10 "\n\n(fn IT)"]] 6 (#$ . 19709)]) #@16 (fn VAL DEF) (defalias 'magit-popup-convert-options #[514 "\300\301\302\"\"\207" [mapcar make-closure #[257 "\211\203\211;\204\301!\203\207\3028\303\304\"\305\300\306\305\211\211\203O\211A\262\242\262\262\211\262\203O\307\"\203B\305\262\203O\262\262T\262\202\266\211\262\310\311@A@\312 8\206f\313\205l\314\205v\315\316 \"&\207" [V0 functionp 2 format "^%s\\(.*\\)" nil 0 string-match record magit-popup-event 3 read-from-minibuffer t match-string 1] 14 "\n\n(fn IT)"]] 6 (#$ . 20050)]) #@16 (fn VAL DEF) (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 (#$ . 20597)]) #@16 (fn VAL DEF) (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 (#$ . 20857)]) #@7027 Define a popup command named NAME. NAME should begin with the package prefix and by convention end with `-popup'. That name is used for the actual command as well as for a variable used internally. DOC is used as the doc-string of that command. Also define an option and a function named `SHORTNAME-arguments', where SHORTNAME is NAME with the trailing `-popup' removed. The name of this option and this function can be overwritten using the optional argument OPTION, but that is rarely advisable. As a special case if OPTION is specified but nil, do not define this option and this function at all. The option `SHORTNAME-arguments' holds the default value for the popup arguments. It can be customized from within the popup or using the Custom interface. The function `SHORTNAME-arguments' is a wrapper around the variable `magit-current-popup-args', both of which are intended to be used inside the `interactive' form of commands commonly invoked from the popup `NAME'. When such a command is invoked from that popup, then the function `SHORTNAME-arguments' returns the value of the variable `magit-current-popup-args'; however when the command is invoked directly, then it returns the default value of the variable `SHORTNAME-arguments'. Optional argument GROUP specifies the Custom group into which the option is placed. If omitted, then the option is placed into some group the same way it is done when directly using `defcustom' and omitting the group, except when NAME begins with "magit-", in which case the group `magit-git-arguments' is used. Optional argument MODE is deprecated, instead use the keyword arguments `:setup-function' and/or `:refresh-function'. If MODE is non-nil, then it specifies the mode used by the popup buffer, instead of the default, which is `magit-popup-mode'. The remaining arguments should have the form [KEYWORD VALUE]... The following keywords are meaningful (and by convention are usually specified in that order): `:actions' The actions which can be invoked from the popup. VALUE is a list whose members have the form (KEY DESC COMMAND), see `magit-define-popup-action' for details. Actions are regular Emacs commands, which usually have an `interactive' form setup to consume the values of the popup `:switches' and `:options' when invoked from the corresponding popup, else when invoked as the default action or directly without using the popup, the default value of the variable `SHORTNAME-arguments'. This is usually done by calling the function `SHORTNAME-arguments'. Members of VALUE may also be strings and functions, assuming the first member is a string or function. In that case the members are split into sections and these special elements are used as headings. If such an element is a function then it is called with no arguments and must return either a string, which is used as the heading, or nil, in which case the section is not inserted. Members of VALUE may also be nil. This should only be used together with `:max-action-columns' and allows having gaps in the action grid, which can help arranging actions sensibly. `:default-action' The default action of the popup which is used directly instead of displaying the popup buffer, when the popup is invoked with a prefix argument. Also see `magit-popup-use-prefix-argument' and `:use-prefix', which can be used to inverse the meaning of the prefix argument. `:use-prefix' Controls when to display the popup buffer and when to invoke the default action (if any) directly. This overrides the global default set using `magit-popup-use-prefix-argument'. The value, if specified, should be one of `default' or `popup', or a function that is called with no arguments and returns one of these symbols. `:max-action-columns' The maximum number of actions to display on a single line, a number or a function that returns a number and takes the name of the section currently being inserted as argument. If there isn't enough room to display as many columns as specified here, then fewer are used. `:switches' The popup arguments which can be toggled on and off. VALUE is a list whose members have the form (KEY DESC SWITCH), see `magit-define-popup-switch' for details. Members of VALUE may also be strings and functions, assuming the first member is a string or function. In that case the members are split into sections and these special elements are used as headings. If such an element is a function then it is called with no arguments and must return either a string, which is used as the heading, or nil, in which case the section is not inserted. `:options' The popup arguments which take a value, as in "--opt=OPTVAL". VALUE is a list whose members have the form (KEY DESC OPTION READER), see `magit-define-popup-option' for details. Members of VALUE may also be strings and functions, assuming the first member is a string or function. In that case the members are split into sections and these special elements are used as headings. If such an element is a function then it is called with no arguments and must return either a string, which is used as the heading, or nil, in which case the section is not inserted. `:default-arguments' The default arguments, a list of switches (which are then enabled by default) and options with there default values, as in "--OPT=OPTVAL". `:variables' Variables which can be set from the popup. VALUE is a list whose members have the form (KEY DESC COMMAND FORMATTER), see `magit-define-popup-variable' for details. Members of VALUE may also be strings and functions, assuming the first member is a string or function. In that case the members are split into sections and these special elements are used as headings. If such an element is a function then it is called with no arguments and must return either a string, which is used as the heading, or nil, in which case the section is not inserted. Members of VALUE may also be actions as described above for `:actions'. VALUE may also be a function that returns a list as describe above. `:sequence-predicate' When this function returns non-nil, then the popup uses `:sequence-actions' instead of `:actions', and does not show the `:switches' and `:options'. `:sequence-actions' The actions which can be invoked from the popup, when `:sequence-predicate' returns non-nil. `:setup-function' When this function is specified, then it is used instead of `magit-popup-default-setup'. `:refresh-function' When this function is specified, then it is used instead of calling `magit-popup-insert-section' three times with symbols `magit-popup-switch-button', `magit-popup-option-button', and finally `magit-popup-action-button' as argument. `:man-page' The name of the manpage to be displayed when the user requests help for a switch or argument. (fn NAME DOC [GROUP [MODE [OPTION]]] :KEYWORD VALUE...) (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 (#$ . 21113)])) (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) #@915 In POPUP, define KEY as SWITCH. POPUP is a popup command defined using `magit-define-popup'. SWITCH is a string representing an argument that takes no value. KEY is a character representing the second event in the sequence of keystrokes used to toggle the argument. (The first event, the prefix, is shared among all switches, defaults to -, and can be changed in `magit-popup-mode-keymap'). DESC is a string describing the purpose of the argument, it is displayed in the popup. If optional ENABLE is non-nil, then the switch is on by default. SWITCH is inserted after all other switches already defined for POPUP, unless optional PREPEND is non-nil, in which case it is placed first. If optional AT is non-nil, then it should be the KEY of another switch already defined for POPUP, the argument is then placed before or after AT, depending on PREPEND. (fn POPUP KEY DESC SWITCH &optional ENABLE AT PREPEND) (defalias 'magit-define-popup-switch #[1796 "\300\301E&\207" [magit-define-popup-key :switches] 14 (#$ . 29175)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-switch lisp-indent-function defun] 4) #@1540 In POPUP, define KEY as OPTION. POPUP is a popup command defined using `magit-define-popup'. OPTION is a string representing an argument that takes a value. KEY is a character representing the second event in the sequence of keystrokes used to set the argument's value. (The first event, the prefix, is shared among all options, defaults to =, and can be changed in `magit-popup-mode-keymap'). DESC is a string describing the purpose of the argument, it is displayed in the popup. If optional VALUE is non-nil then the option is on by default, and VALUE is its default value. READER is used to read a value from the user when the option is invoked and does not currently have a value. (When the option has a value, then invoking the option causes it to be unset.) This function must take two arguments but may choose to ignore them. The first argument is the name of the option (with ": " appended, unless it ends with "=") and can be used as the prompt. The second argument is nil or the value that was in effect before the option was unset, which may be suitable as initial completion input. If no reader is specified, then `read-from-minibuffer' is used. OPTION is inserted after all other options already defined for POPUP, unless optional PREPEND is non-nil, in which case it is placed first. If optional AT is non-nil, then it should be the KEY of another option already defined for POPUP, the argument is then placed before or after AT, depending on PREPEND. (fn POPUP KEY DESC OPTION &optional READER VALUE AT PREPEND) (defalias 'magit-define-popup-option #[2052 "\300\301     F&\207" [magit-define-popup-key :options] 16 (#$ . 30336)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-option lisp-indent-function defun] 4) #@828 In POPUP, define KEY as COMMAND. POPUP is a popup command defined using `magit-define-popup'. COMMAND is a command which calls `magit-popup-set-variable'. FORMATTER is a function which calls `magit-popup-format-variable'. These two functions have to be called with the same arguments. KEY is a character representing the event used interactively call the COMMAND. DESC is the variable or a representation thereof. It's not actually used for anything. COMMAND is inserted after all other commands already defined for POPUP, unless optional PREPEND is non-nil, in which case it is placed first. If optional AT is non-nil, then it should be the KEY of another command already defined for POPUP, the command is then placed before or after AT, depending on PREPEND. (fn POPUP KEY DESC COMMAND FORMATTER &optional AT PREPEND) (defalias 'magit-define-popup-variable #[1797 "\300\301E&\207" [magit-define-popup-key :variables] 14 (#$ . 32122)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-variable lisp-indent-function defun] 4) #@751 In POPUP, define KEY as COMMAND. POPUP is a popup command defined using `magit-define-popup'. COMMAND can be any command but should usually consume the popup arguments in its `interactive' form. KEY is a character representing the event used invoke the action, i.e. to interactively call the COMMAND. DESC is a string describing the purpose of the action, it is displayed in the popup. COMMAND is inserted after all other commands already defined for POPUP, unless optional PREPEND is non-nil, in which case it is placed first. If optional AT is non-nil, then it should be the KEY of another command already defined for POPUP, the command is then placed before or after AT, depending on PREPEND. (fn POPUP KEY DESC COMMAND &optional AT PREPEND) (defalias 'magit-define-popup-action #[1540 "\300\301D&\207" [magit-define-popup-key :actions] 13 (#$ . 33200)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-action lisp-indent-function defun] 4) #@112 Like `magit-define-popup-action' but for `:sequence-action'. (fn POPUP KEY DESC COMMAND &optional AT PREPEND) (defalias 'magit-define-popup-sequence-action #[1540 "\300\301D&\207" [magit-define-popup-key :sequence-actions] 13 (#$ . 34193)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-sequence-action lisp-indent-function defun] 4) (defconst magit-popup-type-plural-alist '((:switch . :switches) (:option . :options) (:variable . :variables) (:action . :actions) (:sequence-action . :sequence-actions))) #@13 (fn TYPE) (defalias 'magit-popup-pluralize-type #[257 "\211\236A\206\211\207" [magit-popup-type-plural-alist] 3 (#$ . 34745)]) #@322 In POPUP, define KEY as an action, switch, or option. It's better to use one of the specialized functions `magit-define-popup-action', `magit-define-popup-sequence-action', `magit-define-popup-switch', `magit-define-popup-option', or `magit-define-popup-variable'. (fn POPUP TYPE KEY DEF &optional AT PREPEND) (defalias 'magit-define-popup-key #[1540 "\300!\262\301>\203\264\302!\203\241J\303\"\304\"\211\203*\211\241\210\2021B\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 (#$ . 34884)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-define-popup-key lisp-indent-function defun] 4) #@14 (fn POPUP) (defalias 'magit-define-popup-keys-deferred #[257 "\211\300N\211\203'\211@\3011\302\303#0\210\202 \304\305\306!\307#\266A\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 (#$ . 36015)]) #@189 In POPUP, bind TO to what FROM was bound to. TYPE is one of `:action', `:sequence-action', `:switch', or `:option'. Bind TO and unbind FROM, both are characters. (fn POPUP TYPE FROM TO) (defalias 'magit-change-popup-key #[1028 "\300\301J\302!\"\"\211\203\211\240\207\303\304\"\207" [assoc plist-get magit-popup-pluralize-type message "magit-change-popup-key: FROM key %c is unbound"] 10 (#$ . 36344)]) #@240 In POPUP, remove KEY's binding of TYPE. POPUP is a popup command defined using `magit-define-popup'. TYPE is one of `:action', `:sequence-action', `:switch', or `:option'. KEY is the character which is to be unbound. (fn POPUP TYPE KEY) (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 (#$ . 36764)]) (defvar magit-popup-previous-winconf nil nil) (make-variable-buffer-local 'magit-popup-previous-winconf) #@23 (fn POPUP MODE ARG) (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|\204|\203o\313D \315\316\"\210\317 *\203j<\203j@\320U?\205i@\320\245C\321!*\207\322\323\n\"\210\324  \"\207\211\325>\203\247\324  \"\210!\205\264\315\"\322\326\327\330\331\332\333#\330\334\332\333#\330\335\332\333#$!)\207\203\260\336\337\"\207\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 message-log-max] 18 (#$ . 37289)]) #@14 (fn EVENT) (defalias 'magit-invoke-popup-switch #[257 "\301\302\"\211\2034\303!>\204\304\305\306D\"\210\211\211\307\303!>\204*\304\305\306D\"\210\307H?I\266\310 \207\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 (#$ . 38443) (list last-command-event)]) #@14 (fn EVENT) (defalias 'magit-invoke-popup-option #[257 "\302\303\"\211\203\261\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 \207\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 (#$ . 38878) (list last-command-event)]) #@14 (fn EVENT) (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\203n \317 \f\311\206<!>\204M\312\313\314\206JD\"\210\206R\211\320H\211\203^\321 \210\211\322!\210?\205l\323 ,\207\324=\203\202\321 \210\205\206\325\316\"\207\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 (#$ . 39678) (list last-command-event)]) #@60 Quit the current popup command without invoking an action. (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 (#$ . 40564) nil]) #@88 Like `read-number' but DEFAULT may be a numeric string. (fn PROMPT &optional DEFAULT) (defalias 'magit-popup-read-number #[513 "\300;\203 \301!\202\"\207" [read-number string-to-number] 6 (#$ . 40907)]) #@298 Set default value for the arguments for the current popup. Then close the popup without invoking an action; unless a prefix argument is used in which case the popup remains open. For a popup named `NAME-popup' that usually means setting the value of the custom option `NAME-arguments'. (fn ARG) (defalias 'magit-popup-set-default-arguments #[257 "\300\301!\211\203\302\303 \"\210?\205\304 \207\305\306!\207" [magit-popup-get :variable customize-set-variable magit-popup-get-args magit-popup-quit user-error "Nothing to set"] 5 (#$ . 41125) "P"]) #@298 Save default value for the arguments for the current popup. Then close the popup without invoking an action; unless a prefix argument is used in which case the popup remains open. For a popup named `NAME-popup' that usually means saving the value of the custom option `NAME-arguments'. (fn ARG) (defalias 'magit-popup-save-default-arguments #[257 "\300\301!\211\203\302\303 \"\210?\205\304 \207\305\306!\207" [magit-popup-get :variable customize-save-variable magit-popup-get-args magit-popup-quit user-error "Nothing to save"] 5 (#$ . 41686) "P"]) #@174 Show or hide an additional section with common commands. The commands listed in this section are common to all popups and are defined in `magit-popup-mode-map' (which see). (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 (#$ . 42250) nil]) #@48 Show help for the argument or action at point. (defalias 'magit-popup-help #[0 "\301\302!\303\304\205\n\305\306Q!\211GSH\307\310 \311#\206 \307\312 \"\211\313\267\202\314\315\"\211\203u\316\317\320!>\204?\321\322\323D\"\210\324H\"\203p\320!>\204U\321\322\323D\"\210\211\325H\203p\326\320!>\204k\321\322\323D\"\210\325H!\207\327\"\207\330\331\"\207\314\332\"\211\203\311\316\317\320!>\204\223\321\322\323D\"\210\324H\"\203\304\320!>\204\251\321\322\323D\"\210\211\325H\203\304\326\320!>\204\277\321\322\323D\"\210\325H!\207\327\"\207\330\333\"\207\327\334\"\207\314\335\"\206\336\314\336\"\262\211\203\371\326\320!>\204\364\321\322\323D\"\210\325H!\207\337 \210\340\334!\207\211\204 \337 \210\340\334!\207\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 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-invoke-popup-switch 38 magit-invoke-popup-option 122 magit-popup-help 206 magit-invoke-popup-action 211 self-insert-command 211)) 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" :options "%c isn't bound to any option" nil :actions :variables ding message] 11 (#$ . 42612) nil]) #@18 (fn TOPIC ARG) (defalias 'magit-popup-manpage #[514 "\204 \306\307\310\311!\"\210\211\203L\312!>\204\313\314\315D\"\210\211\316H\262\317\320\"\203L\211\321\230\2034\322\202J\317\323\"\203D\324\325\326OP\202J\327\330\326OP\262\331 \326 \332\267\202\215\333 \210\334 \210\326\211\211\335!+\210p\262\202\215\336\337K\340\341\"\216\337M\210\342!\262)\266\333 \210\334 \210\343\344 \"\210r\211q\210\345 \210\346\347 !\210\203\341\350\351!\203\341\3265\352\353\354\355\356\357\"\203\303\211\360GGZO\266\202\202\305\262\357\356 \"\203\321\361\202\322\362\355%\326\363#)\203\341\364\224b\202\343eb)\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 85 man 108)) delete-other-windows split-window-below woman #[257 "\300\207" [nil] 2 "\n\n(fn _)"] fboundp make-closure #[0 "\301\300M\207" [V0 fboundp] 2] man set-window-buffer selected-window magit-popup-help-mode fit-window-to-buffer next-window Man-find-section "OPTIONS" re-search-forward format "^[ ]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$" "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+" "=" string-suffix-p 0 "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]" "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?" t 1 case-fold-search] 14 (#$ . 44084)]) #@17 (fn FUNCTION) (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 (#$ . 45846)]) #@24 Show the popup manual. (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 (#$ . 46353) nil]) #@111 Non-nil if Magit-Popup-Help mode is enabled. Use the command `magit-popup-help-mode' to change this variable. (defvar magit-popup-help-mode nil (#$ . 46694)) (make-variable-buffer-local 'magit-popup-help-mode) #@831 Auxiliary minor mode used to restore previous window configuration. When some sort of help buffer is created from within a popup, then this minor mode is turned on in that buffer, so that when the user quits it, the previous window configuration is also restored. This is a minor mode. If called interactively, toggle the `Magit-Popup-Help mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `magit-popup-help-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'magit-popup-help-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [magit-popup-help-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks magit-popup-help-mode-hook magit-popup-help-mode-on-hook magit-popup-help-mode-off-hook called-interactively-p any message "Magit-Popup-Help mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 46911) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-popup-help-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\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.)" custom-type hook standard-value nil] 4) #@37 Keymap for `magit-popup-help-mode'. (defvar magit-popup-help-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\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) (#$ . 48866)) (byte-code "\301\302\303\303\211%\207" [magit-popup-help-mode-map add-minor-mode magit-popup-help-mode nil] 6) (defvar magit-popup-mode-hook nil) (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) (defvar magit-popup-mode-map (make-sparse-keymap)) (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 (def-tmp-var) (defvar magit-popup-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-popup-mode'." (lambda (def-tmp-var) (defvar magit-popup-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `magit-popup-mode'." derived-mode-parent] 5) #@170 Major mode for infix argument popups. This mode runs the hook `magit-popup-mode-hook', as the final or penultimate step during initialization. \{magit-popup-mode-map} (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 (#$ . 50544) nil]) (put 'magit-popup-mode 'mode-class 'special) #@16 (fn VAL DEF) (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 (#$ . 51359)]) #@19 (fn POPUP MODE) (defalias 'magit-popup-mode-setup #[514 "\305J\306\"JJp\307\310\311\312\"!\206\313\"\210\211\314\304!\2032\f\2032\315\304#\266\202>\316\317!\2069\320\"\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 (#$ . 51919)]) #@20 (fn BUFFER MODE) (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 (#$ . 52534)]) #@233 Hook run by `magit-refresh-popup-buffer'. The hook is run right after inserting the representation of the popup events but before optionally inserting the representation of events shared by all popups and before point is adjusted. (defvar magit-refresh-popup-buffer-hook nil (#$ . 52793)) (defalias 'magit-refresh-popup-buffer #[0 "\303\304`!\211\205 \305\306\"\205\305\307\"\310 \210\212\311\312!\211\203'\211 \266\2028\313\314!\210\313\315!\210\313\316!\210\313\317!\266\320\321!\210 \203E\322\323\n\"\210)\324\325!\210\211\205}\3261Y\327\330!0\202^\210\325\202}\205}\304`!\305\306\"\232?\206u\305\307\"\232?\262\205}\202N)\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]) #@64 Minimal amount of whitespace between columns in popup buffers. (defvar magit-popup-min-padding 3 (#$ . 53921)) #@36 (fn TYPE &optional SPEC HEADING) (defalias 'magit-popup-insert-section #[769 "\204\237\301\302\303\"!\262\205\233@;\204\304@!\203\232\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\305\211\205\231\211A\262\242\262\262T\262\310A@#\210\202z\207\310\"\207\302\311\"\312\313\314#\206\265\301\302\303\"!\"\302\315\"\301\316!\205\231\304!\203\327 \211\262\203\364\317\261\210\202\364\204\342\302\320\"\262\321\322\323#c\210\324\325\"\204\364\326c\210\211\203\211 \203\305\262\202\327!\203\301!\262\2029\203J\262\304!\203%!\262\205\231\330\331\312\332\"\"\\\211\203\211\211@n\204mi\246Zi\\\\\333 W\203i\334i\335_\245!\206[\336W\203i\337\340\"c\266\202m\326c\266\211\341\232\204\202\211\203\330\342\"\210\202\202\340c\210A\266\202\2024\266`Sf\317U\203\227\326\202\230\343c\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-closure #[257 "\211\205\f\301\300\"\206\f\302\207" [V0 V1 (#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 (#$ . 54038)]) #@16 (fn TYPE EV) (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 (#$ . 55554)]) #@16 (fn TYPE EV) (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 (#$ . 56447)]) #@16 (fn TYPE EV) (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 \20579\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\213BE\"\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 (#$ . 57015)]) #@18 (fn TYPE SPEC) (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 (#$ . 57842)]) #@17 (fn TYPE ELT) (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 (#$ . 58082)]) #@19 (fn ARGS FILES) (defalias 'magit-popup-import-file-args #[514 "\211\203\300\301\302\303#PB\207\207" ["-- " mapconcat identity ","] 7 (#$ . 58342)]) #@13 (fn ARGS) (defalias 'magit-popup-export-file-args #[257 "\300\301\300\211\211\2037\211A\262\242\262\262\211\262\2037\302\303\"\203*\300\262\2037\262\262T\262\202\266\211\262\211\203O\304\"\262\305\306\300O\307\"\262D\207" [nil 0 string-prefix-p "-- " remove split-string 3 ","] 10 (#$ . 58503)]) (defconst magit-popup-font-lock-keywords '(("(\\(magit-define-popup\\)\\_>[ '(]*\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 'font-lock-keyword-face) (2 'font-lock-function-name-face nil t)))) (byte-code "\301\302\"\210\303\304!\207" [magit-popup-font-lock-keywords font-lock-add-keywords emacs-lisp-mode provide magit-popup] 3)