;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cl-lib eieio edmacro format-spec seq] 2)#@19 (fn &rest BODY) (defalias 'transient--with-emergency-exit '(macro . #[128 "\300\301\302\303\304!E\305BBB\207" [condition-case err let ((debugger #'transient--exit-and-debug)) macroexp-progn (((debug error) (transient--emergency-exit) (signal (car err) (cdr err))))] 7 (#$ . 212)])) (byte-code "\300\301\302\303#\300\207" [function-put transient--with-emergency-exit lisp-indent-function defun] 4)#@19 (fn &rest ARGS) (defalias 'transient--exit-and-debug #[128 "\300 \210\301\302\"\207" [transient--emergency-exit apply debug] 4 (#$ . 617)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301\316\317& \210\306\320\310\311\321DD\322\314\323\304\301\316\324& \210\306\325\310\311\326DD\327\314\330\304\301\316\331& \210\306\332\310\311\333DD\334\314\335\304\301\316\336& \210\306\337\310\311\340DD\341\314\342\304\301\316\324& \210\306\343\310\311\344DD\345\314\346\304\301\316\324& \210\306\347\310\311\350DD\351\314\352\304\301\316\324& \210\306\353\310\311\354DD\355\314\356\304\301\316\324& \210\306\357\310\311\360DD\361\314\362\304\301\316\363& \210\306\364\310\311\365DD\366\314\367\304\301\316\324& \210\306\370\310\311\371DD\372\314\373\304\301\316\324& \210\306\374\310\311\375DD\376\314\377\304\301\316\324& \210\306\201@\310\311\201ADD\201B\314\201C\304\301\316\324& \210\306\201D\310\311\201EDD\201F\314\201G\304\301\316\324& \210\306\201H\310\311\201IDD\201J\314\201K\304\301\316\324& \207" [custom-declare-group transient nil "Transient commands." :group extensions custom-declare-variable transient-show-popup funcall function #[0 "\300\207" [t] 1 #1=""] "Whether to show the current transient in a popup buffer.\n\\\n- If t, then show the popup as soon as a transient prefix command\n is invoked.\n\n- If nil, then do not show the popup unless the user explicitly\n requests it, by pressing \\[transient-show] or a prefix key.\n\n- If a number, then delay displaying the popup and instead show\n a brief one-line summary. If zero or negative, then suppress\n even showing that summary and display the pressed key only.\n\n Show the popup when the user explicitly requests it by pressing\n \\[transient-show] or a prefix key. Unless zero, then also show the popup\n after that many seconds of inactivity (using the absolute value)." :package-version (transient . "0.1.0") :type (choice (const :tag "instantly" t) (const :tag "on demand" nil) (const :tag "on demand (no summary)" 0) (number :tag "after delay" 1)) transient-enable-popup-navigation #[0 "\300\207" [t] 1 #1#] "Whether navigation commands are enabled in the transient popup.\n\nWhile a transient is active the transient popup buffer is not the\ncurrent buffer, making it necessary to use dedicated commands to\nact on that buffer itself. If this is non-nil, then the following\nbindings are available:\n\n\\- \\[transient-backward-button] moves the cursor to the previous suffix.\n- \\[transient-forward-button] moves the cursor to the next suffix.\n- \\[transient-push-button] invokes the suffix the cursor is on.\n\\- \\`' and \\`' invoke the clicked on suffix.\n\\- \\[transient-isearch-backward] and \\[transient-isearch-forward] start isearch in the popup buffer.\n\n\\`' and \\`' are bound in `transient-push-button'.\nAll other bindings are in `transient-popup-navigation-map'.\n\nBy default \\`M-RET' is bound to `transient-push-button', instead of\n\\`RET', because if a transient allows the invocation of non-suffixes\nthen it is likely that you would want \\`RET' to do what it would do\nif no transient were active." (transient . "0.4.0") boolean transient-display-buffer-action #[0 "\300\207" [(display-buffer-in-side-window (side . bottom) (dedicated . t) (inhibit-same-window . t) (window-parameters (no-other-window . t)))] 1 #1#] "The action used to display the transient popup buffer.\n\nThe transient popup buffer is displayed in a window using\n\n (display-buffer BUFFER transient-display-buffer-action)\n\nThe value of this option has the form (FUNCTION . ALIST),\nwhere FUNCTION is a function or a list of functions. Each such\nfunction should accept two arguments: a buffer to display and an\nalist of the same form as ALIST. See info node `(elisp)Choosing\nWindow' for details.\n\nThe default is:\n\n (display-buffer-in-side-window\n (side . bottom)\n (dedicated . t)\n (inhibit-same-window . t)\n (window-parameters (no-other-window . t)))\n\nThis displays the window at the bottom of the selected frame.\nAnother useful FUNCTION is `display-buffer-below-selected', which\nis what `magit-popup' used by default. For more alternatives see\ninfo node `(elisp)Display Action Functions' and info node\n`(elisp)Buffer Display Action Alists'.\n\nNote that the buffer that was current before the transient buffer\nis shown should remain the current buffer. Many suffix commands\nact on the thing at point, if appropriate, and if the transient\nbuffer became the current buffer, then that would change what is\nat point. To that effect `inhibit-same-window' ensures that the\nselected window is not used to show the transient buffer.\n\nIt may be possible to display the window in another frame, but\nwhether that works in practice depends on the window-manager.\nIf the window manager selects the new window (Emacs frame),\nthen that unfortunately changes which buffer is current.\n\nIf you change the value of this option, then you might also\nwant to change the value of `transient-mode-line-format'." (transient . "0.3.0") (cons (choice function (repeat :tag "Functions" function)) alist) transient-mode-line-format #[0 "\300\207" [line] 1 #1#] "The mode-line format for the transient popup buffer.\n\nIf nil, then the buffer has no mode-line. If the buffer is not\ndisplayed right above the echo area, then this probably is not\na good value.\n\nIf `line' (the default), then the buffer also has no mode-line,\nbut a thin line is drawn instead, using the background color of\nthe face `transient-separator'. Termcap frames cannot display\nthin lines and therefore fallback to treating `line' like nil.\n\nOtherwise this can be any mode-line format.\nSee `mode-line-format' for details." (transient . "0.2.0") (choice (const :tag "hide mode-line" nil) (const :tag "substitute thin line" line) (const :tag "name of prefix command" ("%e" mode-line-front-space mode-line-buffer-identification)) (sexp :tag "custom mode-line format")) transient-show-common-commands #[0 "\300\207" [nil] 1 #1#] "Whether to show common transient suffixes in the popup buffer.\n\nThese commands are always shown after typing the prefix key\n\"C-x\" when a transient command is active. To toggle the value\nof this variable use \"C-x t\" when a transient is active." (transient . "0.1.0") transient-read-with-initial-input #[0 "\300\207" [nil] 1 #1#] "Whether to use the last history element as initial minibuffer input." (transient . "0.2.0") transient-highlight-mismatched-keys #[0 "\300\207" [nil] 1 #1#] "Whether to highlight keys that do not match their argument.\n\nThis only affects infix arguments that represent command-line\narguments. When this option is non-nil, then the key binding\nfor infix argument are highlighted when only a long argument\n(e.g. \"--verbose\") is specified but no shor-thand (e.g \"-v\").\nIn the rare case that a short-hand is specified but does not\nmatch the key binding, then it is highlighted differently.\n\nThe highlighting is done using `transient-mismatched-key'\nand `transient-nonstandard-key'." (transient . "0.1.0") transient-highlight-higher-levels #[0 "\300\207" [nil] 1 #1#] "Whether to highlight suffixes on higher levels.\n\nThis is primarily intended for package authors.\n\nWhen non-nil then highlight the description of suffixes whose\nlevel is above 4, the default of `transient-default-level'.\nAssuming you have set that variable to 7, this highlights all\nsuffixes that won't be available to users without them making\nthe same customization." (transient . "0.3.6") transient-substitute-key-function #[0 "\300\207" [nil] 1 #1#] "Function used to modify key bindings.\n\nThis function is called with one argument, the prefix object,\nand must return a key binding description, either the existing\nkey description it finds in the `key' slot, or a substitution.\n\nThis is intended to let users replace certain prefix keys. It\ncould also be used to make other substitutions, but that is\ndiscouraged.\n\nFor example, \"=\" is hard to reach using my custom keyboard\nlayout, so I substitute \"(\" for that, which is easy to reach\nusing a layout optimized for Lisp.\n\n (setq transient-substitute-key-function\n (lambda (obj)\n (let ((key (oref obj key)))\n (if (string-match \"\\\\`\\\\(=\\\\)[a-zA-Z]\" key)\n (replace-match \"(\" t t key 1)\n key)))))" (transient . "0.1.0") (choice (const :tag "Transform no keys (nil)" nil) function) transient-semantic-coloring #[0 "\300\207" [nil] 1 #1#] "Whether to color prefixes and suffixes in Hydra-like fashion.\nThis feature is experimental.\n\nIf non-nil, then the key binding of each suffix is colorized to\nindicate whether it exits the transient state or not. The color\nof the prefix is indicated using the line that is drawn when the\nvalue of `transient-mode-line-format' is `line'.\n\nFor more information about how Hydra uses colors see\nhttps://github.com/abo-abo/hydra#color and\nhttps://oremacs.com/2015/02/19/hydra-colors-reloaded." (transient . "0.3.0") transient-detect-key-conflicts #[0 "\300\207" [nil] 1 #1#] "Whether to detect key binding conflicts.\n\nConflicts are detected when a transient prefix command is invoked\nand results in an error, which prevents the transient from being\nused." (transient . "0.1.0") transient-align-variable-pitch #[0 "\300\207" [nil] 1 #1#] "Whether to align columns pixel-wise in the popup buffer.\n\nIf this is non-nil, then columns are aligned pixel-wise to\nsupport variable-pitch fonts. Keys are not aligned, so you\nshould use a fixed-pitch font for the `transient-key' face.\nOther key faces inherit from that face unless a theme is\nused that breaks that relationship.\n\nThis option is intended for users who use a variable-pitch\nfont for the `default' face.\n\nAlso see `transient-force-fixed-pitch'." (transient . "0.4.0") transient-force-fixed-pitch #[0 "\300\207" [nil] 1 #1#] "Whether to force use of monospaced font in the popup buffer.\n\nEven if you use a proportional font for the `default' face,\nyou might still want to use a monospaced font in transient's\npopup buffer. Setting this option to t causes `default' to\nbe remapped to `fixed-pitch' in that buffer.\n\nAlso see `transient-align-variable-pitch'." (transient . "0.2.0") transient-force-single-column #[0 "\300\207" [nil] 1 #1#] "Whether to force use of a single column to display suffixes.\n\nThis might be useful for users with low vision who use large\ntext and might otherwise have to scroll in two dimensions." (transient . "0.3.6") transient-hide-during-minibuffer-read #[0 "\300\207" [nil] 1 #1#] "Whether to hide the transient buffer while reading in the minibuffer." (transient . "0.4.0")] 10) (defconst transient--default-child-level 1) (defconst transient--default-prefix-level 4) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \210\300\321\302\303\322DD\323\306\324\310\311\312\320& \210\300\325\302\303\326DD\327\306\330\310\311\312\320& \210\300\331\302\303\332DD\333\306\334\310\311\312\335& \210\300\336\302\303\337DD\340\306\341\310\311\312\342& \210\343\344\345\346\310\311%\207" [custom-declare-variable transient-default-level funcall function #[0 "\207" [transient--default-prefix-level] 1 #1=""] "Control what suffix levels are made available by default.\n\nEach suffix command is placed on a level and each prefix command\nhas a level, which controls which suffix commands are available.\nIntegers between 1 and 7 (inclusive) are valid levels.\n\nThe levels of individual transients and/or their individual\nsuffixes can be changed individually, by invoking the prefix and\nthen pressing \"C-x l\".\n\nThe default level for both transients and their suffixes is 4.\nThis option only controls the default for transients. The default\nsuffix level is always 4. The author of a transient should place\ncertain suffixes on a higher level if they expect that it won't be\nof use to most users, and they should place very important suffixes\non a lower level so that they remain available even if the user\nlowers the transient level.\n\n(Magit currently places nearly all suffixes on level 4 and lower\nlevels are not used at all yet. So for the time being you should\nnot set a lower level here and using a higher level might not\ngive you as many additional suffixes as you hoped.)" :package-version (transient . "0.1.0") :group transient :type (choice (const :tag "1 - fewest suffixes" 1) (const 2) (const 3) (const :tag "4 - default" 4) (const 5) (const 6) (const :tag "7 - most suffixes" 7)) transient-levels-file #[0 "\300\301!\207" [locate-user-emacs-file "transient/levels.el"] 2 #1#] "File used to save levels of transients and their suffixes." (transient . "0.1.0") file transient-values-file #[0 "\300\301!\207" [locate-user-emacs-file "transient/values.el"] 2 #1#] "File used to save values of transients." (transient . "0.1.0") transient-history-file #[0 "\300\301!\207" [locate-user-emacs-file "transient/history.el"] 2 #1#] "File used to save history of transients and their infixes." (transient . "0.1.0") transient-history-limit #[0 "\300\207" [10] 1 #1#] "Number of history elements to keep when saving to file." (transient . "0.1.0") integer transient-save-history #[0 "\300\207" [t] 1 #1#] "Whether to save history of transient commands when exiting Emacs." (transient . "0.1.0") boolean custom-declare-group transient-faces nil "Faces used by Transient."] 10) (custom-declare-face 'transient-heading '((t :inherit font-lock-keyword-face)) "Face used for headings." :group 'transient-faces) (custom-declare-face 'transient-key '((t :inherit font-lock-builtin-face)) "Face used for keys." :group 'transient-faces) (custom-declare-face 'transient-argument '((t :inherit font-lock-warning-face)) "Face used for enabled arguments." :group 'transient-faces) (custom-declare-face 'transient-value '((t :inherit font-lock-string-face)) "Face used for values." :group 'transient-faces) (custom-declare-face 'transient-inactive-argument '((t :inherit shadow)) "Face used for inactive arguments." :group 'transient-faces) (custom-declare-face 'transient-inactive-value '((t :inherit shadow)) "Face used for inactive values." :group 'transient-faces) (custom-declare-face 'transient-unreachable '((t :inherit shadow)) "Face used for suffixes unreachable from the current prefix sequence." :group 'transient-faces) (custom-declare-face 'transient-active-infix '((t :inherit secondary-selection)) "Face used for the infix for which the value is being read." :group 'transient-faces) (custom-declare-face 'transient-unreachable-key '((t :inherit (transient-key shadow))) "Face used for keys unreachable from the current prefix sequence." :group 'transient-faces) (custom-declare-face 'transient-nonstandard-key '((t :underline t)) "Face optionally used to highlight keys conflicting with short-argument.\nAlso see option `transient-highlight-mismatched-keys'." :group 'transient-faces) (custom-declare-face 'transient-mismatched-key '((t :underline t)) "Face optionally used to highlight keys without a short-argument.\nAlso see option `transient-highlight-mismatched-keys'." :group 'transient-faces) (custom-declare-face 'transient-inapt-suffix '((t :inherit shadow :italic t)) "Face used for suffixes that are inapt at this time." :group 'transient-faces) (custom-declare-face 'transient-enabled-suffix '((t :background "green" :foreground "black" :weight bold)) "Face used for enabled levels while editing suffix levels.\nSee info node `(transient)Enabling and Disabling Suffixes'." :group 'transient-faces) (custom-declare-face 'transient-disabled-suffix '((t :background "red" :foreground "black" :weight bold)) "Face used for disabled levels while editing suffix levels.\nSee info node `(transient)Enabling and Disabling Suffixes'." :group 'transient-faces) (custom-declare-face 'transient-higher-level '((t :underline t)) "Face optionally used to highlight suffixes on higher levels.\nAlso see option `transient-highlight-higher-levels'." :group 'transient-faces) (custom-declare-face 'transient-separator (list (cons '((class color) (background light)) (append (and (>= emacs-major-version 27) '(:extend t)) '(:background "grey80"))) (cons '((class color) (background dark)) (append (and (>= emacs-major-version 27) '(:extend t)) '(:background "grey30")))) "Face used to draw line below transient popup window.\nThis is only used if `transient-mode-line-format' is `line'.\nOnly the background color is significant." :group 'transient-faces) (custom-declare-group 'transient-color-faces '((transient-semantic-coloring custom-variable)) "Faces used by Transient for Hydra-like command coloring.\nThese faces are only used if `transient-semantic-coloring'\n(which see) is non-nil." :group 'transient-faces) (custom-declare-face 'transient-red '((t :inherit transient-key :foreground "red")) "Face used for red prefixes and suffixes." :group 'transient-color-faces) (custom-declare-face 'transient-blue '((t :inherit transient-key :foreground "blue")) "Face used for blue prefixes and suffixes." :group 'transient-color-faces) (custom-declare-face 'transient-amaranth '((t :inherit transient-key :foreground "#E52B50")) "Face used for amaranth prefixes." :group 'transient-color-faces) (custom-declare-face 'transient-pink '((t :inherit transient-key :foreground "#FF6EB4")) "Face used for pink prefixes." :group 'transient-color-faces) (custom-declare-face 'transient-teal '((t :inherit transient-key :foreground "#367588")) "Face used for teal prefixes." :group 'transient-color-faces) (custom-declare-face 'transient-purple '((t :inherit transient-key :foreground "#a020f0")) "Face used for purple prefixes.\n\nThis is an addition to the colors supported by Hydra. It is\nused by suffixes that quit the current prefix but return to\nthe previous prefix." :group 'transient-color-faces)#@13 (fn FILE) (defalias 'transient--read-file-contents #[257 "\3001#\301!\205!\302\303\304\"r\211q\210\305\306\"\216\307!\210\310p!*\2620\207\311\312\"\210\313\207" [(debug error) file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read message "Transient error: %S" nil] 5 (#$ . 18709)])#@18 (fn LIST FILE) (defalias 'transient--pp-to-file #[514 "\304\305!\306\"\210\307\310!\311\312\313$\262\314\315\306\"\316\317\"\216r\211q\210\320\211\321\322\323p\"-rq\210\324\320\211\320\325%*\210\207" [fill-column pp-default-function print-length print-level make-directory file-name-directory t cl-sort copy-sequence string< :key car generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil pp-28 999 pp write-region 0] 10 (#$ . 19103)])#@137 Values of transient commands. The value of this variable persists between Emacs sessions and you usually should not change it manually. (defvar transient-values (transient--read-file-contents transient-values-file) (#$ . 19622)) (defalias 'transient-save-values #[0 "\302 \"\207" [transient-values transient-values-file transient--pp-to-file] 3])#@137 Levels of transient commands. The value of this variable persists between Emacs sessions and you usually should not change it manually. (defvar transient-levels (transient--read-file-contents transient-levels-file) (#$ . 19976)) (defalias 'transient-save-levels #[0 "\302 \"\207" [transient-levels transient-levels-file transient--pp-to-file] 3])#@199 History of transient commands and infix arguments. The value of this variable persists between Emacs sessions (unless `transient-save-history' is nil) and you usually should not change it manually. (defvar transient-history (transient--read-file-contents transient-history-file) (#$ . 20330)) (defalias 'transient-save-history #[0 "\302\303\304\"\305\306\307$\310 \"\207" [transient-history transient-history-file cl-sort mapcar #[257 "\211\242\243\301\302!\"B\207" [transient-history-limit seq-take delete-dups] 7 "\n\n(fn ARG0)"] string< :key car transient--pp-to-file] 5])#@93 Save the value of `transient-history'. If `transient-save-history' is nil, then do nothing. (defalias 'transient-maybe-save-history #[0 "\205\300 \207" [transient-save-history] 1 (#$ . 20918)]) (byte-code "\204 \301\302\303\"\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [noninteractive add-hook kill-emacs-hook transient-maybe-save-history defalias transient-prefix-p eieio-make-class-predicate transient-prefix transient-prefix--eieio-childp eieio-make-child-predicate transient-prefix-child-p make-obsolete "use (cl-typep ... 'transient-prefix) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((prototype :initarg :prototype) (command :initarg :command) (level :initarg :level) (variable :initarg :variable :initform nil) (init-value :initarg :init-value) (value) (default-value :initarg :value) (scope :initarg :scope :initform nil) (history :initarg :history :initform nil) (history-pos :initarg :history-pos :initform 0) (history-key :initarg :history-key :initform nil) (show-help :initarg :show-help :initform nil) (info-manual :initarg :info-manual :initform nil) (man-page :initarg :man-page :initform nil) (transient-suffix :initarg :transient-suffix :initform nil) (transient-non-suffix :initarg :transient-non-suffix :initform nil) (incompatible :initarg :incompatible :initform nil) (suffix-description :initarg :suffix-description) (variable-pitch :initarg :variable-pitch :initform nil) (unwind-suffix :documentation "Internal use." :initform nil)) (:documentation "Transient prefix command.\n\nEach transient prefix command consists of a command, which is\nstored in a symbol's function slot and an object, which is\nstored in the `transient--prefix' property of the same symbol.\n\nWhen a transient prefix command is invoked, then a clone of that\nobject is stored in the global variable `transient--prefix' and\nthe prototype is stored in the clone's `prototype' slot.")] 6)#@73 Create a new object of class type `transient-prefix'. (fn &rest SLOTS) (defalias 'transient-prefix #[128 "\300\301\302#\207" [apply make-instance transient-prefix] 5 (#$ . 22945)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-prefix compiler-macro transient-prefix--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-prefix--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 23252)]) (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 transient-child-p eieio-make-class-predicate transient-child transient-child--eieio-childp eieio-make-child-predicate transient-child-child-p make-obsolete "use (cl-typep ... 'transient-child) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((level :initarg :level :initform (symbol-value 'transient--default-child-level) :documentation "Enable if level of prefix is equal or greater.") (if :initarg :if :initform nil :documentation "Enable if predicate returns non-nil.") (if-not :initarg :if-not :initform nil :documentation "Enable if predicate returns nil.") (if-non-nil :initarg :if-non-nil :initform nil :documentation "Enable if variable's value is non-nil.") (if-nil :initarg :if-nil :initform nil :documentation "Enable if variable's value is nil.") (if-mode :initarg :if-mode :initform nil :documentation "Enable if major-mode matches value.") (if-not-mode :initarg :if-not-mode :initform nil :documentation "Enable if major-mode does not match value.") (if-derived :initarg :if-derived :initform nil :documentation "Enable if major-mode derives from value.") (if-not-derived :initarg :if-not-derived :initform nil :documentation "Enable if major-mode does not derive from value.")) (:documentation "Abstract superclass for group and suffix classes.\n\nIt is undefined what happens if more than one `if*' predicate\nslot is non-nil." :abstract t)] 6)#@73 You cannot create a new object of type `transient-child'. (fn &rest _) (defalias 'transient-child #[128 "\300\301!\207" [error "Class transient-child is abstract"] 3 (#$ . 25047)]) (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 transient-suffix-p eieio-make-class-predicate transient-suffix transient-suffix--eieio-childp eieio-make-child-predicate transient-suffix-child-p make-obsolete "use (cl-typep ... 'transient-suffix) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-child) ((key :initarg :key) (command :initarg :command) (transient :initarg :transient) (format :initarg :format :initform " %k %d") (description :initarg :description :initform nil) (show-help :initarg :show-help :initform nil) (inapt :initform nil) (inapt-if :initarg :inapt-if :initform nil :documentation "Inapt if predicate returns non-nil.") (inapt-if-not :initarg :inapt-if-not :initform nil :documentation "Inapt if predicate returns nil.") (inapt-if-non-nil :initarg :inapt-if-non-nil :initform nil :documentation "Inapt if variable's value is non-nil.") (inapt-if-nil :initarg :inapt-if-nil :initform nil :documentation "Inapt if variable's value is nil.") (inapt-if-mode :initarg :inapt-if-mode :initform nil :documentation "Inapt if major-mode matches value.") (inapt-if-not-mode :initarg :inapt-if-not-mode :initform nil :documentation "Inapt if major-mode does not match value.") (inapt-if-derived :initarg :inapt-if-derived :initform nil :documentation "Inapt if major-mode derives from value.") (inapt-if-not-derived :initarg :inapt-if-not-derived :initform nil :documentation "Inapt if major-mode does not derive from value.")) (:documentation "Superclass for suffix command.")] 6)#@73 Create a new object of class type `transient-suffix'. (fn &rest SLOTS) (defalias 'transient-suffix #[128 "\300\301\302#\207" [apply make-instance transient-suffix] 5 (#$ . 26873)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-suffix compiler-macro transient-suffix--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-suffix--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 27180)]) (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 transient-infix-p eieio-make-class-predicate transient-infix transient-infix--eieio-childp eieio-make-child-predicate transient-infix-child-p make-obsolete "use (cl-typep ... 'transient-infix) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-suffix) ((transient :initform t) (argument :initarg :argument) (shortarg :initarg :shortarg) (value :initform nil) (init-value :initarg :init-value) (unsavable :initarg :unsavable :initform nil) (multi-value :initarg :multi-value :initform nil) (always-read :initarg :always-read :initform nil) (allow-empty :initarg :allow-empty :initform nil) (history-key :initarg :history-key :initform nil) (reader :initarg :reader :initform nil) (prompt :initarg :prompt :initform nil) (choices :initarg :choices :initform nil) (format :initform " %k %d (%v)")) (:documentation "Transient infix command." :abstract t)] 6)#@73 You cannot create a new object of type `transient-infix'. (fn &rest _) (defalias 'transient-infix #[128 "\300\301!\207" [error "Class transient-infix is abstract"] 3 (#$ . 28473)]) (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 transient-argument-p eieio-make-class-predicate transient-argument transient-argument--eieio-childp eieio-make-child-predicate transient-argument-child-p make-obsolete "use (cl-typep ... 'transient-argument) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-infix) nil (:documentation "Abstract superclass for infix arguments." :abstract t)] 6)#@76 You cannot create a new object of type `transient-argument'. (fn &rest _) (defalias 'transient-argument #[128 "\300\301!\207" [error "Class transient-argument is abstract"] 3 (#$ . 29197)]) (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 transient-switch-p eieio-make-class-predicate transient-switch transient-switch--eieio-childp eieio-make-child-predicate transient-switch-child-p make-obsolete "use (cl-typep ... 'transient-switch) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-argument) nil (:documentation "Class used for command-line argument that can be turned on and off.")] 6)#@73 Create a new object of class type `transient-switch'. (fn &rest SLOTS) (defalias 'transient-switch #[128 "\300\301\302#\207" [apply make-instance transient-switch] 5 (#$ . 29938)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-switch compiler-macro transient-switch--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-switch--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 30245)]) (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 transient-option-p eieio-make-class-predicate transient-option transient-option--eieio-childp eieio-make-child-predicate transient-option-child-p make-obsolete "use (cl-typep ... 'transient-option) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-argument) nil (:documentation "Class used for command-line argument that can take a value.")] 6)#@73 Create a new object of class type `transient-option'. (fn &rest SLOTS) (defalias 'transient-option #[128 "\300\301\302#\207" [apply make-instance transient-option] 5 (#$ . 31029)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-option compiler-macro transient-option--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-option--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 31336)]) (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 transient-variable-p eieio-make-class-predicate transient-variable transient-variable--eieio-childp eieio-make-child-predicate transient-variable-child-p make-obsolete "use (cl-typep ... 'transient-variable) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-infix) ((variable :initarg :variable) (format :initform " %k %d %v")) (:documentation "Abstract superclass for infix commands that set a variable." :abstract t)] 6)#@76 You cannot create a new object of type `transient-variable'. (fn &rest _) (defalias 'transient-variable #[128 "\300\301!\207" [error "Class transient-variable is abstract"] 3 (#$ . 32198)]) (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 transient-switches-p eieio-make-class-predicate transient-switches transient-switches--eieio-childp eieio-make-child-predicate transient-switches-child-p make-obsolete "use (cl-typep ... 'transient-switches) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-argument) ((argument-format :initarg :argument-format) (argument-regexp :initarg :argument-regexp)) (:documentation "Class used for sets of mutually exclusive command-line switches.")] 6)#@75 Create a new object of class type `transient-switches'. (fn &rest SLOTS) (defalias 'transient-switches #[128 "\300\301\302#\207" [apply make-instance transient-switches] 5 (#$ . 33032)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-switches compiler-macro transient-switches--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-switches--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 33349)]) (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 transient-files-p eieio-make-class-predicate transient-files transient-files--eieio-childp eieio-make-child-predicate transient-files-child-p make-obsolete "use (cl-typep ... 'transient-files) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-option) nil (((key :initform "--") (argument :initform "--") (multi-value :initform rest) (reader :initform transient-read-files)) "Class used for the \"--\" argument or similar.\nAll remaining arguments are treated as files.\nThey become the value of this argument.")] 6)#@72 Create a new object of class type `transient-files'. (fn &rest SLOTS) (defalias 'transient-files #[128 "\300\301\302#\207" [apply make-instance transient-files] 5 (#$ . 34306)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-files compiler-macro transient-files--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-files--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 34608)]) (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 transient-group-p eieio-make-class-predicate transient-group transient-group--eieio-childp eieio-make-child-predicate transient-group-child-p make-obsolete "use (cl-typep ... 'transient-group) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-child) ((suffixes :initarg :suffixes :initform nil) (hide :initarg :hide :initform nil) (description :initarg :description :initform nil) (setup-children :initarg :setup-children) (pad-keys :initarg :pad-keys)) (:documentation "Abstract superclass of all group classes." :abstract t)] 6)#@73 You cannot create a new object of type `transient-group'. (fn &rest _) (defalias 'transient-group #[128 "\300\301!\207" [error "Class transient-group is abstract"] 3 (#$ . 35577)]) (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 transient-column-p eieio-make-class-predicate transient-column transient-column--eieio-childp eieio-make-child-predicate transient-column-child-p make-obsolete "use (cl-typep ... 'transient-column) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-group) nil (:documentation "Group class that displays each element on a separate line.")] 6)#@73 Create a new object of class type `transient-column'. (fn &rest SLOTS) (defalias 'transient-column #[128 "\300\301\302#\207" [apply make-instance transient-column] 5 (#$ . 36297)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-column compiler-macro transient-column--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-column--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 36604)]) (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 transient-row-p eieio-make-class-predicate transient-row transient-row--eieio-childp eieio-make-child-predicate transient-row-child-p make-obsolete "use (cl-typep ... 'transient-row) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-group) nil (:documentation "Group class that displays all elements on a single line.")] 6)#@70 Create a new object of class type `transient-row'. (fn &rest SLOTS) (defalias 'transient-row #[128 "\300\301\302#\207" [apply make-instance transient-row] 5 (#$ . 37367)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-row compiler-macro transient-row--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-row--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 37659)]) (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 transient-columns-p eieio-make-class-predicate transient-columns transient-columns--eieio-childp eieio-make-child-predicate transient-columns-child-p make-obsolete "use (cl-typep ... 'transient-columns) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-group) nil (:documentation "Group class that displays elements organized in columns.\nDirect elements have to be groups whose elements have to be\ncommands or strings. Each subgroup represents a column.\nThis class takes care of inserting the subgroups' elements.")] 6)#@74 Create a new object of class type `transient-columns'. (fn &rest SLOTS) (defalias 'transient-columns #[128 "\300\301\302#\207" [apply make-instance transient-columns] 5 (#$ . 38619)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-columns compiler-macro transient-columns--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-columns--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 38931)]) (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 transient-subgroups-p eieio-make-class-predicate transient-subgroups transient-subgroups--eieio-childp eieio-make-child-predicate transient-subgroups-child-p make-obsolete "use (cl-typep ... 'transient-subgroups) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-group) nil (:documentation "Group class that wraps other groups.\n\nDirect elements have to be groups whose elements have to be\ncommands or strings. This group inserts an empty line between\nsubgroups. The subgroups are responsible for displaying their\nelements themselves.")] 6)#@76 Create a new object of class type `transient-subgroups'. (fn &rest SLOTS) (defalias 'transient-subgroups #[128 "\300\301\302#\207" [apply make-instance transient-subgroups] 5 (#$ . 39918)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-subgroups compiler-macro transient-subgroups--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-subgroups--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 40240)])#@1535 Define NAME as a transient prefix command. ARGLIST are the arguments that command takes. DOCSTRING is the documentation string and is optional. These arguments can optionally be followed by key-value pairs. Each key has to be a keyword symbol, either `:class' or a keyword argument supported by the constructor of that class. The `transient-prefix' class is used if the class is not specified explicitly. GROUPs add key bindings for infix and suffix commands and specify how these bindings are presented in the popup buffer. At least one GROUP has to be specified. See info node `(transient)Binding Suffix and Infix Commands'. The BODY is optional. If it is omitted, then ARGLIST is also ignored and the function definition becomes: (lambda () (interactive) (transient-setup \='NAME)) If BODY is specified, then it must begin with an `interactive' form that matches ARGLIST, and it must call `transient-setup'. It may however call that function only when some condition is satisfied; that is one of the reason why you might want to use an explicit BODY. All transients have a (possibly nil) value, which is exported when suffix commands are called, so that they can consume that value. For some transients it might be necessary to have a sort of secondary value, called a scope. Such a scope would usually be set in the commands `interactive' form and has to be passed to the setup function: (transient-setup \='NAME nil nil :scope SCOPE) (fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... GROUP... [BODY...]) (defalias 'transient-define-prefix '(macro . #[642 "\300\"\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\301\302\303D\203,\304BB\2026\304\305\306\307\303DDFE\310\303D\311BB\310\303D\312 F\310\303D\313\206T\314\315\303DBBBF\310\303D\316\317\320\321\322\"\"BF\257\207" [transient--expand-define-args progn defalias quote lambda nil (interactive) transient-setup put ('interactive-only t) 'function-documentation 'transient--prefix transient-prefix :command 'transient--layout list cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--parse-child] 4 "\n\n(fn S)"]] 27 (#$ . 40492)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\304\301\307\310#\300\207" [put transient-define-prefix edebug-form-spec (&define name lambda-list [&optional lambda-doc] [&rest keywordp sexp] [&rest vectorp] [&optional ("interactive" interactive) def-body]) function-put lisp-indent-function defun doc-string-elt 3] 5)#@630 Define NAME as a transient suffix command. ARGLIST are the arguments that the command takes. DOCSTRING is the documentation string and is optional. These arguments can optionally be followed by key-value pairs. Each key has to be a keyword symbol, either `:class' or a keyword argument supported by the constructor of that class. The `transient-suffix' class is used if the class is not specified explicitly. The BODY must begin with an `interactive' form that matches ARGLIST. The infix arguments are usually accessed by using `transient-args' inside `interactive'. (fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... BODY...) (defalias 'transient-define-suffix '(macro . #[642 "\300\"\211\242\243\211\242\243\211\243\211\242\243\211\242\243\301\302\303D\304BBE\305\303D\306BB\305\303D\307 F\305\303D\310\206A\311\312\303DBBBF\257\207" [transient--expand-define-args progn defalias quote lambda put ('interactive-only t) 'function-documentation 'transient--suffix transient-suffix :command] 24 (#$ . 42996)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\304\301\307\310#\300\207" [put transient-define-suffix edebug-form-spec (&define name lambda-list [&optional lambda-doc] [&rest keywordp sexp] ("interactive" interactive) def-body) function-put lisp-indent-function defun doc-string-elt 3] 5)#@1341 Define NAME as a transient infix command. ARGLIST is always ignored and reserved for future use. DOCSTRING is the documentation string and is optional. The key-value pairs are mandatory. All transient infix commands are equal to each other (but not eq), so it is meaningless to define an infix command without also setting at least `:class' and one other keyword (which it is depends on the used class, usually `:argument' or `:variable'). Each key has to be a keyword symbol, either `:class' or a keyword argument supported by the constructor of that class. The `transient-switch' class is used if the class is not specified explicitly. The function definitions is always: (lambda () (interactive) (let ((obj (transient-suffix-object))) (transient-infix-set obj (transient-infix-read obj))) (transient--show)) `transient-infix-read' and `transient-infix-set' are generic functions. Different infix commands behave differently because the concrete methods are different for different infix command classes. In rare case the above command function might not be suitable, even if you define your own infix command class. In that case you have to use `transient-define-suffix' to define the infix command and use t as the value of the `:transient' keyword. (fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...) (defalias 'transient-define-infix '(macro . #[642 "\300\"\211\242\243\211\242\243\211\243\211\242\243\211\243\301\302\303D\304BB\305\303D\306BB\305\303D\307BB\305\303D\310 F\305\303D\311\206B\312\313\303DBBBF\257\207" [transient--expand-define-args progn defalias quote (#'transient--default-infix-command) put ('interactive-only t) ('command-modes (list 'not-a-mode)) 'function-documentation 'transient--suffix transient-switch :command] 24 (#$ . 44335)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\304\301\307\310#\311\312\301\313#\207" [put transient-define-infix edebug-form-spec (&define name lambda-list [&optional lambda-doc] [&rest keywordp sexp]) function-put lisp-indent-function defun doc-string-elt 3 defalias transient-define-argument "Define NAME as a transient infix command.\n\nOnly use this alias to define an infix command that actually\nsets an infix argument. To define a infix command that, for\nexample, sets a variable, use `transient-define-infix' instead.\n\n(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)"] 6)#@66 Most transient infix commands are but an alias for this command. (defalias 'transient--default-infix-command #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 (#$ . 46752) nil]) (byte-code "\300\301\302\303#\210\300\301\304\305C#\207" [put transient--default-infix-command interactive-only t command-modes not-a-mode] 4)#@31 (fn ARGS &optional ARGLIST) (defalias 'transient--expand-define-args #[513 "\211<\204 \300\301!\210\302\211\211\211@;\203\211A\262\242\262\303@!\203K\211A\262\242\211A\262\242\304=\203<\262\210\202B\262\211B\262\266\202@\305!\206Y\211\205Y\2119\262\203k\211A\262\242B\262\202K\242\306=\203xA@\202y\237\237 \257\207" [error "Mandatory ARGLIST is missing" nil keywordp :class vectorp quote] 11 (#$ . 47152)])#@20 (fn PREFIX SPEC) (defalias 'transient--parse-child #[514 "\2119\203&\211J\211<\203!\211@<\204\300@!\203!\301\302\303\"\"\207\304\"\207\300!\2037\305\"\211\2056\211C\207\211<\203G\306\"\211\205F\211C\207\211;\203O\211C\207\307\310\311#\205X\312\207" [vectorp cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--parse-child] 4 "\n\n(fn S)"] transient--parse-child transient--parse-group transient--parse-suffix error "cl-etypecase failed: %s, %s" (symbol vector list string) nil] 7 (#$ . 47615)])#@20 (fn PREFIX SPEC) (defalias 'transient--parse-group #[514 "\301\302\"\262\302\211\211@\250\203\211A\262\242\262@;\203*\303\302\304\211A\262\242#\262\305@!\203t\211A\262\242\211A\262\242\306=\203M\307!\262\266\202*\2119\204^\211<\203j\211@\310=\204j\303\307!#\266\203\202*\303#\266\203\202*\311\206z\206\213\312@!\203\212\313\202\213\314\205\222\315B\315\316\317\320\f\"\n\"B\257\207" [transient--default-child-level append nil plist-put :description keywordp :class macroexp-quote lambda vector vectorp 'transient-columns 'transient-column list cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--parse-child] 4 "\n\n(fn S)"]] 14 (#$ . 48149)])#@20 (fn PREFIX SPEC) (defalias 'transient--parse-suffix #[514 "\301\211\211@\250\203\211A\262\242\262@;\204\302@!\203+\303\301\304\211A\262\242#\262@;\204@@\242\305=\203P\306@!\204P\303\307\211A\262\242#\262\202{@9\203{\310@!\204{\306@!\204{\306A@!\203{\303\307\311\211A\262 \242!#\262\310@!\203\213\312\313@\"\210\202\302@9\203\243\303\314\311\211A\262 \242!#\262\202\302\306@!\203@;\204\211A\262\242\315\316\317\320\307\"\211\203\322\211;\204\316\2119\203\322\211\202\327\320\304\"\262#!\303\314\321\322D\323\322D\324BB\323\322D\325BB\326\322 D\311 !E\257#\266\203\202\302@;\204@\203\274@<\203\274\211A\262\242\301<\203:\303\327@#\262\303\330A@#\262A@\262\202U;\203U\331!\211\203M\303\327#\262\210\303\330#\262\315\316\317 #!\262\303\314\321\322D\323\322D\332BB\323\322D\333BB\326\322 D\334BB\257#\262@\203\245\310@!\204\245\335\262\303\336\311 \211A\262 \242!#\266\203\202\302\337\340\"\204\264\341\262\266\202\302\335\262\266\202\302\312\342@\"\210\310@!\203!\211A\262\242\211A\262\242\343\267\202\347\262\210\202\302\262\210\202\302\211\242\344=\203\372\303A@#\266\203\202\302\2119\204 \211<\203\211@\305=\204\303\311!#\266\203\202\302\303#\266\203\202\302\320\304\"\2048\320\327\"\211\2037\303\304#\262\210\345\206>\311\206D\346!\345BF\207" [transient--default-child-level nil vectorp plist-put :key lambda commandp :description keywordp macroexp-quote error "Need command, got `%s'" :command intern format "transient:%s:%s" plist-get prog1 quote put ('interactive-only t) ('command-modes (list 'not-a-mode)) defalias :shortarg :argument transient--derive-shortarg ('interactive-only t) ('command-modes (list 'not-a-mode)) (#'transient--default-infix-command) transient-option :reader string-suffix-p "=" transient-switch "Needed command or argument, got %S" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:class 475 :level 481)) \, list transient-suffix] 18 (#$ . 48862)])#@12 (fn ARG) (defalias 'transient--derive-shortarg #[257 "\300 \301\302\"\216\303\304\"\205\305\306\")\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match "\\`\\(-[a-zA-Z]\\)\\(\\'\\|=\\)" match-string 1] 5 (#$ . 50966)])#@270 Parse SUFFIX, to be added to PREFIX. PREFIX is a prefix command, a symbol. SUFFIX is a suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). Intended for use in a group's `:setup-children' function. (fn PREFIX SUFFIX) (defalias 'transient-parse-suffix #[514 "\300\301\"@!\207" [eval transient--parse-child] 6 (#$ . 51238)])#@284 Parse SUFFIXES, to be added to PREFIX. PREFIX is a prefix command, a symbol. SUFFIXES is a list of suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). Intended for use in a group's `:setup-children' function. (fn PREFIX SUFFIXES) (defalias 'transient-parse-suffixes #[514 "\300\301\302\"\"\207" [mapcar apply-partially transient-parse-suffix] 6 (#$ . 51621)])#@54 (fn PREFIX LOC SUFFIX ACTION &optional KEEP-OTHER) (defalias 'transient--insert-suffix #[1284 "\300!\203 \301\"\202+<\203\302\"\202+;\203\"\202+\303\304\305#\205+\306\307\"\211@\310!\262\204E\311\312\n\n$\207\300!\203R\300!\203h<\203]\300!\204h;\203s\300!\203s\311\313\n\n\314%\207<\211\205|\315!\211\205\206\307 \"@\211\205\266\316=\205\224\211=?\205\266\203\256\317\3208\321\"\317\3208\321\"=\205\266\322!\322!\232\211\203\300\323\f\"\210\266\324\267\202\336AB\241\210\240\207AB\241\207\240\207\303\325\326#\205\350\306\207" [vectorp transient--parse-group transient--parse-suffix error "cl-etypecase failed: %s, %s" (vector list string) nil transient--layout-member eval message "Cannot insert %S into %s; %s not found" "Cannot place %S into %s at %s; %s" "suffixes and groups cannot be siblings" transient--spec-key replace plist-get 2 :command transient--suffix-predicate transient-remove-suffix #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (insert 200 append 211 replace 218)) "cl-ecase failed: %s, %s" (insert append replace)] 15 (#$ . 52041)])#@541 Insert a SUFFIX into PREFIX before LOC. PREFIX is a prefix command, a symbol. SUFFIX is a suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). Remove a conflicting binding unless optional KEEP-OTHER is non-nil. See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC SUFFIX &optional KEEP-OTHER) (defalias 'transient-insert-suffix #[1027 "\300\301%\207" [transient--insert-suffix insert] 10 (#$ . 53227)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-insert-suffix lisp-indent-function defun] 4)#@540 Insert a SUFFIX into PREFIX after LOC. PREFIX is a prefix command, a symbol. SUFFIX is a suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). Remove a conflicting binding unless optional KEEP-OTHER is non-nil. See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC SUFFIX &optional KEEP-OTHER) (defalias 'transient-append-suffix #[1027 "\300\301%\207" [transient--insert-suffix append] 10 (#$ . 53995)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-append-suffix lisp-indent-function defun] 4)#@459 Replace the suffix at LOC in PREFIX with SUFFIX. PREFIX is a prefix command, a symbol. SUFFIX is a suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC SUFFIX) (defalias 'transient-replace-suffix #[771 "\300\301$\207" [transient--insert-suffix replace] 8 (#$ . 54762)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-replace-suffix lisp-indent-function defun] 4)#@332 Remove the suffix or group at LOC in PREFIX. PREFIX is a prefix command, a symbol. LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC) (defalias 'transient-remove-suffix #[514 "\300\301#\207" [transient--layout-member remove] 6 (#$ . 55448)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-remove-suffix lisp-indent-function defun] 4)#@332 Return the suffix or group at LOC in PREFIX. PREFIX is a prefix command, a symbol. LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC) (defalias 'transient-get-suffix #[514 "\300\"\211\203 \211@\207\301\302#\207" [transient--layout-member error "%s not found in %s"] 7 (#$ . 56003)])#@471 Edit the suffix at LOC in PREFIX, setting PROP to VALUE. PREFIX is a prefix command, a symbol. SUFFIX is a suffix command or a group specification (of the same forms as expected by `transient-define-prefix'). LOC is a command, a key vector, a key description (a string as returned by `key-description'), or a coordination list (whose last element may also be a command or key). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC PROP VALUE) (defalias 'transient-suffix-put #[1028 "\300\"\211<\203\211AA\301\302\234#\240\207\211\302\301\302\234#I\207" [transient-get-suffix plist-put 2] 11 (#$ . 56494)])#@36 (fn LOC PREFIX &optional REMOVE) (defalias 'transient--layout-member #[770 "\300N\206\n\301\302\"<\203h@\250\203d\303!\203!\211\304H\202\"\211\305\211A\262\242\"\203S\204S\306@\"\303!\203G\304I\266\202O\307\300#\266\310\202\203^\211@\266\203\202\211\266\203\202@\262\203t\311\312!#\207\207" [transient--layout error "%s is not a transient command" vectorp 3 transient--nthcdr delq put nil transient--layout-member-1 transient--kbd] 11 (#$ . 57144)])#@26 (fn LOC LAYOUT REMOVE) (defalias 'transient--layout-member-1 #[771 "<\203\300\301\302#\"\207\303\304H@!\203$\300\301\305#\304H\"\207\211\203:\304\306\307\"@\304H\"I\210\310\207\307\"\207" [seq-some make-closure #[257 "\302\301\300#\207" [V0 V1 transient--layout-member-1] 5 "\n\n(fn ELT)"] vectorp 3 #[257 "\302\301\300#\207" [V0 V1 transient--layout-member-1] 5 "\n\n(fn ELT)"] delq transient--group-member nil] 9 (#$ . 57645)])#@18 (fn LOC GROUP) (defalias 'transient--group-member #[514 "\300\301\302\"\303H\"\207" [cl-member-if make-closure #[257 "\211<\205%\3018\302\303\"\3009\203\211\300=\207\304\302\305\"\206 \306!!\300\232\266\202\207" [V0 2 plist-get :command transient--kbd :key transient--command-key] 7 "\n\n(fn SUFFIX)"] 3] 6 (#$ . 58106)])#@13 (fn KEYS) (defalias 'transient--kbd #[257 "\300!\203 \301!\262\211;\203\302!\262\207" [vectorp key-description kbd] 3 (#$ . 58445)])#@13 (fn SPEC) (defalias 'transient--spec-key #[257 "\3008\301\302\"\206\303\301\304\"!\207" [2 plist-get :key transient--command-key :command] 6 (#$ . 58593)])#@12 (fn CMD) (defalias 'transient--command-key #[257 "\211\300N\211\205,\301\302\"\203\303\302\"\207\304\305\"\205,\301\305\"\203&\303\305\"\207\306\303\307\"!\207" [transient--suffix slot-boundp key eieio-oref slot-exists-p shortarg transient--derive-shortarg argument] 6 (#$ . 58761)])#@15 (fn N LIST) (defalias 'transient--nthcdr #[514 "\300W\203\211G\301!Z\202\233\207" [0 abs] 5 (#$ . 59063)])#@169 The transient from which this suffix command was invoked. This is an object representing that transient, use `transient-current-command' to get the respective command. (defvar transient-current-prefix nil (#$ . 59186))#@166 The transient from which this suffix command was invoked. This is a symbol representing that transient, use `transient-current-prefix' to get the respective object. (defvar transient-current-command nil (#$ . 59411))#@276 The suffixes of the transient from which this suffix command was invoked. This is a list of objects. Usually it is sufficient to instead use the function `transient-args', which returns a list of values. In complex cases it might be necessary to use this variable instead. (defvar transient-current-suffixes nil (#$ . 59634))#@37 Hook run after exiting a transient. (defvar transient-exit-hook nil (#$ . 59967)) (defvar transient--prefix nil) (defvar transient--layout nil) (defvar transient--suffixes nil)#@28 Do not exit the transient. (defconst transient--stay t (#$ . 60149))#@24 Do exit the transient. (defconst transient--exit nil (#$ . 60223))#@32 Whether to exit the transient. (defvar transient--exitp nil (#$ . 60295))#@50 Whether the transient is show in a popup buffer. (defvar transient--showp nil (#$ . 60374))#@30 Whether help-mode is active. (defvar transient--helpp nil (#$ . 60471))#@30 Whether edit-mode is active. (defvar transient--editp nil (#$ . 60548))#@39 The active infix awaiting user input. (defvar transient--active-infix nil (#$ . 60625)) (defvar transient--timer nil) (defvar transient--stack nil) (defvar transient--minibuffer-depth 0)#@31 Name of the transient buffer. (defvar transient--buffer-name " *transient*" (#$ . 60817))#@49 The window used to display the transient popup. (defvar transient--window nil (#$ . 60912))#@123 The window that was selected before the transient was invoked. Usually it remains selected while the transient is active. (defvar transient--original-window nil (#$ . 61010))#@121 The buffer that was current before the transient was invoked. Usually it remains current while the transient is active. (defvar transient--original-buffer nil (#$ . 61191))#@48 Whether put debug information into *Messages*. (defvar transient--debug nil (#$ . 61369)) (defvar transient--history nil) (defvar transient--scroll-commands '(transient-scroll-up transient-scroll-down mwheel-scroll scroll-bar-toolkit-scroll))#@1546 Return the object associated with the current suffix command. Each suffix commands is associated with an object, which holds additional information about the suffix, such as its value (in the case of an infix command, which is a kind of suffix command). This function is intended to be called by infix commands, which are usually aliases of `transient--default-infix-command', which is defined like this: (defun transient--default-infix-command () (interactive) (let ((obj (transient-suffix-object))) (transient-infix-set obj (transient-infix-read obj))) (transient--show)) (User input is read outside of `interactive' to prevent the command from being added to `command-history'. See #23.) Such commands need to be able to access their associated object to guide how `transient-infix-read' reads the new value and to store the read value. Other suffix commands (including non-infix commands) may also need the object to guide their behavior. This function attempts to return the object associated with the current suffix command even if the suffix command was not invoked from a transient. (For some suffix command that is a valid thing to do, for others it is not.) In that case nil may be returned, if the command was not defined using one of the macros intended to define such commands. The optional argument COMMAND is intended for internal use. If you are contemplating using it in your own code, then you should probably use this instead: (get COMMAND \='transient--suffix) (fn &optional COMMAND) (defalias 'transient-suffix-object #[256 "\211\203\305!\204\306\307\310\310E\"\210\204 \2034\311\312\313\"\n\206$ \"\211A\2031\314\315\"\2063\211@\207\211\2069\f\316N\211\205B\317!\211\205O\320!\210\321!\210\211\207" [transient--prefix transient-current-prefix transient--suffixes transient-current-suffixes this-command commandp signal wrong-type-argument command cl-remove-if-not make-closure #[257 "\303\304\"\300\206 \305=\203\n\202 =\207" [V0 this-command this-original-command eieio-oref command transient-set-level] 4 "\n\n(fn OBJ)"] cl-find-if #[257 "\300\301\302\303\"!!\300\304 !\232\207" [listify-key-sequence transient--kbd eieio-oref key this-command-keys] 6 "\n\n(fn OBJ)"] transient--suffix clone transient-init-scope transient-init-value] 6 (#$ . 61619)])#@593 Parent of other keymaps used by Transient. This is the parent keymap of all the keymaps that are used in all transients: `transient-map' (which in turn is the parent of the transient-specific keymaps), `transient-edit-map' and `transient-sticky-map'. If you change a binding here, then you might also have to edit `transient-sticky-map' and `transient-common-commands'. While the latter isn't a proper transient prefix command, it can be edited using the same functions as used for transients. If you add a new command here, then you must also add a binding to `transient-predicate-map'. (defvar transient-base-map (define-keymap "ESC ESC ESC" 'transient-quit-all "C-g" 'transient-quit-one "C-q" 'transient-quit-all "C-z" 'transient-suspend "C-v" 'transient-scroll-up "C-M-v" 'transient-scroll-down "" 'transient-scroll-up "" 'transient-scroll-down) (#$ . 63971))#@169 Top-level keymap used by all transients. If you add a new command here, then you must also add a binding to `transient-predicate-map'. Also see `transient-base-map'. (defvar transient-map (define-keymap :parent transient-base-map "C-u" 'universal-argument "C--" 'negative-argument "C-t" 'transient-show "?" 'transient-help "C-h" 'transient-help "C-M-p" 'transient-history-prev "C-M-n" 'transient-history-next) (#$ . 64858))#@63 Keymap that is active while a transient in is in "edit mode". (defvar transient-edit-map (define-keymap :parent transient-base-map "?" 'transient-help "C-h" 'transient-help "C-x l" 'transient-set-level) (#$ . 65289))#@67 Keymap that is active while an incomplete key sequence is active. (defvar transient-sticky-map (define-keymap :parent transient-base-map "C-g" 'transient-quit-seq) (#$ . 65511)) (defvar transient--common-command-prefixes '(24)) (byte-code "\300\301\302\303\304\301\305\306\307\305\310\311\312\313E\314\315\316E\317\320\321E\322\323\324E\325\326\327E&\305\330\331\332\333E\334\335\336E\337\340\341E$\305\342\343\344\345\346F\347\350\351E#%\"@!C#\207" [put transient-common-commands transient--layout eval transient--parse-child vector :hide #[0 "\303\300!\205@ >?\205\n?\207" [transient--redisplay-key transient--common-command-prefixes transient-show-common-commands boundp] 2] "Value commands" "C-x s " "Set" transient-set "C-x C-s" "Save" transient-save "C-x C-k" "Reset" transient-reset "C-x p " "Previous value" transient-history-prev "C-x n " "Next value" transient-history-next "Sticky commands" "C-g" "Quit prefix or transient" transient-quit-one "C-q" "Quit transient stack" transient-quit-all "C-z" "Suspend transient stack" transient-suspend "Customize" "C-x t" transient-toggle-common :description #[0 "\203\301\207\302\207" [transient-show-common-commands "Hide common commands" "Show common permanently"] 1] "C-x l" "Show/hide suffixes" transient-set-level] 18)#@100 One of the keymaps used when popup navigation is enabled. See `transient-enable-popup-navigation'. (defvar transient-popup-navigation-map (define-keymap "" 'transient-noop "" 'transient-backward-button "" 'transient-forward-button "C-r" 'transient-isearch-backward "C-s" 'transient-isearch-forward "M-RET" 'transient-push-button) (#$ . 66804))#@100 One of the keymaps used when popup navigation is enabled. See `transient-enable-popup-navigation'. (defvar transient-button-map (define-keymap "" 'transient-push-button "" 'transient-push-button) (#$ . 67178))#@711 Base keymap used to map common commands to their transient behavior. The "transient behavior" of a command controls, among other things, whether invoking the command causes the transient to be exited or not, and whether infix arguments are exported before doing so. Each "key" is a command that is common to all transients and that is bound in `transient-map', `transient-edit-map', `transient-sticky-map' and/or `transient-common-command'. Each binding is a "pre-command", a function that controls the transient behavior of the respective command. For transient commands that are bound in individual transients, the transient behavior is specified using the `:transient' slot of the corresponding object. (defvar transient-predicate-map (byte-code "\300\301\302\303\304\305\304\306\304\307\304\310\304\311\304\312\313\314\304\315\316\317\316\320\321\322\304\323\304\324\304\325\304\326\327\330\327\331\327\332\304\333\304\334\304\335\304\336\304\337\304\340\341\342\343\344\345\346\343\347\343\350\343\351\343\352\353&B\207" [define-keymap "" transient--do-suspend "" transient--do-stay "" "" "" "" "" "" transient--do-minus "" "" transient--do-quit-all "" "" transient--do-quit-one "" "" "" "" "" transient--do-call "" "" "" "" "" "" "" "" "" transient--do-noop "" transient--do-move "" transient--do-push-button "" "" "" "" "" transient--do-warn] 67) (#$ . 67412)) (defvar transient--transient-map nil) (defvar transient--predicate-map nil) (defvar transient--redisplay-map nil) (defvar transient--redisplay-key nil)#@12 (fn VAR) (defalias 'transient--push-keymap #[257 "\211J\300\301\203 \302\202\303#\210\211\205&\3041\305\306\"0\207\307\310\"\210\311\262\207" [transient--debug " push %s%s" "" " VOID" (debug error) internal-push-keymap overriding-terminal-local-map message "transient--push-keymap: %S" nil] 6 (#$ . 69606)])#@12 (fn VAR) (defalias 'transient--pop-keymap #[257 "\211J\211\205\300\301\"\210\3021\303\304\"0\207\305\306\"\210\307\262\207" [transient--debug " pop %s" (debug error) internal-pop-keymap overriding-terminal-local-map message "transient--pop-keymap: %S" nil] 6 (#$ . 69936)]) (defalias 'transient--make-transient-map #[0 "\306 \307\203\f \202 \n\"\210 \211\203x\211@\310\311\"\312!\203+\313!\262\314\311#\210\f\203D\315 \316\317\"\216\f!)\262\262\314\311#\210\320!\310\321\" \205T\322\"\211\203h=\204h\323\324\325!$\210\210\326#\266A\266\202\202\210\327\330\"\211\203\207\331\332#\210\210\327\333\"\211\203\226\331\334#\210\210\327\335\"\211\203\245\331\336#\210\210!\203\266\307\337\340!\"\"\"\210\207" [transient--editp transient-edit-map transient-map transient--suffixes transient-substitute-key-function transient-detect-key-conflicts make-sparse-keymap set-keymap-parent eieio-oref key vectorp key-description eieio-oset match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] kbd command transient--lookup-key error "Cannot bind %S to %s and also %s" string-trim define-key keymap-lookup "-" keymap-set "" "=" "" "+" "" make-composed-keymap keymap-parent transient-enable-popup-navigation transient-popup-navigation-map] 12]) (defalias 'transient--make-predicate-map #[0 "\303 \304\"\210\305 \306\"\307>\203\310\311\312#\210\n\211\203\251\211@\305\313\"\2119\205-\211\301N\205-\314\305\315\"\203@\316\317!\320#\266\202\242\321\322\"\203\200\316\317!\305\322\"\211D\211\323\267\202u\324\202v\325!\203i\326\202v\327\202v\330\202v\331\202v\262\262#\266\202\242\332\317!\"\204\240\316\317!\203\226\330\202\236\305 \333\"\206\236\331#\210\266A\266\202\202\210\207" [transient-predicate-map transient--prefix transient--suffixes make-sparse-keymap set-keymap-parent eieio-oref transient-non-suffix (nil transient--do-warn transient--do-noop) keymap-set "" transient--do-suspend command t inapt define-key vector transient--do-warn-inapt slot-boundp transient #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((t t) 90 (t nil) 94 (nil t) 109 (nil nil) 113)) transient--do-recurse transient-infix--eieio-childp transient--do-stay transient--do-call transient--do-replace transient--do-exit lookup-key transient-suffix] 12]) (defalias 'transient--make-redisplay-map #[0 "\306\267\202\307\310\311 !\211\202 \312\310\311 !\313\"\312 !\202 \314\315 \315 \2036\316\317 !#\210\320\f\"\210\321\322\323\" \203_\317 !\324 \"\206Z\324\"\211\205X\324 \317!\"\262\262\202` \"\210\207" [this-command transient--showp unread-command-events transient--redisplay-key transient-sticky-map transient--transient-map #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (transient-update 6 transient-quit-seq 17)) t listify-key-sequence this-single-command-raw-keys butlast 2 nil make-sparse-keymap define-key vconcat set-keymap-parent map-keymap-internal make-closure #[514 "\302=?\205\211<\205\303!\205\304\300\305 C\"\306#\207" [V0 transient--redisplay-key 27 keymapp define-key vconcat transient-update] 7 "\n\n(fn KEY DEF)"] lookup-key local-function-key-map] 10])#@432 Setup the transient specified by NAME. This function is called by transient prefix commands to setup the transient. In that case NAME is mandatory, LAYOUT and EDIT must be nil and PARAMS may be (but usually is not) used to set, e.g., the "scope" of the transient (see `transient-define-prefix'). This function is also called internally in which case LAYOUT and EDIT may be non-nil. (fn &optional NAME LAYOUT EDIT &rest PARAMS) (defalias 'transient-setup #[896 "\306\307!\210\3101t\311\204'\312\305!\210\312\313!\210\314 \315\"\262\316\314 \317\"D\262\202J \2036\312\305!\210\312\313!\210\202J\204D\n\204D\320 \210\202J\203J\321\322#\210\323 !\210\324 \325 \326  \327 p\330  \331 \210\332 \210\333 )0\207\334 \210\335@A\"\207" [debugger transient--prefix transient-current-command transient--editp transient--predicate-map transient--transient-map transient--debug setup (debug error) transient--exit-and-debug transient--pop-keymap transient--redisplay-map eieio-oref command :scope scope transient--stack-zap t transient--init-objects transient--history-init transient--make-predicate-map transient--make-transient-map transient--make-redisplay-map selected-window minibuffer-depth transient--redisplay transient--init-transient transient--suspend-which-key-mode transient--emergency-exit signal transient--original-window transient--original-buffer transient--minibuffer-depth] 8 (#$ . 73288)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\207" [defalias transient-setup-children cl-generic-define (group children) nil "Setup the CHILDREN of GROUP.\nIf the value of the `setup-children' slot is non-nil, then call\nthat function with CHILDREN as the only argument and return the\nvalue. Otherwise return CHILDREN as is.\n\n(fn GROUP CHILDREN)" cl-generic-define-method #[514 "\300\301\"\203\302\301\"!\207\207" [slot-boundp setup-children eieio-oref] 5 "\n\n(fn GROUP CHILDREN)"]] 6)#@27 (fn NAME LAYOUT PARAMS) (defalias 'transient--init-objects #[771 "\303\"\206\f\304!\305 !\211\207" [transient--prefix transient--layout transient--suffixes transient--init-prefix transient--init-suffixes transient--flatten-suffixes] 6 (#$ . 75245)])#@30 (fn NAME &optional PARAMS) (defalias 'transient--init-prefix #[513 "\302N\303\304\305\306\307\310\307 \"\"\206 &\262\311!\210\312!\210\207" [transient-levels transient-default-level transient--prefix apply clone :prototype :level alist-get t transient--setup-recursion transient-init-value] 14 (#$ . 75510)])#@13 (fn NAME) (defalias 'transient--init-suffixes #[257 "\302\"\303\304\305\"\306\307N ?\205\310\307N\"\"\207" [transient-levels transient--editp alist-get cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--init-child] 4 "\n\n(fn C)"] append transient--layout transient-common-commands] 8 (#$ . 75839)])#@15 (fn LAYOUT) (defalias 'transient--flatten-suffixes #[257 "\300C\211\301\302\"\240\210\303\242\"\207" [nil make-closure #[257 "\211;\203\301\207\211<\203\302\300\242\"\207\303!\203!\302\300\242\304\305\"\"\207\306!\205)\211C\207" [V0 nil cl-mapcan transient-group--eieio-childp eieio-oref suffixes transient-suffix--eieio-childp] 6 "\n\n(fn DEF)"] cl-mapcan] 6 (#$ . 76163)])#@20 (fn LEVELS SPEC) (defalias 'transient--init-child #[514 "\300!\203 \301\"\207\211<\203\302\"\207\211;\203\211C\207\303\304\305#\205&\306\207" [vectorp transient--init-group transient--init-suffix error "cl-etypecase failed: %s, %s" (vector list string) nil] 6 (#$ . 76558)])#@20 (fn LEVELS SPEC) (defalias 'transient--init-group #[514 "\300\301\"\211\242\243\211\242\243\211\242\243\211\242\243\302!\211\205%\303\304 $\211\205,\305!\211\205<\306\307\310\"\311\"\"\211\205H\312\313#\210C\207" [append nil transient--use-level-p apply :level transient--use-suffix-p cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--init-child] 4 "\n\n(fn C)"] transient-setup-children eieio-oset suffixes] 19 (#$ . 76852)])#@20 (fn LEVELS SPEC) (defalias 'transient--init-suffix #[514 "\211\242\243\211\242\243\211\242\243\300\301\"\302\n\"\2069\205!K\211\211\242\303=\262\2034\304\305\"\210\306!\210\210\307!\205\263\203D9\204I\310\311\"\210\312N\211\203[\313\314\315 %\202g\313\301\315\n&\262\316!\204\216\317!\204{\320!\203\203\321\322\"\210\202\216\323!\203\216\310\324\"\210\325!\210\323!\205\261\326!\203\247\327\330\331#\210\202\257\332!\210\333!\210\211C\262\207" [plist-get :command alist-get autoload transient--debug " autoload %s" autoload-do-load transient--use-level-p error "BUG: Non-symbolic suffix command: %s" transient--suffix apply clone :level commandp transient-switch--eieio-childp transient-option--eieio-childp defalias transient--default-infix-command transient--use-suffix-p "Suffix command %s is not defined or autoloaded" transient--init-suffix-key transient--inapt-suffix-p eieio-oset inapt t transient-init-scope transient-init-value] 18 (#$ . 77323)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\306\307%\207" [cl-generic-define-method transient--init-suffix-key nil ((obj transient-suffix)) #[257 "\300\301\"?\205\302\303\304\305\"\"\207" [slot-boundp key error "No key for %s" eieio-oref command] 6 "\n\n(fn OBJ)"] ((obj transient-argument)) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300!\203\n!\207\301\302\"\204\"\303\304\305\"!\211\203!\306\302#\210\210\301\307\"?\205A\301\302\"\203:\306\307\304\302\"#\207\310\311\304\312\"\"\207" [transient-switches--eieio-childp slot-boundp shortarg transient--derive-shortarg eieio-oref argument eieio-oset key error "No key for %s" command] 8 "\n\n(fn CL--CNM OBJ)"]] 6 "\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"]] 6)#@29 (fn LEVEL &optional EDIT) (defalias 'transient--use-level-p #[513 "\203 \211?\206\302Y\205\303 \304\"X\207" [transient--editp transient--prefix 1 eieio-oref level] 6 (#$ . 79275)])#@12 (fn OBJ) (defalias 'transient--use-suffix-p #[257 "\300\301\302\"\301\303\"\301\304\"\301\305\"\301\306\"\301\307\"\301\310\"\301 \311\"\312& \207" [transient--do-suffix-p eieio-oref if if-not if-nil if-non-nil if-mode if-not-mode if-derived if-not-derived t] 12 (#$ . 79471)])#@12 (fn OBJ) (defalias 'transient--inapt-suffix-p #[257 "\300\301\302\"\301\303\"\301\304\"\301\305\"\301\306\"\301\307\"\301\310\"\301 \311\"\312& \207" [transient--do-suffix-p eieio-oref inapt-if inapt-if-not inapt-if-nil inapt-if-non-nil inapt-if-mode inapt-if-not-mode inapt-if-derived inapt-if-not-derived nil] 12 (#$ . 79767)])#@90 (fn IF IF-NOT IF-NIL IF-NON-NIL IF-MODE IF-NOT-MODE IF-DERIVED IF-NOT-DERIVED DEFAULT) (defalias 'transient--do-suffix-p #[2313 "\203  \207\203 ?\207\203J\207\203$J?\207\2035:\2041=\207>\207\203I:\204D=\202G>?\207\203[:\204V\301!\207\302\301\"\207\203p:\204j\301!\202n\302\301\"?\207\207" [major-mode derived-mode-p apply] 12 (#$ . 80115)])#@13 (fn SPEC) (defalias 'transient--suffix-predicate #[257 "\3008\301\302\303\"\304\"\207" [2 seq-some make-closure #[257 "\301\300\"\211\205 D\207" [V0 plist-get] 4 "\n\n(fn PROP)"] (:if :if-not :if-nil :if-non-nil :if-mode :if-not-mode :if-derived :if-not-derived :inapt-if :inapt-if-not :inapt-if-nil :inapt-if-non-nil :inapt-if-mode :inapt-if-not-mode :inapt-if-derived :inapt-if-not-derived)] 6 (#$ . 80513)]) (defalias 'transient--init-transient #[0 "\301\302!\210\303\304!\210\303\305!\210\306\307\310\"\210\306\311\312\"\210\313\314\315\316#\210\205#\317\211\207" [transient--exitp transient--debug init-transient transient--push-keymap transient--transient-map transient--redisplay-map add-hook pre-command-hook transient--pre-command post-command-hook transient--post-command advice-add recursive-edit :around transient--recursive-edit replace] 4]) (defalias 'transient--pre-command #[0 "\306\307!\210\3101v\311\312 \313\"\203\312\n\313\"\204 \n\314>\203&\315\316!\202s \203K\n\317>\204K\320 \203?\321 \210\322\323 \202s\324 ?\205s\325\211\202s\f\203a\326 \203a\n\327>\204a\330\331 \202s\332\333 =\331 \210\211\205q\323 \262)0\207\334 \210\335@A\"\207" [debugger this-original-command this-command transient--helpp transient--editp transient--exitp transient--debug pre-command (debug error) transient--exit-and-debug transient--get-predicate-for suffix (transient-update transient-quit-seq) transient--pop-keymap transient--redisplay-map (transient-quit-one transient-quit-all) transient-help transient--do-suspend transient-suspend transient--pre-exit transient--edebug-command-p transient-undefined transient-suffix-object (transient-quit-one transient-quit-all transient-help) transient-set-level transient--wrap-command nil transient--do-pre-command transient--emergency-exit signal transient--exit] 4]) (defalias 'transient--do-pre-command #[0 "\304!\211\203\211 \211 =\203\n\206\305\207\306 \211GSH\307=\262\203)\310\2020\311 \2040\312 \207" [this-command transient--exit transient--exitp transient--stay transient--get-predicate-for t this-command-keys-vector 7 transient-noop transient--edebug-command-p transient-undefined] 4])#@34 (fn CMD &optional SUFFIX-ONLY) (defalias 'transient--get-predicate-for #[513 "\3021\303\304!\"0\202\210\202\206/\211?\205/\305 \306\"\211\307\267\202,\310\202-\311\202-\211\262\207" [transient--predicate-map transient--prefix (error) lookup-key vector eieio-oref transient-non-suffix #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 36 nil 40)) transient--do-stay transient--do-warn] 6 (#$ . 82717)]) (defalias 'transient--pre-exit #[0 "\306\307!\210\310 \210\311 \210\312\302!\210\312\304!\210\204\313\314\315!)\210\313\211\313\211\313\211\313\211\313\211\313\211\211\207" [transient--showp message-log-max transient--transient-map transient--predicate-map transient--redisplay-map transient--redisplay-key transient--debug pre-exit transient--delete-window transient--timer-cancel transient--pop-keymap nil message "" transient--helpp transient--editp transient--prefix transient--layout transient--suffixes transient--original-window transient--original-buffer transient--window] 3]) (defalias 'transient--delete-window #[0 "\301!\2059\302 \205 \303 \304!\305\306\"@\307=\204,\3101&\311!0\210\202,\312\313\"\266\314!\210\2057\315!\266\202\207" [transient--window window-live-p minibuffer-selected-window selected-window window-buffer window-parameter quit-restore other (debug error) delete-window message "Error while exiting transient: %S" kill-buffer select-window] 6]) (defalias 'transient--export #[0 "\305\306\" \307!\207" [transient--prefix transient-current-prefix transient-current-command transient--suffixes transient-current-suffixes eieio-oref command transient--history-push] 3])#@25 (fn &optional NOHIDE) (defalias 'transient--suspend-override #[256 "\304\305!\210\306 \210\211\204\203\307 \210\202& \203&\n\203&\310 \203&\311 \210\312\313!\210\312\314!\210\315\316\317\"\210\315\320\321\"\207" [transient-hide-during-minibuffer-read transient--prefix transient--redisplay-key transient--showp transient--debug suspend-override transient--timer-cancel transient--delete-window nil transient--show transient--pop-keymap transient--transient-map transient--redisplay-map remove-hook pre-command-hook transient--pre-command post-command-hook transient--post-command] 4 (#$ . 84419)])#@25 (fn &optional IGNORE) (defalias 'transient--resume-override #[256 "\302\303!\210\203 \203\304 \210\305\306!\210\305\307!\210\310\311\312\"\210\310\313\314\"\207" [transient--showp transient-hide-during-minibuffer-read transient--debug resume-override transient--show transient--push-keymap transient--transient-map transient--redisplay-map add-hook pre-command-hook transient--pre-command post-command-hook transient--post-command] 4 (#$ . 85034)])#@11 (fn FN) (defalias 'transient--recursive-edit #[257 "\304\305!\210\204 \211 \207\306\307\301!\205 !\210\211 \210\n\310>\203&\311\312 \210\313 \207\205,\314 \207" [transient--prefix edebug-active this-command transient--exitp transient--debug recursive-edit transient--suspend-override boundp (top-level abort-recursive-edit) t transient--post-exit transient--delete-window transient--resume-override] 4 (#$ . 85495)])#@19 (fn &rest BODY) (defalias 'transient--with-suspended-override '(macro . #[128 "\300\301!\300\302!\300\303!\304\305\306\307BE\310\311\312\313\314\315\316 E\317BBBBBE\310\311\312\313\320\321\322\323E\324BB\257E\325\326\327\330 E\327\331 E BBB\315\332 E\315\333 EF\257BBB\207" [make-symbol "depth" "setup" "exit" if (and transient--transient-map (memq transient--transient-map overriding-terminal-local-map)) let ((1+ (minibuffer-depth))) setq lambda nil "@transient--with-suspended-override" (transient--debug 'minibuffer-setup) remove-hook 'minibuffer-setup-hook ((transient--suspend-override)) (transient--debug 'minibuffer-exit) when = (minibuffer-depth) ((transient--resume-override)) unwind-protect progn add-hook 'minibuffer-setup-hook 'minibuffer-exit-hook 'minibuffer-setup-hook 'minibuffer-exit-hook] 19 (#$ . 85927)])) (defalias 'transient--wrap-command #[0 "\301Y\203 \302 \207\303 \207" [emacs-major-version 30 transient--wrap-command-30 transient--wrap-command-29] 2]) (defalias 'transient--wrap-command-30 #[0 " \302C\211\303\304\305$\304\306 $\"\240\210\307\310\242\311$\207" [transient--prefix this-command nil cconv--interactive-helper make-closure #[385 "\303\304\300\301\302$\216\305\")\207" [V0 V1 V2 make-closure #[0 "\303\302\304\"\211\203\305\306!\210\211\301!\210\210\307\301\300\242\"\210\310\302\304\311#\207" [V0 V1 V2 eieio-oref unwind-suffix transient--debug unwind-command advice-remove eieio-oset nil] 4] apply] 7 "\n\n(fn FN &rest ARGS)" nil] #[0 "\303\304\300\301\302$\207" [V0 V1 V2 make-closure #[257 "\303C\304\305\300\301\302%\216\306!\307\240)\210\207" [V0 V1 V2 t make-closure #[0 "\300\242\205!\304\303\305\"\211\203\306\307!\210\211\302!\210\210\310\302\301\242\"\210\311\303\305\312#\207" [V0 V1 V2 V3 eieio-oref unwind-suffix transient--debug unwind-interactive advice-remove eieio-oset nil] 4] advice-eval-interactive-spec nil] 8 "\n\n(fn SPEC)"]] 5] advice-add :around ((depth . -99))] 11]) (defalias 'transient--wrap-command-29 #[0 " \302C\303\304$\303\305$\306\307\310D\311\312D\313BBF\240\210\314\315\242\316$\207" [transient--prefix this-command nil make-closure #[257 "\303C\304\305\300\301\302%\216\306!\307\240)\210\207" [V0 V1 V2 t make-closure #[0 "\300\242\205!\304\303\305\"\211\203\306\307!\210\211\302!\210\210\310\302\301\242\"\210\311\303\305\312#\207" [V0 V1 V2 V3 eieio-oref unwind-suffix transient--debug unwind-interactive advice-remove eieio-oset nil] 4] advice-eval-interactive-spec nil] 8 "\n\n(fn SPEC)"] #[385 "\303\304\300\301\302$\216\305\")\207" [V0 V1 V2 make-closure #[0 "\303\302\304\"\211\203\305\306!\210\211\301!\210\210\307\301\300\242\"\210\310\302\304\311#\207" [V0 V1 V2 eieio-oref unwind-suffix transient--debug unwind-command advice-remove eieio-oset nil] 4] apply] 7 "\n\n(fn FN &rest ARGS)"] lambda (fn &rest args) interactive apply quote (fn args) advice-add :around ((depth . -99))] 12]) (defalias 'transient--premature-post-command #[0 "\304 \305\232\205)\306 TU\205)\307\310!\210\311 \210\312 \206\n\313 \203%\314\202&\315#\210\316\207" [transient--minibuffer-depth transient--prefix transient-current-prefix transient--exitp this-command-keys-vector [] minibuffer-depth transient--debug premature-post-command transient--suspend-override eieio-oset unwind-suffix transient--post-exit transient--resume-override t] 4]) (defalias 'transient--post-command #[0 "\305 ?\205G\306\307!\210\3101<\311 \203\312 \2029\n\313 \314\"=\2069\f\315 \232\2045\316\304!\210\211\317\304!\210\320 \266\202)0\207\321 \210\322@A\"\262\207" [debugger transient--exitp this-command transient--prefix transient--redisplay-map transient--premature-post-command transient--debug post-command (debug error) transient--exit-and-debug transient--post-exit eieio-oref command transient--make-redisplay-map transient--pop-keymap transient--push-keymap transient--redisplay transient--emergency-exit signal] 4])#@26 (fn &optional COMMAND) (defalias 'transient--post-exit #[256 "\306\307!\210\310=\203) \2048\311!\312\313\"\205\314\313\"\262\203&\315\202)\316 \210\317\320\321\"\210\317\322\323\"\210\324\325\326\"\210\315\211\315 \205F\327>?\211\204S\310=\204S\315\315\211\315\330\331\332!\210\211\205h\333 \207" [transient--exitp transient--prefix transient-current-prefix transient-current-command transient-current-suffixes transient--stack transient--debug post-exit replace transient-suffix-object slot-boundp transient eieio-oref nil transient--stack-zap remove-hook pre-command-hook transient--pre-command post-command-hook transient--post-command advice-remove recursive-edit transient--recursive-edit (replace suspend) 0 run-hooks transient-exit-hook transient--stack-pop transient--showp transient--helpp transient--editp transient--minibuffer-depth] 6 (#$ . 89891)]) (defalias 'transient--stack-push #[0 "\304\305!\210\306\307\" \n\310\306\311\"\257 B\211\207" [transient--prefix transient--layout transient--editp transient--stack transient--debug stack-push eieio-oref command :scope scope] 7]) (defalias 'transient--stack-pop #[0 "\301\302!\210\205\303\304\211A\242\"\210\305\207" [transient--stack transient--debug stack-pop apply transient-setup t] 4]) (defalias 'transient--stack-zap #[0 "\301\302!\210\303\211\207" [transient--stack transient--debug stack-zap nil] 2]) (defalias 'transient--redisplay #[0 "\306=\204\n \203+\n >\206$\n\307>\204\310\311 !\312\232\205$p\313\f!=?\205?\314 \207\247\203=\315U\204= \204=\316 \210\317 \207" [transient-show-popup transient--showp this-command transient--scroll-commands transient--buffer-name transient--timer t (mouse-drag-region mouse-set-region) key-description this-command-keys-vector "" get-buffer transient--show 0 transient--timer-start transient--show-brief] 3]) (defalias 'transient--timer-start #[0 "\302\303!\304\305#\211\207" [transient-show-popup transient--timer run-at-time abs nil #[0 "\301 \210\302 \210\303\304\305!)\207" [message-log-max transient--timer-cancel transient--show nil message ""] 2]] 4]) (defalias 'transient--timer-cancel #[0 "\205 \301!\210\302\211\207" [transient--timer cancel-timer nil] 2])#@23 (fn ARG &rest ARGS) (defalias 'transient--debug #[385 "\205Y\304=?9\203S\304\305\n9\203\n\206%\306\n!\203$\307\202%\n\310\311 ! @;\203;\312\313\314 \"P\202N\203M\312\313@ A\"P\202N\315&\202X\313\304#)\207" [transient--debug inhibit-message this-command transient--exitp message "-- %-22s (cmd: %s, event: %S, exit: %s%s)" byte-code-function-p "#[...]" key-description this-command-keys-vector ", " apply format ""] 12 (#$ . 92150)])#@145 Exit the current transient command after an error occurred. When no transient is active (i.e. when `transient--prefix' is nil) then do nothing. (defalias 'transient--emergency-exit #[0 "\303\304!\210\205\305\306\307 \210\310 \207" [transient--prefix transient--stack transient--exitp transient--debug emergency-exit nil t transient--pre-exit transient--post-exit] 2 (#$ . 92619)])#@66 Call the command without exporting variables and stay transient. (defalias 'transient--do-stay #[0 "\207" [transient--stay] 1 (#$ . 93010)])#@43 Call `transient-noop' and stay transient. (defalias 'transient--do-noop #[0 "\302 \207" [this-command transient--stay transient-noop] 1 (#$ . 93157)])#@48 Call `transient-undefined' and stay transient. (defalias 'transient--do-warn #[0 "\302 \207" [this-command transient--stay transient-undefined] 1 (#$ . 93314)])#@44 Call `transient-inapt' and stay transient. (defalias 'transient--do-warn-inapt #[0 "\302 \207" [this-command transient--stay transient-inapt] 1 (#$ . 93481)])#@64 Call the command after exporting variables and stay transient. (defalias 'transient--do-call #[0 "\301 \210\207" [transient--stay transient--export] 1 (#$ . 93646)])#@142 Call the command after exporting variables and return to parent prefix. If there is no parent prefix, then behave like `transient--do-exit'. (defalias 'transient--do-return #[0 "\204\302 \207\303 \210 \207" [transient--stack transient--exit transient--do-exit transient--export] 1 (#$ . 93819)])#@68 Call the command after exporting variables and exit the transient. (defalias 'transient--do-exit #[0 "\301 \210\302 \210\207" [transient--exit transient--export transient--stack-zap] 1 (#$ . 94123)])#@70 Call the command without exporting variables and exit the transient. (defalias 'transient--do-leave #[0 "\207" [transient--stay] 1 (#$ . 94329)])#@119 Call the command represented by the activated button. Use that command's pre-command to determine transient behavior. (defalias 'transient--do-push-button #[0 "\304!\203\305!\211@\262 =\204\n\207\306 !r\307\310\"\216\311@\312\"\210\313\304!\2032\314\305!!\2023`\315\"*\262\316 \207" [last-command-event transient--window transient--stay this-command mouse-event-p event-start internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord get-text-property posn-point command transient--do-pre-command] 5 (#$ . 94482)])#@136 Call the transient prefix command, preparing for return to active transient. If there is no parent prefix, then just call the command. (defalias 'transient--do-recurse #[0 "\300 \207" [transient--do-replace] 1 (#$ . 95099)])#@19 (fn PREFIX-OBJ) (defalias 'transient--setup-recursion #[257 "\205*\301\302\"\303!\211\205&\304\305\"\205&\301\305\"\306\307D>\205&\310\311\312#\262\262\207" [transient--stack eieio-oref command transient-suffix-object slot-boundp transient t transient--do-recurse eieio-oset transient-suffix transient--do-return] 7 (#$ . 95329)])#@68 Call the transient prefix command, replacing the active transient. (defalias 'transient--do-replace #[0 "\302 \210\303 \210\304 \207" [transient--exitp transient--exit transient--export transient--stack-push replace] 1 (#$ . 95679)])#@59 Suspend the active transient, saving the transient stack. (defalias 'transient--do-suspend #[0 "\302 \210\303 \207" [transient--exitp transient--exit transient--stack-push suspend] 1 (#$ . 95919)])#@68 If active, quit help or edit mode, else exit the active transient. (defalias 'transient--do-quit-one #[0 "\203\304 \207\n\203\304\305 \210 \207 \207" [transient--helpp transient--stay transient--editp transient--exit nil transient-setup] 1 (#$ . 96123)])#@57 Exit all transients without saving the transient stack. (defalias 'transient--do-quit-all #[0 "\301 \210\207" [transient--exit transient--stack-zap] 1 (#$ . 96390)])#@159 Call the command if `transient-enable-popup-navigation' is non-nil. In that case behave like `transient--do-stay', otherwise similar to `transient--do-warn'. (defalias 'transient--do-move #[0 "\204\303\n\207" [transient-enable-popup-navigation this-command transient--stay transient-popup-navigation-help] 1 (#$ . 96563)])#@169 Call `negative-argument' or pivot to `transient-update'. If `negative-argument' is invoked using "-" then preserve the prefix argument and pivot to `transient-update'. (defalias 'transient--do-minus #[0 "\302 \303\232\203 \304 \207" [this-command transient--stay this-command-keys "-" transient-update] 2 (#$ . 96896)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\303#\210\300\315\302\313#\210\300\316\302\313#\210\300\317\302\313#\210\300\320\302\313#\210\300\321\302\303#\210\300\322\302\303#\207" [put transient--do-stay transient-color transient-red transient--do-noop transient--do-warn transient--do-warn-inapt transient--do-call transient--do-return transient-purple transient--do-exit transient-blue transient--do-recurse transient--do-replace transient--do-suspend transient--do-quit-one transient--do-quit-all transient--do-move transient--do-minus] 4)#@20 Do nothing at all. (defalias 'transient-noop #[0 "\300\207" [nil] 1 (#$ . 97894) nil])#@64 Warn the user that the pressed key is not bound to any suffix. (defalias 'transient-undefined #[0 "\300\301!\207" [transient--invalid "Unbound suffix"] 2 (#$ . 97986) nil])#@50 Warn the user that the invoked command is inapt. (defalias 'transient-inapt #[0 "\300\301!\207" [transient--invalid "Inapt command"] 2 (#$ . 98164) nil])#@12 (fn MSG) (defalias 'transient--invalid #[257 "\305 \210\306\307\310\311\312 !\313\314#\310\315\313\316#\310\317\313\316#\3201#\321!0\202'\210\202*\2067\32215\321 !0\2027\210\323\211\203F\324\325\310\313\314#\"\202G\326\262&\210\n\205S\n >?\205m\f\206\\\327\330 )\210\331 \210\332\333!\210\334\335\336\337#\207" [this-original-command this-command transient--transient-map overriding-terminal-local-map transient--prefix ding message "%s: `%s' (Use `%s' to abort, `%s' for help)%s" propertize key-description this-single-command-keys face font-lock-warning-face "C-g" transient-key "?" (error) symbol-name (error) nil format " [%s]" "" sic transient--emergency-exit view-lossage other-window 1 display-warning transient "Inconsistent transient state detected.\nThis should never happen.\nPlease open an issue and post the shown command log.\nThis is a heisenbug, so any additional details might help.\nThanks!" :error] 14 (#$ . 98323)])#@50 Toggle whether common commands are always shown. (defalias 'transient-toggle-common #[0 "?\211\207" [transient-show-common-commands] 2 (#$ . 99283) nil])#@117 Suspend the current transient. It can later be resumed using `transient-resume' while no other transient is active. (defalias 'transient-suspend #[0 "\300\207" [nil] 1 (#$ . 99445) nil])#@57 Exit all transients without saving the transient stack. (defalias 'transient-quit-all #[0 "\300\207" [nil] 1 (#$ . 99637) nil])#@66 Exit the current transients, possibly returning to the previous. (defalias 'transient-quit-one #[0 "\300\207" [nil] 1 (#$ . 99770) nil])#@44 Abort the current incomplete key sequence. (defalias 'transient-quit-seq #[0 "\300\207" [nil] 1 (#$ . 99912) nil])#@51 Redraw the transient's state in the popup buffer. (defalias 'transient-update #[0 "\303=\205 \211\207" [this-original-command current-prefix-arg prefix-arg negative-argument] 2 (#$ . 100032) nil])#@49 Show the transient's state in the popup buffer. (defalias 'transient-show #[0 "\301\211\207" [transient--showp t] 2 (#$ . 100238) nil]) (defvar transient--restore-winconf nil nil) (make-variable-buffer-local 'transient--restore-winconf)#@66 Show help for the active transient or one of its suffixes. (fn) (defalias 'transient-help #[256 "\211\203\305\211\207\3061>\307 \310 \"\205<\311\312 \313\n\314=\203# \202)\315 \206)\n!\210\316\311\317 \320 #\210\321 \210\322\323!\210\3050\207\322\324\"\210\311\207" [transient--helpp transient--transient-map this-original-command transient--prefix transient--restore-winconf t (debug error) lookup-key this-single-command-raw-keys nil current-window-configuration transient-show-help transient-help transient-suffix-object fit-window-to-buffer frame-height window-height transient-resume-mode message "Type \"q\" to resume transient command." "transient-help: %S"] 5 (#$ . 100481) (list t)])#@93 Set the level of the transient or one of its suffix commands. (fn &optional COMMAND LEVEL) (defalias 'transient-set-level #[512 "\204 \303\304 \207\211\203m\305 \306\"\307\n\"\211=\203)\310 \311#\210\303\262\2023\310\312!\311#\210\211\236\211\203B\211\241\266\202MB\211\262B\262\210\n\236\211\203\\\211\241\266\202gB\211\262\nB\266\313 \210\314 \207\315 \207" [transient--editp transient--prefix transient-levels t transient-setup eieio-oref command alist-get eieio-oset level transient-suffix-object transient-save-levels transient--show transient-undefined] 9 (#$ . 101191) (byte-code "\305 \306\"\307=\203\n\205<\211\211\262\205<\310 \311 \"\2059\312\313!\314 \210\315\316\317\"\320\211=?$)!\262D\207" [this-original-command transient--prefix transient--editp transient--transient-map transient--active-infix eieio-oref command transient-set-level this-single-command-raw-keys lookup-key string-to-number transient-suffix-object transient--show transient--read-number-N format "Set level for `%s': " nil] 11)])#@64 Save the value of the active transient for this Emacs session. (defalias 'transient-set #[0 "\302\206 !\207" [transient--prefix transient-current-prefix transient-set-value] 2 (#$ . 102266) nil])#@75 Save the value of the active transient persistenly across Emacs sessions. (defalias 'transient-save #[0 "\302\206 !\207" [transient--prefix transient-current-prefix transient-save-value] 2 (#$ . 102470) nil])#@57 Clear the set and saved values of the active transient. (defalias 'transient-reset #[0 "\302\206 !\207" [transient--prefix transient-current-prefix transient-reset-value] 2 (#$ . 102687) nil])#@57 Switch to the next value used for the active transient. (defalias 'transient-history-next #[0 "\302\303\"S\302\304\"\305W\203\306\307!\207\310\303#\210\310\3118#\210\312\313 \"\207" [transient--prefix transient--suffixes eieio-oref history-pos history 0 user-error "End of history" eieio-oset value mapc transient-init-value] 8 (#$ . 102888) nil])#@61 Switch to the previous value used for the active transient. (defalias 'transient-history-prev #[0 "\302\303\"T\302\304\"\211GSV\203\305\306!\207\307\303#\210\307\3108#\210\311\312 \"\207" [transient--prefix transient--suffixes eieio-oref history-pos history user-error "End of history" eieio-oset value mapc transient-init-value] 9 (#$ . 103252) nil])#@175 Scroll text of transient popup window upward ARG lines. If ARG is nil scroll near full screen. This is a wrapper around `scroll-up-command' (which see). (fn &optional ARG) (defalias 'transient-scroll-up #[256 "\301!r\302\303\"\216\304@\305\"\210\306!*\207" [transient--window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-up-command] 5 (#$ . 103622) "^P"])#@175 Scroll text of transient popup window down ARG lines. If ARG is nil scroll near full screen. This is a wrapper around `scroll-down-command' (which see). (fn &optional ARG) (defalias 'transient-scroll-down #[256 "\301!r\302\303\"\216\304@\305\"\210\306!*\207" [transient--window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-down-command] 5 (#$ . 104091) "^P"])#@55 Invoke the suffix command represented by this button. (defalias 'transient-push-button #[0 "\300\207" [nil] 1 (#$ . 104563) nil])#@52 Resume a previously suspended stack of transients. (defalias 'transient-resume #[0 "\203 \303\301!\210\n\203\302\304!\210\305 \210\211\203\306!\210\210\307 \207\n\203/\303\301!\210\302\304!\210\305 \207\310\311!\207" [transient--stack transient--restore-winconf transient-resume-mode kill-local-variable -1 quit-window set-window-configuration transient--stack-pop message "No suspended transient command"] 3 (#$ . 104698) nil]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\300\311\302\311\312\304#\313#\210\306\311\304\312\304\314%\210\306\311\315\316\317\320%\210\306\311\321\322\317\323%\210\306\311\304\324\304\325%\210\306\311\304\326\304\327%\210\306\311\304\330\304\331%\210\300\332\302\332\333\304#\334#\210\306\332\304\333\304\335%\210\306\332\304\336\304\337%\210\300\340\302\340\341\304#\342#\210\306\340\343\344\317\345%\210\306\340\304\346\304\347%\210\306\340\304\350\304\351%\210\306\340\304\352\304\353%\210\306\340\304\354\304\355%\207" [defalias transient-init-scope cl-generic-define (obj) nil "Set the scope of the suffix object OBJ.\n\nThe scope is actually a property of the transient prefix, not of\nindividual suffixes. However it is possible to invoke a suffix\ncommand directly instead of from a transient. In that case, if\nthe suffix expects a scope, then it has to determine that itself\nand store it in its `scope' slot.\n\nThis function is called for all suffix commands, but unless a\nconcrete method is implemented this falls through to the default\nimplementation, which is a noop.\n\n(fn OBJ)" cl-generic-define-method ((_ transient-suffix)) #[257 "\300\207" [nil] 2 "Noop.\n\n(fn _)"] transient-init-value (_) "Set the initial value of the object OBJ.\n\nThis function is called for all prefix and suffix commands.\n\nFor suffix commands (including infix argument commands) the\ndefault implementation is a noop. Classes derived from the\nabstract `transient-infix' class must implement this function.\nNon-infix suffix commands usually don't have a value.\n\n(fn _)" #[257 "\300\207" [nil] 2 "\n\n(fn _)"] (:around) ((obj transient-prefix)) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\"\203\302\301\"!\207!\207" [slot-boundp init-value eieio-oref] 5 "\n\n(fn CL--CNM OBJ)"]] 6 "If bound, then call OBJ's `init-value' function.\nOtherwise call the primary method according to object's class.\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"] (:around) ((obj transient-infix)) #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\"\203\302\301\"!\207!\207" [slot-boundp init-value eieio-oref] 5 "\n\n(fn CL--CNM OBJ)"]] 6 "If bound, then call OBJ's `init-value' function.\nOtherwise call the primary method according to object's class.\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"] ((obj transient-prefix)) #[257 "\301\302\"\203\f\303\302\"\207\304\302\303\305\"\236\211\203\211A\202!\306!\262#\207" [transient-values slot-boundp value eieio-oref eieio-oset command transient-default-value] 7 "\n\n(fn OBJ)"] ((obj transient-argument)) #[257 "\302\303\304\303\"\305\306\"\205\304\306\"\304\307\"\310\311\312\"\203(\304\312\"\2020\313\314\304\n\306\"\"\315>\203A\316\"A\202[\317\320\"\203T\321\310\322 \"\"\202Y\323\"\262)\266\205#\207" [transient--prefix case-fold-search eieio-oset value eieio-oref slot-boundp argument multi-value nil slot-exists-p argument-regexp format "\\`%s\\(.*\\)" (t rest) assoc make-closure #[257 "\211;\205\301\300\"\205\302\303\"\207" [V0 string-match match-string 1] 4 "\n\n(fn V)"] delq mapcar cl-some] 15 "\n\n(fn OBJ)"] ((obj transient-switch)) #[257 "\301\302\303\304\"\303\302\"\235@#\207" [transient--prefix eieio-oset value eieio-oref argument] 8 "\n\n(fn OBJ)"] transient-default-value (_) "Return the default value.\n\n(fn _)" #[257 "\300\207" [nil] 2 "\n\n(fn _)"] ((obj transient-prefix)) #[257 "\300\301\"\205 \302\301\"\211\205\303!\203\211 \207\211\207" [slot-boundp default-value eieio-oref functionp] 4 "\n\n(fn OBJ)"] transient-infix-read (obj) "Determine the new value of the infix object OBJ.\n\nThis function merely determines the value; `transient-infix-set'\nis used to actually store the new value in the object.\n\nFor most infix classes this is done by reading a value from the\nuser using the reader specified by the `reader' slot (using the\n`transient-infix' method described below).\n\nFor some infix classes the value is changed without reading\nanything in the minibuffer, i.e. the mere act of invoking the\ninfix command determines what the new value should be, based\non the previous value.\n\n(fn OBJ)" (:around) ((obj transient-infix)) #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\211\304 )\210\3051L\306\n\203F\n >\203F\307 T\310C\310C\311\312\"\240\210\211\311\313\"\240\210\311\314#\216\315\316\242\"\210\315\317\242\"\210!)\266\203\202I!)0\207\320 \210\321@A\"\207" [transient--active-infix debugger transient--transient-map overriding-terminal-local-map transient--show (debug error) transient--exit-and-debug minibuffer-depth nil make-closure #[0 "\301\302!\210\303\304\300\242\"\210\305 \207" [V0 transient--debug minibuffer-setup remove-hook minibuffer-setup-hook transient--suspend-override] 3 #1="@transient--with-suspended-override"] #[0 "\301\302!\210\303 \300U\205 \304 \207" [V0 transient--debug minibuffer-exit minibuffer-depth transient--resume-override] 2 #1#] #[0 "\302\303\301\242\"\210\302\304\300\242\"\207" [V0 V1 remove-hook minibuffer-setup-hook minibuffer-exit-hook] 3] add-hook minibuffer-setup-hook minibuffer-exit-hook transient--emergency-exit signal] 9 "\n\n(fn CL--CNM OBJ)"]] 6 "Highlight the infix in the popup buffer.\n\nThis also wraps the call to `cl-call-next-method' with two\nmacros.\n\n`transient--with-suspended-override' is necessary to allow\nreading user input using the minibuffer.\n\n`transient--with-emergency-exit' arranges for the transient to\nbe exited in case of an error because otherwise Emacs would get\nstuck in an inconsistent state, which might make it necessary to\nkill it from the outside.\n\nIf you replace this method, then you must make sure to always use\nthe latter macro and most likely also the former.\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"] ((obj transient-infix)) #[257 "\306\307\"\203\306\310\"\204\306\311\"\204\203\312\307\313#\207\314\315\316\"\317!\306\310\"\203:\320\321\306\307\"\322#\202>\306\307\"\315\323\"\206I\315\324\"\325\n\"\203Y @=\203] \202` B\f\205g @\211\203q\303\326B\202r\303\203~#\202\267\306\310\"\203\230\327\306 \330\"\313\211&\202\267\306\330\"\203\262\331\306 \330\"\313\314&\202\267\332#\211\333\232\203\313\306\334\"\204\313\313\262\202\334\211\335\232\203\334\306\334\"\203\334\333\262\211\203\336\305!\203\372 \203\372 @;\203\372\337\340 @G\313 @$\210\n\236\341 !\203\f\241\266\202B\211\262\nB\266+\207" [transient--prefix enable-recursive-minibuffers transient-history transient--history transient-read-with-initial-input ivy-mode slot-value value multi-value always-read eieio-oset nil t eieio-oref reader transient-prompt mapconcat identity "," history-key command alist-get 1 completing-read-multiple choices completing-read read-string "" allow-empty "\"\"" boundp set-text-properties 0 delete-dups] 14 "Read a value while taking care of history.\n\nThis method is suitable for a wide variety of infix commands,\nincluding but not limited to inline arguments and variables.\n\nIf you do not use this method for your own infix class, then\nyou should likely replicate a lot of the behavior of this\nmethod. If you fail to do so, then users might not appreciate\nthe lack of history, for example.\n\nOnly for very simple classes that toggle or cycle through a very\nlimited number of possible values should you replace this with a\nsimple method that does not handle history. (E.g. for a command\nline switch the only possible values are \"use it\" and \"don't use\nit\", in which case it is pointless to preserve history.)\n\n(fn OBJ)"] ((obj transient-switch)) #[257 "\300\301\"?\205\f\300\302\"\207" [eieio-oref value argument] 4 "Toggle the switch on or off.\n\n(fn OBJ)"] ((obj transient-switches)) #[257 "\300\301\302\303\304\"\"\303\305\"\"\303\306\"\211\203\211\235A@\207@\207" [mapcar apply-partially format eieio-oref argument-format choices value] 7 "Cycle through the mutually exclusive switches.\nThe last value is \"don't use any of these switches\".\n\n(fn OBJ)"] ((command symbol)) #[257 "\300K\301\302\"\216\300\303M\210\304\305N!)\207" [transient--show make-closure #[0 "\301\300M\207" [V0 transient--show] 2] ignore transient-infix-read transient--suffix] 5 "Elsewhere use the reader of the infix command COMMAND.\nUse this if you want to share an infix's history with a regular\nstand-alone command.\n\n(fn COMMAND)"]] 6)#@49 Read a file. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-file #[771 "\300\301\302!!!\207" [file-local-name expand-file-name read-file-name] 7 (#$ . 114119)])#@59 Read an existing file. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-existing-file #[771 "\300\301\302\303\211\304$!!\207" [file-local-name expand-file-name read-file-name nil t] 10 (#$ . 114300)])#@54 Read a directory. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-directory #[771 "\300\301\302!!!\207" [file-local-name expand-file-name read-directory-name] 7 (#$ . 114519)])#@64 Read an existing directory. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-existing-directory #[771 "\300\301\302\303\211\304$!!\207" [file-local-name expand-file-name read-directory-name nil t] 10 (#$ . 114715)])#@102 Read a natural number (including zero) and return it as a string. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-number-N0 #[771 "\300\301$\207" [transient--read-number-N t] 8 (#$ . 114950)])#@102 Read a natural number (excluding zero) and return it as a string. (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-read-number-N+ #[771 "\300\301$\207" [transient--read-number-N nil] 8 (#$ . 115165)])#@50 (fn PROMPT INITIAL-INPUT HISTORY INCLUDE-ZERO) (defalias 'transient--read-number-N #[1028 "\300 \301\302\"\216\3032I\304\305\211%\211\306\230\204/\203!\307\202\"\310\305\311\312$\266\203\2034\313\303\"\210\210\314\315\203?\316\202@\317\"\210\320\321!\210\202 )\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] --cl-block-nil-- read-from-minibuffer nil "" "\\`\\(0\\|[1-9][0-9]*\\)\\'" "\\`[1-9][0-9]*\\'" string-match t throw message "Please enter a natural number (%s zero)." "including" "excluding" sit-for 1] 14 (#$ . 115381)])#@82 Read a date using `org-read-date' (which see). (fn PROMPT DEFAULT-TIME HISTORY) (defalias 'transient-read-date #[771 "\300\301!\210\302\303!\205\303\304\305\211%\207" [require org fboundp org-read-date with-time nil] 9 (#$ . 115970)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\207" [defalias transient-prompt cl-generic-define (obj) nil "Return the prompt to be used to read infix object OBJ's value.\n\n(fn OBJ)" cl-generic-define-method ((obj transient-infix)) #[257 "\300\301\"\211\203\302!\203\211!\202\211\211;\203\207\303\207\304\305\"\205(\300\305\"\211\205?\211;\203<\306\307\"\203<\211\202?\211\310P\262\206a\304\311\"\205O\300\311\"\211\205[\211;\205[\211\310P\262\206a\303\207" [eieio-oref prompt functionp "(BUG: no prompt): " slot-boundp argument string-suffix-p "=" ": " variable] 6 "Return the prompt to be used to read infix object OBJ's value.\n\nThis implementation should be suitable for almost all infix\ncommands.\n\nIf the value of OBJ's `prompt' slot is non-nil, then it must be\na string or a function. If it is a string, then use that. If\nit is a function, then call that with OBJ as the only argument.\nThat function must return a string, which is then used as the\nprompt.\n\nOtherwise, if the value of either the `argument' or `variable'\nslot of OBJ is a string, then base the prompt on that (preferring\nthe former), appending either \"=\" (if it appears to be a\ncommand-line option) or \": \".\n\nFinally fall through to using \"(BUG: no prompt): \" as the\nprompt.\n\n(fn OBJ)"]] 6) (defvar transient--unset-incompatible t) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\306\301\311\312\313\314%\210\300\315\302\315\316\304#\317#\210\306\315\304\320\304\321%\210\300\322\302\322\323\304#\324#\210\306\322\304\325\304\326%\210\300\327\302\327\330\304#\331#\210\306\327\304\332\304\333%\207" [defalias transient-infix-set cl-generic-define (obj value) nil "Set the value of infix object OBJ to value.\n\n(fn OBJ VALUE)" cl-generic-define-method ((obj transient-infix) value) #[514 "\300\301#\207" [eieio-oset value] 6 "Set the value of infix object OBJ to value.\n\n(fn OBJ VALUE)"] (:around) ((obj transient-argument) value) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[771 "\303\304\"\203\305\304\"\202\305\306\"\205\211\205\211\205#\305 \307\"\211\205.\310\311\312\"\"\211\203]\"\210\211\211\205\\\211@\313\311\314\"\n\"\211\203T\315\316\315\")\210\210A\266\202\202;\207\"\207" [transient--unset-incompatible transient--prefix transient--suffixes slot-boundp argument eieio-oref argument-regexp incompatible cl-mapcan make-closure #[257 "\300\235\205\n\301\300\"\207" [V0 remove] 4 "\n\n(fn RULE)"] cl-find-if #[257 "\301\302\"\205\303\302\"\205\304\302\"\300\232\207" [V0 slot-exists-p argument slot-boundp eieio-oref] 4 "\n\n(fn OBJ)"] nil transient-infix-set] 13 "\n\n(fn CL--CNM OBJ VALUE)"]] 6 "Unset incompatible infix arguments.\n\n(fn OBJ VALUE)"]] 5 "\n\n(fn CL--NM)"] transient-set-value (obj) "Set the value of the transient prefix OBJ.\n\n(fn OBJ)" ((obj transient-prefix)) #[257 "\300\301\302\"\303\304 #\210\305!\207" [eieio-oset eieio-oref prototype value transient-get-value transient--history-push] 5 "\n\n(fn OBJ)"] transient-save-value (obj) "Save the value of the transient prefix OBJ.\n\n(fn OBJ)" ((obj transient-prefix)) #[257 "\301 \302\303\304\"\305#\210\303\306\"\211\236\211\203\211\241\266\202)B\211\262B\266\307 \266\310!\207" [transient-values transient-get-value eieio-oset eieio-oref prototype value command transient-save-values transient--history-push] 6 "\n\n(fn OBJ)"] transient-reset-value (obj) "Clear the set and saved values of the transient prefix OBJ.\n\n(fn OBJ)" ((obj transient-prefix)) #[257 "\302!\303\304#\210\303\305\306\"\304#\210\305\307\"\211\236\211\203\"\310\"\266\311 \266\312!\210\313\314 \"\207" [transient-values transient--suffixes transient-default-value eieio-oset value eieio-oref prototype command delq transient-save-values transient--history-push mapc transient-init-value] 7 "\n\n(fn OBJ)"]] 6)#@297 Return the value of the transient prefix command PREFIX. If the current command was invoked from the transient prefix command PREFIX, then return the active infix arguments. If the current command was not invoked from PREFIX, then return the set, saved or default value for PREFIX. (fn PREFIX) (defalias 'transient-args #[257 "\300\301\302!\"\207" [cl-mapcan transient--get-wrapped-value transient-suffixes] 5 (#$ . 120329)])#@80 Return the suffix objects of the transient prefix command PREFIX. (fn PREFIX) (defalias 'transient-suffixes #[257 "=\203 \207\303!\304\305!!)\207" [transient-current-command transient-current-suffixes transient--prefix transient--init-prefix transient--flatten-suffixes transient--init-suffixes] 4 (#$ . 120763)]) (defalias 'transient-get-value #[0 "\3021 \303\304\305 \")0\207\306 \210\307@A\"\207" [debugger transient-current-suffixes (debug error) transient--exit-and-debug cl-mapcan #[257 "\300\301\"\203\302\301\"?\205\303!\207" [slot-exists-p unsavable eieio-oref transient--get-wrapped-value] 4 "\n\n(fn OBJ)"] transient--emergency-exit signal] 4])#@12 (fn OBJ) (defalias 'transient--get-wrapped-value #[257 "\300!\211\2055\301\302\"\205\303\302\"\211\204C\2023\211\304\267\202*C\2023\2023\305\306\307#\2053\310\262\207" [transient-infix-value slot-exists-p multi-value eieio-oref #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 33 rest 33 repeat 38)) error "cl-ecase failed: %s, %s" (nil rest t repeat) nil] 7 (#$ . 121443)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\306\301\304\311\304\312%\210\306\301\304\313\304\314%\210\306\301\304\315\304\316%\207" [defalias transient-infix-value cl-generic-define (obj) nil "Return the value of the suffix object OBJ.\n\nThis function is called by `transient-args' (which see), meaning\nthis function is how the value of a transient is determined so\nthat the invoked suffix command can use it.\n\nCurrently most values are strings, but that is not set in stone.\nNil is not a value, it means \"no value\".\n\nUsually only infixes have a value, but see the method for\n`transient-suffix'.\n\n(fn OBJ)" cl-generic-define-method ((_ transient-suffix)) #[257 "\300\207" [nil] 2 "Return nil, which means \"no value\".\n\nInfix arguments contribute the transient's value while suffix\ncommands consume it. This function is called for suffixes anyway\nbecause a command that both contributes to the transient's value\nand also consumes it is not completely unconceivable.\n\nIf you define such a command, then you must define a derived\nclass and implement this function because this default method\ndoes nothing.\n\n(fn _)"] ((obj transient-infix)) #[257 "\300\301\"\207" [eieio-oref value] 4 "Return the value of OBJ's `value' slot.\n\n(fn OBJ)"] ((obj transient-option)) #[257 "\300\301\"\211\205=\300\302\"\300\303\"\211\204P\2029\211\304\267\2020B\2029\305\306\307\"\"\2029\310\311\312#\2059\313\262\262\207" [eieio-oref value argument multi-value #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 32 rest 32 repeat 38)) mapcar make-closure #[257 "\300P\207" [V0] 3 "\n\n(fn V)"] error "cl-ecase failed: %s, %s" (nil rest t repeat) nil] 8 "Return ARGUMENT and VALUE as a unit or nil if the latter is nil.\n\n(fn OBJ)"] ((_ transient-variable)) #[257 "\300\207" [nil] 2 "Return nil, which means \"no value\".\n\nSetting the value of a variable is done by, well, setting the\nvalue of the variable. I.e. this is a side-effect and does not\ncontribute to the value of the transient.\n\n(fn _)"]] 6)#@230 Return the value of ARG as it appears in ARGS. For a switch return a boolean. For an option return the value as a string, using the empty string for the empty value, or nil if the option does not appear in ARGS. (fn ARG ARGS) (defalias 'transient-arg-value #[514 "\301\302\"\2030\303 \304\305\"\216\306\307\310\311\312O\"\313\304\314\"\")\266\202\211\205.\315\316\"\206.\317)\207\235\2057\320\207" [case-fold-search string-suffix-p "=" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] nil format "\\`%s\\(?:=\\(.+\\)\\)?\\'" 0 -1 cl-find-if #[257 "\211;\205 \301\300\"\207" [V0 string-match] 4 "\n\n(fn A)"] match-string 1 "" t] 9 (#$ . 123990)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\300\310\302\310\311\304#\312#\210\306\310\304\311\304\313%\210\300\314\302\314\315\304#\316#\210\306\314\304\317\304\320%\207" [defalias transient--history-key cl-generic-define (obj) nil "Return OBJ's history key.\nIf the value of the `history-key' slot is non-nil, then return\nthat. Otherwise return the value of the `command' slot.\n\n(fn OBJ)" cl-generic-define-method #[257 "\300\301\"\206 \300\302\"\207" [eieio-oref history-key command] 4 "\n\n(fn OBJ)"] transient--history-push (obj) "Push the current value of OBJ to its entry in `transient-history'.\n\n(fn OBJ)" #[257 "\301!\211\236\302 \211\303\304\"\"B\262\203\241\210\207B\211\262B\207" [transient-history transient--history-key transient-get-value delete alist-get] 10 "\n\n(fn OBJ)"] transient--history-init (obj) "Initialize OBJ's `history' slot.\nThis is the transient-wide history; many individual infixes also\nhave a history of their own.\n\n(fn OBJ)" ((obj transient-prefix)) #[257 "\301\302\"\303\304\305\306\307 !\"\"B#\207" [transient-history eieio-oref value eieio-oset history delete alist-get transient--history-key] 11 "Initialize OBJ's `history' slot from the variable `transient-history'.\n\n(fn OBJ)"]] 6) (defalias 'transient--show-brief #[0 "\304 \203 \305X\203\306\307\310\311 !\"\2020\306\312\310\311 !\313\n\314\"\315\316\317\320\321 \"\322\"\323\324\325\326##$)\207" [message-log-max transient-show-popup transient--prefix transient--suffixes nil 0 message "%s-" key-description this-command-keys "%s- [%s] %s" eieio-oref command mapconcat identity sort cl-mapcan #[257 "\302\303\304\"!\303\305\"\306\"\306 \"\307BB>?\205#\310\303\304\"\311\312#C\207" [transient-map transient-sticky-map kbd eieio-oref key command lookup-key (transient-set transient-save transient-history-prev transient-history-next transient-quit-one transient-toggle-common transient-set-level) propertize face transient-key] 7 "\n\n(fn SUFFIX)"] string< propertize "|" face transient-unreachable-key] 11]) (defalias 'transient--show #[0 "\306 \210\307\310 !\311rq\210\n\203(\312`\313\"\206&o\204$\312`S\313\"\206&\314 \262\315 \210\307\316\304!\2039\f\2039\311\3110\317=?\205E01\320\3212\313\"!3\n\203^\322\323!\210\324\202a\3114\311\21156\325 \2107\204t8\203w\326 \2100\317=\203\2709\203\270\327 \205\214\3302!\211\203\242\331:\332Y\205\231\333\334\335!D\"\202\243\336\262\337\340\341\342\343%c\210\337\344\341\345\307%c\266;\203\300\346 \210)\347" transient-key "?" "C-g" "Type a %s to set level for that suffix command.\nType %s to set what levels are available for this prefix command.\n" "C-x l" "\nSuffixes on levels %s are available.\nSuffixes on levels %s and %s are unavailable.\n" "1-%s" slot-value level transient-enabled-suffix " 0 " transient-disabled-suffix ">=%s"] 11])#@200 Keymap for `transient-resume-mode'. This keymap remaps every command that would usually just quit the documentation buffer to `transient-resume', which additionally resumes the suspended transient. (defvar transient-resume-mode-map (define-keymap " " 'transient-resume " " 'transient-resume " " 'transient-resume) (#$ . 148658))#@111 Non-nil if Transient-Resume mode is enabled. Use the command `transient-resume-mode' to change this variable. (defvar transient-resume-mode nil (#$ . 149049)) (make-variable-buffer-local 'transient-resume-mode)#@635 Auxiliary minor-mode used to resume a transient after viewing help. This is a minor mode. If called interactively, toggle the `Transient-Resume 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 `transient-resume-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'transient-resume-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\321\203[\322\202\\\323\324$\210\210\325 \210\207" [transient-resume-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks transient-resume-mode-hook transient-resume-mode-on-hook transient-resume-mode-off-hook called-interactively-p any message "%s %sabled%s" "Transient-Resume mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 149266) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar transient-resume-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [transient-resume-mode-map transient-resume-mode-hook variable-documentation put "Hook run after entering or leaving `transient-resume-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 add-minor-mode transient-resume-mode boundp] 6)#@53 Toggle debugging statements for transient commands. (defalias 'transient-toggle-debug #[0 "?\301\302\203 \303\202\304\"\207" [transient--debug message "Debugging transient %s" "enabled" "disabled"] 3 (#$ . 151146) nil])#@58 Inform the user how to enable popup navigation commands. (defalias 'transient-popup-navigation-help #[0 "\300\301\302\"\207" [message "This command is only available if `%s' is non-nil" transient-enable-popup-navigation] 3 (#$ . 151377) nil]) (define-button-type 'transient 'face nil 'keymap transient-button-map)#@115 Move to the previous button in the transient popup buffer. See `backward-button' for information about N. (fn N) (defalias 'transient-backward-button #[257 "\301!r\302\303\"\216\304@\305\"\210\306\307\"*\207" [transient--window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord backward-button t] 5 (#$ . 151697) "p"])#@110 Move to the next button in the transient popup buffer. See `forward-button' for information about N. (fn N) (defalias 'transient-forward-button #[257 "\301!r\302\303\"\216\304@\305\"\210\306\307\"*\207" [transient--window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord forward-button t] 5 (#$ . 152116) "p"])#@16 (fn COMMAND) (defalias 'transient--goto-button #[257 "\211;\203\300\301\302!P\303\304#\205H\305\224b\207\211\205H\3061$\307\310!0\202(\210\2026\2036\311\312`!\313\"=\203\311\312`!\313\"=?\205Heb\210\307\310!\207" [re-search-forward "^" regexp-quote nil t 0 (error) forward-button 1 button-get button-at command] 5 (#$ . 152527)]) (defalias 'transient--heading-at-point #[0 "\300`\301\"\302=\205\303 \304\305\301\306\307 $\"\262\207" [get-text-property face transient-heading line-beginning-position buffer-substring-no-properties next-single-property-change nil line-end-position] 8]) (defvar transient--isearch-mode-map (define-keymap :parent isearch-mode-map " " 'transient-isearch-exit " " 'transient-isearch-cancel " " 'transient-isearch-abort))#@135 Do incremental search backward. With a prefix argument, do an incremental regular expression search instead. (fn &optional REGEXP-P) (defalias 'transient-isearch-backward #[256 "\302 \210\303\304\")\207" [transient--isearch-mode-map isearch-mode-map transient--isearch-setup isearch-mode nil] 4 (#$ . 153370) "P"])#@134 Do incremental search forward. With a prefix argument, do an incremental regular expression search instead. (fn &optional REGEXP-P) (defalias 'transient-isearch-forward #[256 "\302 \210\303\304\")\207" [transient--isearch-mode-map isearch-mode-map transient--isearch-setup isearch-mode t] 4 (#$ . 153695) "P"])#@50 Like `isearch-exit' but adapted for `transient'. (defalias 'transient-isearch-exit #[0 "\300 \210\301 \207" [isearch-exit transient--isearch-exit] 1 (#$ . 154015) nil])#@52 Like `isearch-cancel' but adapted for `transient'. (defalias 'transient-isearch-cancel #[0 "\3001 \301 0\210\202\f\210\302 \207" [(quit) isearch-cancel transient--isearch-exit] 1 (#$ . 154189) nil])#@51 Like `isearch-abort' but adapted for `transient'. (defalias 'transient-isearch-abort #[0 "\300\301\302\303#\210\304\305\"\216\306 )\207" [#[257 "\3001 \211 0\210\202\f\210\301 \207" [(quit) transient--isearch-exit] 2 "\n\n(fn FN)"] advice-add isearch-cancel :around make-closure #[0 "\301\302\300\"\207" [V0 advice-remove isearch-cancel] 3] isearch-abort] 5 (#$ . 154395) nil]) (defalias 'transient--isearch-setup #[0 "\301!\210\302\303!\207" [transient--window select-window transient--suspend-override t] 2]) (defalias 'transient--isearch-exit #[0 "\301!\210\302 \207" [transient--original-window select-window transient--resume-override] 2]) (defalias 'transient--semantic-coloring-p #[0 "\205 ?\205 \n?\207" [transient-semantic-coloring transient--helpp transient--editp] 1])#@16 (fn COMMAND) (defalias 'transient--suffix-color #[257 "\211\300N\206 \301!\300N\207" [transient-color transient--get-predicate-for] 3 (#$ . 155190)])#@16 (fn COMMAND) (defalias 'transient--prefix-color #[257 "\300\301\"\206\302\211\303>\203\304\202\211\305N\300\306\"\211\203#\211\305N\202.\307=\203-\307\202.\310\262\211D\211:\203B\211\242\211\311=\203\250\243\211:\203f\211\243\211\204O\311\207\312\267\202_\313\207\314\207\315\207\307\207\310\207\211?\205e\311\207\316\267\202v\313\207\314\207\315\207\307\207\310\207\211:\205\247\211\243\211\204\205\311\202\245\317\267\202\237\313\202\245\314\202\245\315\202\245\307\202\245\310\202\245\211?\205\245\311\262\207\320\267\202\270\313\207\314\207\315\207\307\207\310\207\211\311=\205A\243\211:\203\364\211\243\211\204\317\311\202\357\321\267\202\351\313\202\357\314\202\357\315\202\357\307\202\357\310\202\357\211?\205\357\311\262\202?\322\267\202\313\202?\314\202?\315\202?\307\202?\310\202?\211:\205?\211\243\211\204\311\202=\323\267\2027\313\202=\314\202=\315\202=\307\202=\310\202=\211?\205=\311\262\262\207\211\324\267\202R\313\207\314\207\315\207\307\207\310\207\211:\205\212\211\242\211\311=\203\345\243\211:\203\225\211\243\211\204p\311\202\220\325\267\202\212\313\202\220\314\202\220\315\202\220\307\202\220\310\202\220\211?\205\220\311\262\202\340\326\267\202\257\313\202\340\314\202\340\315\202\340\307\202\340\310\202\340\211:\205\340\211\243\211\204\276\311\202\336\327\267\202\330\313\202\336\314\202\336\315\202\336\307\202\336\310\202\336\211?\205\336\311\262\262\202\210\330\267\202\377\313\202\210\314\202\210\315\202\210\307\202\210\310\202\210\211\311=\205\210\243\211:\203;\211\243\211\204\311\2026\331\267\2020\313\2026\314\2026\315\2026\307\2026\310\2026\211?\2056\311\262\202\206\332\267\202U\313\202\206\314\202\206\315\202\206\307\202\206\310\202\206\211:\205\206\211\243\211\204d\311\202\204\333\267\202~\313\202\204\314\202\204\315\202\204\307\202\204\310\202\204\211?\205\204\311\262\262\262\207" [eieio-oref transient-non-suffix transient--do-warn (transient--do-noop transient--do-warn) disallow transient-color transient-suffix transient-red transient-blue transient-purple #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1=(transient-red disallow) 85 #2=(transient-blue disallow) 87 #3=(transient-red transient-red) 89 #4=(transient-red transient-blue) 91 #5=(transient-blue transient-blue) 93)) transient-amaranth transient-teal transient-pink #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 108 #2# 110 #3# 112 #4# 114 #5# 116)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 139 #2# 143 #3# 147 #4# 151 #5# 155)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 174 #2# 176 #3# 178 #4# 180 #5# 182)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 213 #2# 217 #3# 221 #4# 225 #5# 229)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 250 #2# 254 #3# 258 #4# 262 #5# 266)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 291 #2# 295 #3# 299 #4# 303 #5# 307)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 328 #2# 330 #3# 332 #4# 334 #5# 336)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 374 #2# 378 #3# 382 #4# 386 #5# 390)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 411 #2# 415 #3# 419 #4# 423 #5# 427)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 452 #2# 456 #3# 460 #4# 464 #5# 468)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 491 #2# 495 #3# 499 #4# 503 #5# 507)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 540 #2# 544 #3# 548 #4# 552 #5# 556)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 577 #2# 581 #3# 585 #4# 589 #5# 593)) #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#1# 618 #2# 622 #3# 626 #4# 630 #5# 634))] 10 (#$ . 155349)]) (defalias 'transient--edebug-command-p #[0 "\302\300!\205\205 \303>\206\304\305\306 !\"\207" [edebug-active this-command boundp (top-level abort-recursive-edit) string-prefix-p "edebug" symbol-name] 4]) (byte-code "\302\303\304Q\305E\211 \235\203 \202\211 B\262\302\207" [lisp-mode-symbol-regexp lisp-imenu-generic-expression nil "^\\s-*(\\(transient-define-\\(?:argument\\|\\(?:in\\|pre\\|suf\\)fix\\)\\)\\s-+\\(" "\\)" 2] 4) (defalias 'transient--suspend-which-key-mode #[0 "\301\300!\205\205\300\302!\210\303\304\305\"\207" [which-key-mode boundp -1 add-hook transient-exit-hook transient--resume-which-key-mode] 3]) (defalias 'transient--resume-which-key-mode #[0 "?\205 \301\302!\210\303\304\305\"\207" [transient--prefix which-key-mode 1 remove-hook transient-exit-hook transient--resume-which-key-mode] 3])#@796 Modify some keymaps to bind "q" to the appropriate quit command. "C-g" is the default binding for such commands now, but Transient's predecessor Magit-Popup used "q" instead. If you would like to get that binding back, then call this function in your init file like so: (with-eval-after-load \='transient (transient-bind-q-to-quit)) Individual transients may already bind "q" to something else and such a binding would shadow the quit binding. If that is the case then "Q" is bound to whatever "q" would have been bound to by setting `transient-substitute-key-function' to a function that does that. Of course "Q" may already be bound to something else, so that function binds "M-q" to that command instead. Of course "M-q" may already be bound to something else, but we stop there. (defalias 'transient-bind-q-to-quit #[0 "\303\304\305#\210\303 \304\306#\210\307\211\207" [transient-base-map transient-sticky-map transient-substitute-key-function keymap-set "q" transient-quit-one transient-quit-seq transient-rebind-quit-commands] 4 (#$ . 160522)])#@43 See `transient-bind-q-to-quit'. (fn OBJ) (defalias 'transient-rebind-quit-commands #[257 "\300\301\"\211\302\230\203\f\303\207\211\303\230\203\304\207\207" [eieio-oref key "q" "Q" "M-q"] 4 (#$ . 161592)]) (defalias 'transient--force-fixed-pitch #[0 "\300\301!\210\302\303!\210\304\303\305\"\207" [require face-remap face-remap-reset-base default face-remap-add-relative fixed-pitch] 3])#@40 (fn FUNCTION SEQUENCE INITIAL-VALUE) (defalias 'transient--seq-reductions-from #[771 "\211CC\300\301\302#\"\210\211\242\237\207" [seq-do make-closure #[257 "\300\301\300\242@\"\300\242B\240\207" [V0 V1] 5 "\n\n(fn ELT)"]] 9 (#$ . 161989)])#@14 (fn PLIST) (defalias 'transient-plist-to-alist #[257 "\300\2032\211A\262\242\301!\211\302H\303=\203!\304\305\300O!\266\202\202$\266\202\211A\262\242BB\262\202\211\237\207" [nil symbol-name 0 58 intern 1] 8 (#$ . 162241)]) (defconst transient-font-lock-keywords '(("(\\(transient-define-\\(?:argument\\|groups\\|\\(?:in\\|pre\\|suf\\)fix\\)\\)\\_>[ '(]*\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 'font-lock-keyword-face) (2 'font-lock-function-name-face nil t)))) (byte-code "\301\302\"\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [transient-font-lock-keywords font-lock-add-keywords emacs-lisp-mode defalias transient-lisp-variable-p eieio-make-class-predicate transient-lisp-variable transient-lisp-variable--eieio-childp eieio-make-child-predicate transient-lisp-variable-child-p make-obsolete "use (cl-typep ... 'transient-lisp-variable) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-variable) ((reader :initform #'transient-lisp-variable--reader) (always-read :initform t) (set-value :initarg :set-value :initform #'set)) (:documentation "[Experimental] Class used for Lisp variables.")] 6)#@80 Create a new object of class type `transient-lisp-variable'. (fn &rest SLOTS) (defalias 'transient-lisp-variable #[128 "\300\301\302#\207" [apply make-instance transient-lisp-variable] 5 (#$ . 163482)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-lisp-variable compiler-macro transient-lisp-variable--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'transient-lisp-variable--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 163825)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\210\300\314\302\315\302\316%\210\300\317\302\320\312\321%\207" [cl-generic-define-method transient-init-value nil ((obj transient-lisp-variable)) #[257 "\300\301\302\303\"J#\207" [eieio-oset value eieio-oref variable] 7 "\n\n(fn OBJ)"] transient-infix-set ((obj transient-lisp-variable) value) #[514 "\300\301\"\300\302\"\303\304#\"\207" [eieio-oref set-value variable eieio-oset value] 8 "\n\n(fn OBJ VALUE)"] transient-format-description ((obj transient-lisp-variable)) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "!\206\f\300\301\302\"!\207" [symbol-name eieio-oref variable] 6 "\n\n(fn CL--CNM OBJ)"]] 6 "\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"] transient-format-value ((obj transient-lisp-variable)) #[257 "\300\301\302\303\"!\304\305#\207" [propertize prin1-to-string eieio-oref value face transient-value] 6 "\n\n(fn OBJ)"] transient-prompt ((obj transient-lisp-variable)) #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\"\203\302\301\"\203!\207\303\304\302\305\"\"\207" [slot-boundp prompt eieio-oref format "Set %s: " variable] 7 "\n\n(fn CL--CNM OBJ)"]] 6 "\n\n(fn OBJ)"]] 5 "\n\n(fn CL--NM)"]] 6)#@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-lisp-variable--reader #[771 "\300\"\207" [read--expression] 6 (#$ . 165666)]) (provide 'transient)