;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!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [require magit-git magit-mode magit-process transient defalias magit--git-variable-p eieio-make-class-predicate magit--git-variable magit--git-variable--eieio-childp eieio-make-child-predicate magit--git-variable-child-p make-obsolete "use (cl-typep ... \\='magit--git-variable) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-variable) ((scope :initarg :scope)) nil] 6) #@76 Create a new object of class type `magit--git-variable'. (fn &rest SLOTS) (defalias 'magit--git-variable #[128 "\300\301\302#\207" [apply make-instance magit--git-variable] 5 (#$ . 694)]) (byte-code "\300\301\302\303#\300\207" [function-put magit--git-variable compiler-macro magit--git-variable--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'magit--git-variable--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1015)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias magit--git-variable:choices-p eieio-make-class-predicate magit--git-variable:choices magit--git-variable:choices--eieio-childp eieio-make-child-predicate magit--git-variable:choices-child-p make-obsolete "use (cl-typep ... \\='magit--git-variable:choices) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (magit--git-variable) ((choices :initarg :choices) (fallback :initarg :fallback :initform nil) (default :initarg :default :initform nil)) nil] 6) #@84 Create a new object of class type `magit--git-variable:choices'. (fn &rest SLOTS) (defalias 'magit--git-variable:choices #[128 "\300\301\302#\207" [apply make-instance magit--git-variable:choices] 5 (#$ . 1885)]) (byte-code "\300\301\302\303#\300\207" [function-put magit--git-variable:choices compiler-macro magit--git-variable:choices--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'magit--git-variable:choices--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 2247)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias magit--git-variable:urls-p eieio-make-class-predicate magit--git-variable:urls magit--git-variable:urls--eieio-childp eieio-make-child-predicate magit--git-variable:urls-child-p make-obsolete "use (cl-typep ... \\='magit--git-variable:urls) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (magit--git-variable) ((seturl-arg :initarg :seturl-arg :initform nil)) nil] 6) #@81 Create a new object of class type `magit--git-variable:urls'. (fn &rest SLOTS) (defalias 'magit--git-variable:urls #[128 "\300\301\302#\207" [apply make-instance magit--git-variable:urls] 5 (#$ . 3044)]) (byte-code "\300\301\302\303#\300\207" [function-put magit--git-variable:urls compiler-macro magit--git-variable:urls--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'magit--git-variable:urls--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3391)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\311\312\313\314%\210\300\310\302\315\302\316%\207" [cl-generic-define-method transient-init-scope nil ((obj magit--git-variable)) #[257 "\301\302\203\303\302\"\202\304\302\"\205\303\302\"!#\207" [transient--prefix eieio-oset scope eieio-oref slot-boundp] 7 "\n\n(fn OBJ)"] transient-init-value ((obj magit--git-variable)) #[257 "\300\301\302\"\301\303\"\"\304\302#\210\304\305\301\306\"\203 \307!\202&\310\311\312##\207" [format eieio-oref variable scope eieio-oset value multi-value magit-get-all magit-git-string "config" "--local"] 9 "\n\n(fn OBJ)"] transient-infix-read (:around) ((obj magit--git-variable:urls)) t #[514 "\300\301!\"\207" [mapcar #[257 "\300\301\"\203 \302!\207\207" [string-prefix-p "~" expand-file-name] 4 "\n\n(fn URL)"]] 6 "\n\n(fn CL--CNM OBJ)"] ((obj magit--git-variable:choices)) #[257 "\300\301\"\302!\203\211 \262\300\303\"\211\203\211\235A@\207@\207" [eieio-oref choices functionp value] 5 "\n\n(fn OBJ)"]] 6) #@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-transient-read-person #[771 "\300\301\302\303\304\305\306\307\310%\"\311\211&\207" [magit-completing-read mapcar #[257 "\212\300\301\"\205\211\302\225\303OC)\207" [string-match "\\`[ ]+[0-9]+ " 0 nil] 4 "\n\n(fn LINE)"] magit-git-lines "shortlog" "-n" "-s" "-e" "HEAD" nil] 13 (#$ . 4691)]) #@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'magit-transient-read-revision #[771 "\300\301\302 B\303\211\304 \206\305 &\206\306\307!\207" [magit-completing-read "HEAD" magit-list-refnames nil magit-branch-or-commit-at-point magit-get-current-branch user-error "Nothing selected"] 11 (#$ . 5051)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\312\302\313\302\314%\210\300\312\302\315\302\316%\210\317\320!\207" [cl-generic-define-method transient-infix-set nil ((obj magit--git-variable) value) #[514 "\301\302\"\303\304#\210\301\305\"\203\306\"\210\202\307\"\210\310 \210\206&?\205.\311\312\"\207" [transient--prefix eieio-oref variable eieio-oset value multi-value magit-set-all magit-set magit-refresh message "Unset %s"] 7 "\n\n(fn OBJ VALUE)"] ((obj magit--git-variable:urls) values) #[514 "\301\302\"\301\303\"\301\304\"\305\302#\210\306\"\211\2031\211@\307\310\311\312&\210A\266\202\202\210\306\"\211\203U\211@\307\310\311\313\314\315!\316Q&\210A\266\202\2026\210\317 \207" [transient--prefix eieio-oref value seturl-arg scope eieio-oset -difference magit-call-git "remote" "set-url" "--add" "--delete" "^" regexp-quote "$" magit-refresh] 16 "\n\n(fn OBJ VALUES)"] transient-format-description ((obj magit--git-variable)) #[257 "\300\301\"\206 \300\302\"\207" [eieio-oref description variable] 4 "\n\n(fn OBJ)"] transient-format-value ((obj magit--git-variable)) #[257 "\300\301\"\211\203+\300\302\"\203!\211A\203\303\304\305#\207\306@\307\310#\207\306\311\312\"@\307\310#\207\306\313\307\314#\207" [eieio-oref value multi-value mapconcat #[257 "\300\301\302\303#P\207" ["\n " propertize face transient-value] 6 "\n\n(fn V)"] "" propertize face transient-value split-string "\n" "unset" transient-inactive-value] 6 "\n\n(fn OBJ)"] ((obj magit--git-variable:choices)) #[257 "\300\301\"\300\302\"C\303\304\305#\303\304\306#\300\307\"\300\310\"\211\205-\311!\211\205+\312Q\262\313\242!\203;\211\242 \240\210\314\315\316\317#\320\321\322  #\203_ \242\235\204_ \242B\202b\242\314\323\316\317##\204t\204t\205\312\314\323\316\317#\203\237\314\324P\316\n\203\215\317\202\233 \f\242\235\203\232\325\202\233\326#\202\311\203\264\314\316\n\203\257\317\202\260\325#\202\311\205\311\314\327P\316\n\203\307\317\202\310\325#P\314\330\316\317#R\207" [eieio-oref variable choices magit-git-string "config" "--local" "--global" default fallback magit-get ":" functionp propertize "[" face transient-inactive-value mapconcat make-closure #[257 "\302\303\301\232\203\300\242\235\203\304\202\305\202\306#\207" [V0 V1 propertize face transient-value font-lock-warning-face transient-inactive-value] 6 "\n\n(fn CHOICE)"] "|" "global:" transient-value font-lock-warning-face "default:" "]"] 16 "\n\n(fn OBJ)"] provide magit-transient] 6)