.emacs.d.git - Gitblit

Chizi123

2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957

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\321DBBBE\326\321DD\205\262\327\330 \331BB\332\333\205\217\334\fD\335\"BBBB\315\336\337\340\341\321DE\342FF\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\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 (#$ . 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\206JD\"\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\3568\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\361eb)\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\2029\203J\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\317D\"\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 \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 (#$ . 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)