;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310#\210\311\306\307\312#\210\305\313\314\310#\210\311\313\314\312#\210\305\315\316\310#\210\311\315\316\312#\210\305\317\320\310#\210\311\317\320\312#\210\321\322\323\310#\210\324\211\203h\211@\322N\203a\323N\204a\325\323\322N#\210A\266\202\202G\210\326\322\323\312#\210\321\327\330\310#\210\324\211\203\227\211@\327N\203\220\330N\204\220\325\330\327N#\210A\266\202\202v\210\326\327\330\312#\210\321\331\332\310#\210\324\211\203\306\211@\331N\203\277\332N\204\277\325\332\331N#\210A\266\202\202\245\210\326\331\332\312#\210\321\333\334\310#\210\324\211\203\365\211@\333N\203\356\334N\204\356\325\334\333N#\210A\266\202\202\324\210\326\333\334\312#\207" [require cl-lib eieio format-spec seq defalias define-transient-command transient-define-prefix nil make-obsolete "Transient 0.3.0" define-suffix-command transient-define-suffix define-infix-command transient-define-infix define-infix-argument transient-define-argument defvaralias current-transient-prefix transient-current-prefix (saved-value saved-variable-comment) put make-obsolete-variable current-transient-command transient-current-command current-transient-suffixes transient-current-suffixes post-transient-hook transient-exit-hook] 7) #@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 (#$ . 1400)])) (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 (#$ . 1807)]) (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& \207" [custom-declare-group transient nil "Transient commands." :group extensions custom-declare-variable transient-show-popup funcall function #[0 "\300\207" [t] 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 an incomplete prefix key sequence.\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 an incomplete prefix key sequence. Unless zero, then also show\n the popup after that many seconds of inactivity (using the\n 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" [nil] 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 non-nil, then the following\nfeatures are available:\n\n- \"\" moves the cursor to the previous suffix.\n \"\" moves the cursor to the next suffix.\n \"RET\" invokes the suffix the cursor is on.\n- \"\" invokes the clicked on suffix.\n- \"C-s\" and \"C-r\" start isearch in the popup buffer." (transient . "0.2.0") boolean transient-display-buffer-action #[0 "\300\207" [(display-buffer-in-side-window (side . bottom) (inhibit-same-window . t))] 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 buf 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\nan alist of the same form as ALIST. See `display-buffer' for\ndetails.\n\nThe default is:\n\n (display-buffer-in-side-window\n (side . bottom)\n (inhibit-same-window . t))\n\nThis displays the window at the bottom of the selected frame.\nAnother useful value is (display-buffer-below-selected). This\nis what `magit-popup' used by default. For more alternatives\nsee info node `(elisp)Display Action Functions'.\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 it doesn't work.\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] "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] "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] "Whether to use the last history element as initial minibuffer input." (transient . "0.2.0") transient-highlight-mismatched-keys #[0 "\300\207" [nil] 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 highlighed differently.\n\nThe highlighting is done using using `transient-mismatched-key'\nand `transient-nonstandard-key'." (transient . "0.1.0") transient-highlight-higher-levels #[0 "\300\207" [nil] 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] "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] "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] "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-force-fixed-pitch #[0 "\300\207" [nil] 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." (transient . "0.2.0") transient-force-single-column #[0 "\300\207" [nil] 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")] 10) (defconst transient--default-child-level 1) (defconst transient--default-prefix-level 4) (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314& \210\301\315\303\304\316DD\317\307\320\311\312\313\321& \210\301\322\303\304\323DD\324\307\325\311\312\313\321& \210\301\326\303\304\327DD\330\307\331\311\312\313\321& \210\301\332\303\304\333DD\334\307\335\311\312\313\336& \210\301\337\303\304\340DD\341\307\342\311\312\313\343& \210\344\345\346\347\311\312%\210\350\351\352\353\311\345%\210\350\354\355\356\311\345%\210\350\357\360\361\311\345%\210\350\362\363\364\311\345%\210\350\365\366\367\311\345%\210\350\370\371\372\311\345%\210\350\373\374\375\311\345%\210\350\376\377\201@\311\345%\210\350\201A\201B\201C\311\345%\210\350\201D\201E\201F\311\345%\210\350\201G\201H\201I\311\345%\210\350\201J\201K\201L\311\345%\210\350\201M\201N\201O\311\345%\210\350\201P\201Q\201R\311\345%\210\350\201S\201T\201U\311\345%\210\350\201V\201W\201X\201YY\205'\201Z\201[\"B\201\\\201X\201YY\205=\201]\201^\"BD\201_\311\345%\210\344\201`\201a\201b\311\345%\210\350\201c\201d\201e\311\201`%\210\350\201f\201g\201h\311\201`%\210\350\201i\201j\201k\311\201`%\210\350\201l\201m\201n\311\201`%\210\350\201o\201p\201q\311\201`%\207" [emacs-major-version custom-declare-variable transient-default-level funcall function #[0 "\207" [transient--default-prefix-level] 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\302!!\207" [locate-user-emacs-file convert-standard-filename "transient/levels.el"] 3] "File used to save levels of transients and their suffixes." (transient . "0.1.0") file transient-values-file #[0 "\300\301\302!!\207" [locate-user-emacs-file convert-standard-filename "transient/values.el"] 3] "File used to save values of transients." (transient . "0.1.0") transient-history-file #[0 "\300\301\302!!\207" [locate-user-emacs-file convert-standard-filename "transient/history.el"] 3] "File used to save history of transients and their infixes." (transient . "0.1.0") transient-history-limit #[0 "\300\207" [10] 1] "Number of history elements to keep when saving to file." (transient . "0.1.0") integer transient-save-history #[0 "\300\207" [t] 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." custom-declare-face transient-heading ((t :inherit font-lock-keyword-face)) "Face used for headings." transient-key ((t :inherit font-lock-builtin-face)) "Face used for keys." transient-argument ((t :inherit font-lock-warning-face)) "Face used for enabled arguments." transient-value ((t :inherit font-lock-string-face)) "Face used for values." transient-inactive-argument ((t :inherit shadow)) "Face used for inactive arguments." transient-inactive-value ((t :inherit shadow)) "Face used for inactive values." transient-unreachable ((t :inherit shadow)) "Face used for suffixes unreachable from the current prefix sequence." transient-active-infix ((t :inherit secondary-selection)) "Face used for the infix for which the value is being read." transient-unreachable-key ((t :inherit shadow)) "Face used for keys unreachable from the current prefix sequence." transient-nonstandard-key ((t :underline t)) "Face optionally used to highlight keys conflicting with short-argument.\nAlso see option `transient-highlight-mismatched-keys'." transient-mismatched-key ((t :underline t)) "Face optionally used to highlight keys without a short-argument.\nAlso see option `transient-highlight-mismatched-keys'." transient-inapt-suffix ((t :inherit shadow :italic t)) "Face used for suffixes that are inapt at this time." 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'." 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'." transient-higher-level ((t :underline t)) "Face optionally used to highlight suffixes on higher levels.\nAlso see option `transient-highlight-higher-levels'." transient-separator ((class color) (background light)) append 27 (:extend t) (:background "grey80") ((class color) (background dark)) (: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." 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." transient-red ((t :inherit transient-key :foreground "red")) "Face used for red prefixes and suffixes." transient-blue ((t :inherit transient-key :foreground "blue")) "Face used for blue prefixes and suffixes." transient-amaranth ((t :inherit transient-key :foreground "#E52B50")) "Face used for amaranth prefixes." transient-pink ((t :inherit transient-key :foreground "#FF6EB4")) "Face used for pink prefixes." transient-teal ((t :inherit transient-key :foreground "#367588")) "Face used for teal prefixes."] 10) #@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 (#$ . 17142)]) #@18 (fn LIST FILE) (defalias 'transient--pp-to-file #[514 "\302\303!\304\"\210\305\306!\307\310\311$\262\211\312\313\304\"\314\315\"\216r\211q\210\316\211\317p\"+rq\210\320\316\211\316\321%\210*\207" [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 write-region 0] 11 (#$ . 17537)]) #@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) (#$ . 18009)) (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) (#$ . 18364)) (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) (#$ . 18719)) (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] 9 "\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 (#$ . 19310)]) (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) (man-page :initarg :man-page :initform nil) (info-manual :initarg :info-manual :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)) (: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 (#$ . 21178)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 21486)]) (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 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 (#$ . 23276)]) (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) (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 (#$ . 25060)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 25368)]) (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 (#$ . 26652)]) (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 (#$ . 27380)]) (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 (#$ . 28125)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 28433)]) (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 (#$ . 29208)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 29516)]) (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 (#$ . 30369)]) (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 (#$ . 31207)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 31525)]) (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-infix) nil (:documentation "Class used for the \"--\" argument.\nAll remaining arguments are treated as files.\nThey become the value of this 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 (#$ . 32363)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 32666)]) (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 (#$ . 33626)]) (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 (#$ . 34350)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 34658)]) (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 (#$ . 35412)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 35705)]) (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 string. Each subgroup represents a column. This\nclass 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 (#$ . 36656)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 36969)]) (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 (#$ . 37947)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 38270)]) #@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\2033\304BB\202=\304\305\306\307\303DDFE\310\303D\311BB\310\303D\312F\310\303D\313 \206[\314\315\303D BBBF\310\303D\316\303\317\320\321\" \"DF\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 cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--parse-child] 4 "\n\n(fn S)"]] 32 (#$ . 38510)])) (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\307F\305\303D\310\n\206E\311\312\303D\fBBBF\257\207" [transient--expand-define-args progn defalias quote lambda put ('interactive-only t) 'function-documentation 'transient--suffix transient-suffix :command] 28 (#$ . 41016)])) (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) #@1342 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-suffix-command' 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\304 E\305\303D\306BB\305\303D\307F\305\303D\310 \206>\311\312\303D BBBF\257\207" [transient--expand-define-args progn defalias quote transient--default-infix-command put ('interactive-only t) 'function-documentation 'transient--suffix transient-switch :command] 26 (#$ . 42361)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\304\301\307\310#\311\312\313\314#\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-infix-command "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) #@13 (fn ARGS) (defalias 'transient--expand-define-args #[257 "\300\211\211\211@;\203\211A\262\242\262\301@!\203@\211A\262\242\211A\262\242\302=\2031\262\210\202B\262\211B\262\266\202@\303!\206N\211\205N\2119\262\203`\211A\262\242B\262\202@\242\304=\203mA@\202n\237\237\257\207" [nil keywordp :class vectorp quote] 10 (#$ . 44746)]) #@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 (#$ . 45129)]) #@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@!\203Y\211A\262\242\211\306=\203I\211A\262\242\262\210\202*\303\211A\262 \242#\266\202\202*\307\206_\206p\310@!\203o\311\202p\312\313\314\315 \" \"$\207" [transient--default-child-level append nil plist-put :description keywordp :class vector vectorp transient-columns transient-column cl-mapcan make-closure #[257 "\301\300\"\207" [V0 transient--parse-child] 4 "\n\n(fn S)"]] 13 (#$ . 45664)]) #@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@;\204N@\242\305=\204N@9\203[\306@!\204[\306A@!\203[\303\307\211A\262\242#\262\310@!\203k\311\312@\"\210\202P@9\203\201\303\313\211A\262\242#\262\202P\306@!\203\267@;\204\267\211A\262\242\314\315\316\317\307\"\206\246\317\304\"#!\320\"\210\303\313#\266\203\202P@;\204\310@\203J@<\203J\211A\262\242\211<\203\354\303\321@#\262\303\322A@#\262\211A@\262\202\211;\203\323!\211\203\377\303\321#\262\210\303\322#\262\303\313\314\315\316 #!#\262@\2035\310@!\2045\324\262\303\325\211A\262 \242#\266\202\202P\326\327\"\204C\330\262\210\202P\324\262\210\202P\311\331@\"\210\310@!\203\213\211A\262\242\211\332\267\202{\211A\262\242\262\210\202P\211A\262\242\262\210\202P\303\211A\262 \242#\266\202\202P\317\304\"\204\242\317\321\"\211\203\241\303\304#\262\210\206\247\206\254\333E\207" [transient--default-child-level nil vectorp plist-put :key lambda commandp :description keywordp error "Need command, got %S" :command intern format "transient:%s:%s" plist-get defalias :shortarg :argument transient--derive-shortarg 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 355 :level 367)) transient-suffix] 14 (#$ . 46260)]) (defalias 'transient--default-infix-command #[0 "\300\301B\207" [lambda (nil (interactive) (let ((obj (transient-suffix-object))) (transient-infix-set obj (transient-infix-read obj))) (transient--show))] 2]) #@12 (fn OBJ) (defalias 'transient--ensure-infix-command #[257 "\300\301\"\302!\206 \211\303N?\205(\304!\204\305!\203$\306\303\307 #\207\310\311\"\207" [eieio-oref command commandp transient--infix-command transient-switch--eieio-childp transient-option--eieio-childp put transient--default-infix-command error "Suffix %s is not defined or autoloaded as a command"] 6 (#$ . 48012)]) #@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 evaporate] 3] string-match "\\`\\(-[a-zA-Z]\\)\\(\\'\\|=\\)" match-string 1] 5 (#$ . 48409)]) #@33 (fn PREFIX LOC SUFFIX ACTION) (defalias 'transient--insert-suffix #[1028 "\300!\203 \301\"\202+<\203\302\"\202+;\203\"\202+\303\304\305#\205+\306\307\"\211@\204@\310\311  $\207\300!\203L\300!\203b<\203W\300!\204b;\203m\300!\203m\310\312  \313%\207<\203\251\211<\203\251\314!\315!\315\314!!\232\203\242\316!\316!\203\232\211\203\232\232\203\235\317\262\266\202\251\320\"\266\321\267\202\305AB\241\210\240\207AB\241\207\240\207\303\322\323#\205\316\306\207" [vectorp transient--parse-group transient--parse-suffix error "cl-etypecase failed: %s, %s" (vector list string) nil transient--layout-member 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 transient--kbd transient--suffix-predicate replace transient-remove-suffix #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (insert 175 append 186 replace 193)) "cl-ecase failed: %s, %s" (insert append replace)] 13 (#$ . 48689)]) #@450 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). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC SUFFIX) (defalias 'transient-insert-suffix #[771 "\300\301$\207" [transient--insert-suffix insert] 8 (#$ . 49786)]) (byte-code "\300\301\302\303#\300\207" [function-put transient-insert-suffix lisp-indent-function defun] 4) #@449 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). See info node `(transient)Modifying Existing Transients'. (fn PREFIX LOC SUFFIX) (defalias 'transient-append-suffix #[771 "\300\301$\207" [transient--insert-suffix append] 8 (#$ . 50461)]) (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 (#$ . 51135)]) (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 (#$ . 51822)]) (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 (#$ . 52378)]) #@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\211<\203\211AA\301\302\234#\240\207\211\302\301\302\234#I\207" [transient-get-suffix plist-put 2] 12 (#$ . 52870)]) #@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 (#$ . 53527)]) #@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\2038\304\306\307\"@\304H\"I\210\310\207\307\"\207" [seq-some make-closure #[257 "\302\300\301#\207" [V0 V1 transient--layout-member-1] 5 "\n\n(fn ELT)"] vectorp 3 #[257 "\302\300\301#\207" [V0 V1 transient--layout-member-1] 5 "\n\n(fn ELT)"] delq transient--group-member nil] 9 (#$ . 54029)]) #@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 (#$ . 54490)]) #@13 (fn KEYS) (defalias 'transient--kbd #[257 "\300!\203 \301!\262\211;\203\302!\262\207" [vectorp key-description kbd] 3 (#$ . 54830)]) #@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 (#$ . 54979)]) #@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 (#$ . 55148)]) #@15 (fn N LIST) (defalias 'transient--nthcdr #[514 "\300W\203\211G\301!Z\202\233\207" [0 abs] 5 (#$ . 55451)]) #@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 (#$ . 55575)) #@166 The transient from which this suffix command was invoked. This is a symbol representing that transient, use `current-transient-object' to get the respective object. (defvar transient-current-command nil (#$ . 55801)) #@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 (#$ . 56025)) #@37 Hook run after exiting a transient. (defvar transient-exit-hook nil (#$ . 56359)) (defvar transient--prefix nil) (defvar transient--layout nil) (defvar transient--suffixes nil) #@28 Do not exit the transient. (defconst transient--stay t (#$ . 56542)) #@24 Do exit the transient. (defconst transient--exit nil (#$ . 56617)) #@32 Whether to exit the transient. (defvar transient--exitp nil (#$ . 56690)) #@50 Whether the transient is show in a popup buffer. (defvar transient--showp nil (#$ . 56770)) #@30 Whether help-mode is active. (defvar transient--helpp nil (#$ . 56868)) #@30 Whether edit-mode is active. (defvar transient--editp nil (#$ . 56946)) #@39 The active infix awaiting user input. (defvar transient--active-infix nil (#$ . 57024)) (defvar transient--timer nil) (defvar transient--stack nil) #@31 Name of the transient buffer. (defvar transient--buffer-name " *transient*" (#$ . 57178)) #@49 The window used to display the transient popup. (defvar transient--window nil (#$ . 57274)) #@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 (#$ . 57373)) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\207" [defvaralias transient--source-buffer transient--original-buffer nil (saved-value saved-variable-comment) put make-obsolete-variable "Transient 0.2.0"] 7) #@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 (#$ . 57849)) #@48 Whether put debug information into *Messages*. (defvar transient--debug nil (#$ . 58028)) (defvar transient--history nil) (defvar transient--scroll-commands '(transient-scroll-up transient-scroll-down mwheel-scroll scroll-bar-toolkit-scroll)) #@1515 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, whose command definition usually (at least when defined using `transient-define-infix') is this: (lambda () (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 \203&\311\312\313\"\n\206$ \"\207\211\206+\f\314N\211\2054\315!\211\205A\316!\210\317!\210\211\207" [transient--prefix transient-current-prefix transient--suffixes transient-current-suffixes this-command commandp signal wrong-type-argument command cl-find-if make-closure #[257 "\302!\300\206 =\207" [V0 this-original-command transient--suffix-command] 3 "\n\n(fn OBJ)"] transient--suffix clone transient-init-scope transient-init-value] 6 (#$ . 58279)]) #@252 Return the command represented by OBJECT. If the value of OBJECT's `command' slot is a command, then return that. Otherwise it is a symbol whose `transient--infix-command' property holds an anonymous command, which is returned instead. (fn OBJECT) (defalias 'transient--suffix-command #[257 "\300!\204\301\302\303\304E\"\210\305\306\"\307!\203\207\211\310N\207" [transient-suffix--eieio-childp signal wrong-type-argument transient-suffix object eieio-oref command commandp transient--infix-command] 6 (#$ . 60363)]) #@213 Return a symbol representing ARG. ARG must be a command and/or a symbol. If it is a symbol, then just return it. Otherwise return the symbol whose `transient--infix-command' property's value is ARG. (fn ARG) (defalias 'transient--suffix-symbol #[257 "\300!\204\2119\204\301\302\303D\"\210\2119\203\207\304 \305\306\"\211\307N=\203'\207\31022\311\312\313\"!0\207" [commandp signal wrong-type-argument (command symbol) transient-suffix-object eieio-oref command transient--infix-command found mapatoms make-closure #[257 "\211\301N\300=\205\f\302\303\"\207" [V0 transient--infix-command throw found] 4 "\n\n(fn SYM)"]] 7 (#$ . 60897)]) #@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 (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\303#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\312#\210\301\316\314#\210\207" [make-sparse-keymap define-key "" transient-quit-all "" transient-quit-one "" "" transient-suspend "" transient-scroll-up [134217750] transient-scroll-down [next] [prior]] 5) (#$ . 61557)) #@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 (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\207" [transient-base-map make-sparse-keymap set-keymap-parent define-key "" universal-argument [67108909] negative-argument "" transient-show "?" transient-help "" [134217744] transient-history-prev [134217742] transient-history-next] 5) (#$ . 62546)) #@63 Keymap that is active while a transient in is in "edit mode". (defvar transient-edit-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\207" [transient-base-map make-sparse-keymap set-keymap-parent define-key "?" transient-help "" "l" transient-set-level] 5) (#$ . 63153)) #@67 Keymap that is active while an incomplete key sequence is active. (defvar transient-sticky-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [transient-base-map make-sparse-keymap set-keymap-parent define-key "" transient-quit-seq] 5) (#$ . 63471)) (defvar transient--common-command-prefixes '(24)) (byte-code "\300\301\302\303\304\305\"#\207" [put transient-common-commands transient--layout cl-mapcan #[257 "\300\301\"\207" [transient--parse-child transient-common-commands] 4 "\n\n(fn S)"] ([:hide (lambda nil (and (not (memq (car transient--redisplay-key) transient--common-command-prefixes)) (not transient-show-common-commands))) ["Value commands" ("C-x s " "Set" transient-set) ("C-x C-s" "Save" transient-save) ("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 (lambda nil (if transient-show-common-commands "Hide common commands" "Show common permanently"))) ("C-x l" "Show/hide suffixes" transient-set-level)]])] 6) #@710 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#\210\301\304\303#\210\301\305\306#\210\301\307\306#\210\301\310\306#\210\301\311\306#\210\301\312\306#\210\301\313\306#\210\301\314\306#\210\301\315\316#\210\301\317\320#\210\301\321\306#\210\301\322\306#\210\301\323\306#\210\301\324\306#\210\301\325\326#\210\301\327\326#\210\301\330\306#\210\301\331\306#\210\301\332\306#\210\301\333\306#\210\301\334\306#\210\301\335\306#\210\301\336\337#\210\301\340\341#\210\301\342\341#\210\301\343\341#\210\301\344\341#\210\301\345\341#\210\301\346\341#\210\207" [make-sparse-keymap define-key [handle-switch-frame] transient--do-suspend [transient-suspend] [transient-help] transient--do-stay [transient-set-level] [transient-history-prev] [transient-history-next] [universal-argument] [negative-argument] [digit-argument] [transient-quit-all] transient--do-quit-all [transient-quit-one] transient--do-quit-one [transient-quit-seq] [transient-show] [transient-update] [transient-toggle-common] [transient-set] transient--do-call [transient-save] [describe-key-briefly] [describe-key] [transient-scroll-up] [transient-scroll-down] [mwheel-scroll] [scroll-bar-toolkit-scroll] [transient-noop] transient--do-noop [transient-mouse-push-button] transient--do-move [transient-push-button] [transient-backward-button] [transient-forward-button] [transient-isearch-backward] [transient-isearch-forward]] 5) (#$ . 64700)) (defvar transient--transient-map nil) (defvar transient--predicate-map nil) (defvar transient--redisplay-map nil) (defvar transient--redisplay-key nil) #@12 (fn MAP) (defalias 'transient--push-keymap #[257 "\300\301\211J\203\f\302\202 \303#\210\3041\305J\306\"0\207\307\310\"\210\311\207" [transient--debug " push %s%s" "" " VOID" (debug error) internal-push-keymap overriding-terminal-local-map message "transient--push-keymap: %S" nil] 5 (#$ . 67013)]) #@12 (fn MAP) (defalias 'transient--pop-keymap #[257 "\300\301\211J\203\f\302\202 \303#\210\3041\305J\306\"0\207\307\310\"\210\311\207" [transient--debug " pop %s%s" "" " VOID" (debug error) internal-pop-keymap overriding-terminal-local-map message "transient--pop-keymap: %S" nil] 5 (#$ . 67328)]) (defalias 'transient--make-transient-map #[0 "\306 \307\203\f \202 \n\"\210 \211\203w\211@\310\311\"\312!\203+\313!\262\314\311#\210\f\203D\315 \316\317\"\216\f!)\262\262\314\311#\210\320!\321! \205S\322\"\211\203g=\204g\323\324\325!$\210\210\326#\266A\266\202\202\210\203\205\327D!\262\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 evaporate] 3] kbd transient--suffix-command transient--lookup-key error "Cannot bind %S to %s and also %s" string-trim define-key make-composed-keymap transient-enable-popup-navigation transient-popup-navigation-map] 12]) (defalias 'transient--make-predicate-map #[0 "\303 \304\"\210 \211\203\220\211@\305\306\"\2119\205\211\302N\307!\305\310\"\2031\311\312!\313#\266\202\211\314\315\"\203f\311\312!\305\315\"\211\316=\203U\203Q\317\202^\320\202^\211\204]\321\202^\211\262#\266\202\211\322\312!\"\204\207\311\312!\203}\317\202\205\305\n\323\"\206\205\321#\210\266A\266\202\202\210\207" [transient-predicate-map transient--suffixes transient--prefix make-sparse-keymap set-keymap-parent eieio-oref command transient--suffix-symbol inapt define-key vector transient--do-warn-inapt slot-boundp transient t transient--do-replace transient--do-stay 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\" \203H\324 \317 !\"\202I \"\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] 8]) #@430 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\310 \311V\203\312\313\"\210\3141|\315\2043\316\302!\210\316\317!\210\320 \321\"\262\322\320 \323\"D\262\202V\n\203B\316\302!\210\316\317!\210\202V\204P \204P\324 \210\202V\203V\325\326#\210\327 !\210\330 \331 \332 \333 !p\"\334 \210\335 \210\336 )0\207\337 \210\340@A\"\207" [debugger transient--prefix transient--transient-map transient-current-command transient--editp transient--predicate-map transient--debug setup minibuffer-depth 0 user-error "Cannot invoke transient %s while minibuffer is active" (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 transient--redisplay transient--init-transient transient--suspend-which-key-mode transient--emergency-exit signal transient--original-window transient--original-buffer] 8 (#$ . 70035)]) (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 (#$ . 72057)]) #@30 (fn NAME &optional PARAMS) (defalias 'transient--init-prefix #[513 "\302N\303\304\305\306\307\310\307 \"\"\206 &\262\311!\210\207" [transient-levels transient-default-level transient--prefix apply clone :prototype :level alist-get t transient-init-value] 14 (#$ . 72323)]) #@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 (#$ . 72616)]) #@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 (#$ . 72941)]) #@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 (#$ . 73337)]) #@20 (fn LEVELS SPEC) (defalias 'transient--init-group #[514 "\300\301\"\211\242\243\211\242\243\211\242\243\211\242\243\302!\205H\303\304$\305!\205F\306\307\310\"\311\"\"\211\205D\312\313#\210C\262\262\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] 21 (#$ . 73632)]) #@20 (fn LEVELS SPEC) (defalias 'transient--init-suffix #[514 "\211\242\243\211\242\243\211\242\243\300\301\"\302\303! \"\2069\205%K\211\211\242\304=\262\2038\305\306\"\210\307!\210\210\310!\205\214\205K9\205K\311N\211\203Z\312\313\314%\202a\312\314$\262\315!\210\316!\210\317!\205\212\320!\203\200\321\322\323#\210\202\210\324!\210\325!\210\211C\262\207" [plist-get :command alist-get transient--suffix-symbol autoload transient--debug " autoload %s" autoload-do-load transient--use-level-p transient--suffix apply clone :level transient--init-suffix-key transient--ensure-infix-command transient--use-suffix-p transient--inapt-suffix-p eieio-oset inapt t transient-init-scope transient-init-value] 20 (#$ . 74098)]) (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)) t #[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) #@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 (#$ . 75536)]) #@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 (#$ . 75733)]) #@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 (#$ . 76030)]) #@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 (#$ . 76379)]) #@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 (#$ . 76778)]) (defalias 'transient--init-transient #[0 "\301\302!\210\303\304!\210\303\305!\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\317\320\321\314#\210\205-\322\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 minibuffer-setup-hook transient--minibuffer-setup minibuffer-exit-hook transient--minibuffer-exit post-command-hook transient--post-command advice-add abort-recursive-edit :after replace] 4]) (defalias 'transient--pre-command #[0 "\306\307!\210\310>\203\311\312!\207 \203/\313>\204/\314 \203%\315 \210\316\317 \207\320 ?\205\204\321\211\207\n\203B\322 \203B\323>\204B\324\211\207\325\326\f!\211\203_\211 \211 =\203Y \206X\327\211\262\202{\330 \211GSH\331=\262\203r\332\202y\320 \204y\321\262 =\205\204\317 \207" [this-command transient--helpp transient--editp transient--exitp this-original-command transient--exit transient--debug pre-command (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 nil transient--get-predicate-for t this-command-keys-vector 7 transient-noop transient--stay] 4]) #@12 (fn CMD) (defalias 'transient--get-predicate-for #[257 "\302\303\304!!\"\206\305 \306\"\207" [transient--predicate-map transient--prefix lookup-key vector transient--suffix-symbol eieio-oref transient-non-suffix] 6 (#$ . 78693)]) (defalias 'transient--pre-exit #[0 "\306\307!\210\310 \210\311 \210\312\302!\210\312\304!\210\313\314\315\"\210\204\"\316\317\320!\210)\316\211\316\211\316\211\316\211\316\211\316\211\316\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 remove-hook pre-command-hook transient--pre-command nil message "" transient--helpp transient--editp transient--prefix transient--layout transient--suffixes transient--original-window transient--original-buffer transient--window] 4]) (defalias 'transient--delete-window #[0 "\301!\205 \302!\3031\304!0\210\202\305\306\"\266\307!\262\207" [transient--window window-live-p window-buffer (debug error) delete-window message "Error while exiting transient: %S" kill-buffer] 5]) (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]) (defalias 'transient--minibuffer-setup #[0 "\301\302!\210\303 \304V?\205!\204\305\306!\210\305\307!\210\310\311\312\"\210\310\313\314\"\207" [transient--exitp transient--debug minibuffer-setup minibuffer-depth 1 transient--pop-keymap transient--transient-map transient--redisplay-map remove-hook pre-command-hook transient--pre-command post-command-hook transient--post-command] 3]) (defalias 'transient--minibuffer-exit #[0 "\301\302!\210\303 \304V?\205!\204\305\306!\210\305\307!\210\310\311\312\"\210\310\313\314\"\207" [transient--exitp transient--debug minibuffer-exit minibuffer-depth 1 transient--push-keymap transient--transient-map transient--redisplay-map add-hook pre-command-hook transient--pre-command post-command-hook transient--post-command] 3]) #@35 (fn &optional MINIBUFFER-HOOKS) (defalias 'transient--suspend-override #[256 "\300\301!\210\302\303!\210\302\304!\210\305\306\307\"\210\305\310\311\"\210\211\205(\305\312\313\"\210\305\314\315\"\210\316\317\315\"\207" [transient--debug suspend-override transient--pop-keymap transient--transient-map transient--redisplay-map remove-hook pre-command-hook transient--pre-command post-command-hook transient--post-command minibuffer-setup-hook transient--minibuffer-setup minibuffer-exit-hook transient--minibuffer-exit advice-remove abort-recursive-edit] 4 (#$ . 80870)]) #@35 (fn &optional MINIBUFFER-HOOKS) (defalias 'transient--resume-override #[256 "\300\301!\210\302\303!\210\302\304!\210\305\306\307\"\210\305\310\311\"\210\211\205)\305\312\313\"\210\305\314\315\"\210\316\317\320\315#\207" [transient--debug resume-override transient--push-keymap transient--transient-map transient--redisplay-map add-hook pre-command-hook transient--pre-command post-command-hook transient--post-command minibuffer-setup-hook transient--minibuffer-setup minibuffer-exit-hook transient--minibuffer-exit advice-add abort-recursive-edit :after] 5 (#$ . 81449)]) (defalias 'transient--post-command #[0 "\306\307!\210\204\306\310!\210\311\312!\210\313 \210\314 \203` \315=\203*\n\204>\316\317 \210\204>\320\321\322\"\210\320\323\324\"\210\325\326\324\"\210\320\327\330\"\210\316\211\316$\205M \331>?\316\211%\316&\332\333!\210\211\205_\334 \207\335\336!\210\337 \340\336!\210\341\n\342\"=?\205x\343 \207" [this-command transient--exitp transient--prefix transient-current-prefix transient-current-command transient-current-suffixes transient--debug post-command "-- force pre-exit from post-command" message "Quit transient!" transient--pre-exit t replace nil transient--stack-zap remove-hook minibuffer-setup-hook transient--minibuffer-setup minibuffer-exit-hook transient--minibuffer-exit advice-remove abort-recursive-edit post-command-hook transient--post-command (replace suspend) run-hooks transient-exit-hook transient--stack-pop transient--pop-keymap transient--redisplay-map transient--make-redisplay-map transient--push-keymap eieio-oref command transient--redisplay transient--stack transient--helpp transient--editp] 5]) (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\305\211A\242\"\210\207" [transient--stack transient--debug stack-pop t apply transient-setup] 5]) (defalias 'transient--stack-zap #[0 "\301\302!\210\303\211\207" [transient--stack transient--debug stack-zap nil] 2]) (defalias 'transient--redisplay #[0 "\305=\204\n \203\n >?\205(\306 \207\247\203&\307U\204&\f\204&\310 \210\311 \207" [transient-show-popup transient--showp this-command transient--scroll-commands transient--timer t transient--show 0 transient--timer-start transient--show-brief] 2]) (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 "\205\"9\203\305\306\307 !\206 \n E\310\311 !\f%\207\312\305#\207" [transient--debug this-command this-original-command last-command transient--exitp message "-- %-16s (cmd: %s, event: %S, exit: %s)" transient--suffix-symbol key-description this-command-keys-vector apply] 8 (#$ . 84299)]) #@146 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-command] 2 (#$ . 84662)]) #@66 Call the command without exporting variables and stay transient. (defalias 'transient--do-stay #[0 "\207" [transient--stay] 1 (#$ . 85058)]) #@43 Call `transient-noop' and stay transient. (defalias 'transient--do-noop #[0 "\302 \207" [this-command transient--stay transient-noop] 1 (#$ . 85206)]) #@48 Call `transient-undefined' and stay transient. (defalias 'transient--do-warn #[0 "\302 \207" [this-command transient--stay transient-undefined] 1 (#$ . 85364)]) #@44 Call `transient-inapt' and stay transient. (defalias 'transient--do-warn-inapt #[0 "\302 \207" [this-command transient--stay transient-inapt] 1 (#$ . 85532)]) #@64 Call the command after exporting variables and stay transient. (defalias 'transient--do-call #[0 "\301 \210\207" [transient--stay transient--export] 1 (#$ . 85698)]) #@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 (#$ . 85871)]) #@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 (#$ . 86078)]) #@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 (#$ . 86319)]) #@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 (#$ . 86524)]) #@57 Exit all transients without saving the transient stack. (defalias 'transient--do-quit-all #[0 "\301 \210\207" [transient--exit transient--stack-zap] 1 (#$ . 86792)]) #@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 (#$ . 86966)]) (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\311#\210\300\313\302\311#\210\300\314\302\311#\210\300\315\302\311#\210\300\316\302\303#\207" [put transient--do-stay transient-color transient-blue transient--do-noop transient--do-warn transient--do-warn-inapt transient--do-call transient--do-exit transient-red transient--do-replace transient--do-suspend transient--do-quit-one transient--do-quit-all transient--do-move] 4) #@20 Do nothing at all. (defalias 'transient-noop #[0 "\300\207" [nil] 1 (#$ . 87827) 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 (#$ . 87920) nil]) #@50 Warn the user that the invoked command is inapt. (defalias 'transient-inapt #[0 "\300\301!\207" [transient--invalid "Inapt command"] 2 (#$ . 88099) nil]) #@12 (fn MSG) (defalias 'transient--invalid #[257 "\301 \210\302\303\304\305\306 !\307\310#\304\311\307\312#\304\313\307\312#\304\314\315!!\307\310#&\207" [this-original-command 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 "?" symbol-name transient--suffix-symbol] 11 (#$ . 88259)]) #@50 Toggle whether common commands are always shown. (defalias 'transient-toggle-common #[0 "?\211\207" [transient-show-common-commands] 2 (#$ . 88667) 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 (#$ . 88830) nil]) #@57 Exit all transients without saving the transient stack. (defalias 'transient-quit-all #[0 "\300\207" [nil] 1 (#$ . 89023) nil]) #@66 Exit the current transients, possibly returning to the previous. (defalias 'transient-quit-one #[0 "\300\207" [nil] 1 (#$ . 89157) nil]) #@44 Abort the current incomplete key sequence. (defalias 'transient-quit-seq #[0 "\300\207" [nil] 1 (#$ . 89300) nil]) #@51 Redraw the transient's state in the popup buffer. (defalias 'transient-update #[0 "\300\207" [nil] 1 (#$ . 89421) nil]) #@49 Show the transient's state in the popup buffer. (defalias 'transient-show #[0 "\301\211\207" [transient--showp t] 2 (#$ . 89547) nil]) (defvar transient--restore-winconf nil nil) (make-variable-buffer-local 'transient--restore-winconf) #@60 Show help for the active transient or one of its suffixes. (defalias 'transient-help #[0 "\305\306!\203\n\307\211\207\3101@\311 \312 \"\205>\313\314 \315\n\316=\203% \202+\317 \206+\n!\210\320\313\321 \322 #\210\323 \210\324\325!\210\3070\207\324\326\"\210\313\207" [transient--helpp transient--transient-map this-original-command transient--prefix transient--restore-winconf called-interactively-p any 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"] 4 (#$ . 89790) nil]) #@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\203o\305 \306\"\307\n\"\310!=\203+\311 \312#\210\303\262\2025\311\313!\312#\210\211\236\203E\241\266\202QB\211\262B\262\266\n\236\203a\241\266\202lB\211\262\nB\266\314 \207\315 \207" [transient--editp transient--prefix transient-levels t transient-setup eieio-oref command alist-get transient--suffix-symbol eieio-oset level transient-suffix-object transient-save-levels transient-undefined] 9 (#$ . 90520) (byte-code "\305 \306\"\307=\203\n\205>\211\211\262\205>\310 \311 \"\205;\312\313!\314 \210\315\316\317\320!\"\321\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': " transient--suffix-symbol 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 (#$ . 91617) 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 (#$ . 91821) 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 (#$ . 92038) 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 (#$ . 92402) 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 (#$ . 92772) "^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 (#$ . 93241) "^P"]) #@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 (#$ . 93713) 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\306\311\304\332\304\333%\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)) t #[514 "\300\301\"\203\302\301\"!\207!\207" [slot-boundp init-value eieio-oref] 5 "If bound, then call OBJ's `init-value' function.\nOtherwise call the primary method according to objects class.\n\n(fn CL--CNM OBJ)"] (:around) ((obj transient-infix)) #[514 "\300\301\"\203\302\301\"!\207!\207" [slot-boundp init-value eieio-oref] 5 "If bound, then call OBJ's `init-value' function.\nOtherwise call the primary method according to objects class.\n\n(fn CL--CNM OBJ)"] ((obj transient-prefix)) #[257 "\301\302\"\203\f\303\302\"\207\304\302\303\305\"\236\211\203\211A\202;\301\306\"\205)\303\306\"\211\2059\307!\2038\211 \2029\211\262\262#\207" [transient-values slot-boundp value eieio-oref eieio-oset command default-value functionp] 8 "\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)"] ((obj transient-option)) #[257 "\300\301\302\303\304\305\306\"\"!#\207" [eieio-oset value transient--value-match format "\\`%s\\(.*\\)" eieio-oref argument] 10 "\n\n(fn OBJ)"] ((obj transient-switches)) #[257 "\300\301\302\303\304\"!#\207" [eieio-oset value transient--value-match eieio-oref argument-regexp] 8 "\n\n(fn OBJ)"]] 6) #@11 (fn RE) (defalias 'transient--value-match #[257 "\301\302\303\"\304\305\"\"\211\205\306\307\"\207" [transient--prefix cl-find-if make-closure #[257 "\211;\205 \301\300\"\207" [V0 string-match] 4 "\n\n(fn V)"] eieio-oref value match-string 1] 6 (#$ . 96867)]) (byte-code "\300\301\302\303\302\304%\210\305\306\307\306\310\302#\311#\210\300\306\312\313\314\315%\210\300\306\302\316\302\317%\210\300\306\302\320\302\321%\210\300\306\302\322\302\323%\210\300\306\302\324\302\325%\207" [cl-generic-define-method transient-init-value nil ((obj transient-files)) #[257 "\301\302\303\304\305\302\"\"A#\207" [transient--prefix eieio-oset value assoc "--" eieio-oref] 9 "\n\n(fn OBJ)"] defalias transient-infix-read cl-generic-define (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)) t #[514 "\211\302 \210)\3031\304!)0\207\305 \210\306@A\"\207" [transient--active-infix debugger transient--show (debug error) transient--exit-and-debug transient--emergency-exit signal] 6 "Highlight the infix in the popup buffer.\n\nAlso arrange for the transient to be exited in case of an error\nbecause otherwise Emacs would get stuck in an inconsistent state,\nwhich might make it necessary to kill it from the outside.\n\n(fn CL--CNM OBJ)"] ((obj transient-infix)) #[257 "\211\306\307\"\203 \306\310\"\204 \306\311\"\204 \203 \312\307\313#\207\313\314\315\"\316!\306\310\"\203;\317\320\306\307\"\321#\202?\306\307\"\314\322\"\206J\314\323\"\324\n\"\203Z @=\203^ \202a B\f\205h @\211\203r\303\325B\202s\303\203#\202\270\306\310\"\203\231\326\306 \327\"\313\211&\202\270\306\327\"\203\263\330\306 \327\"\313\331&\202\270\332#\211\333\232\203\314\306\334\"\204\314\313\262\202\335\211\335\232\203\335\306\334\"\203\335\333\262\211\203\336\305!\203\373 \203\373 @;\203\373\337\340 @G\313 @$\210\n\236\341 !\203 \241\266\202B\211\262\nB\266+\207" [transient--prefix overriding-terminal-local-map transient-history transient--history transient-read-with-initial-input ivy-mode slot-value value multi-value always-read eieio-oset nil eieio-oref reader transient-prompt mapconcat identity "," history-key command alist-get 1 completing-read-multiple choices completing-read t read-string "" allow-empty "\"\"" boundp set-text-properties 0 delete-dups] 15 "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 (#$ . 101328)]) #@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 (#$ . 101510)]) #@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 (#$ . 101730)]) #@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 (#$ . 101927)]) #@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 (#$ . 102163)]) #@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 (#$ . 102379)]) #@50 (fn PROMPT INITIAL-INPUT HISTORY INCLUDE-ZERO) (defalias 'transient--read-number-N #[1028 "\301 \302\303\"\216\3042T\305\306\211%\211\307\230\203\"\310\304\306\"\266\202@\203*\311\202+\312\306\313\314#)\266\203\203?\310\304\"\210\210\315\316\203J\317\202K\320\"\210\321\322!\210\202 )\207" [inhibit-changing-match-data match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] --cl-block-nil-- read-from-minibuffer nil "" throw "\\`\\(0\\|[1-9][0-9]*\\)\\'" "\\`[1-9][0-9]*\\'" t string-match message "Please enter a natural number (%s zero)." "including" "excluding" sit-for 1] 13 (#$ . 102596)]) #@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 (#$ . 103249)]) (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\306\315\304\316\304\317%\210\306\320\304\321\304\322%\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) t #[771 "\303\304\"\203\305\304\"\202\305\306\"\205\211\205\211\205#\305 \307\"\211\2052\310\311\312\313\"\"\"\211\203a\"\210\211\211\205`\211@\311\312\314\"\n\"\211\203X\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 remove cl-find-if make-closure #[257 "\300\235\207" [V0] 3 "\n\n(fn ELT)"] #[257 "\301\302\"\205 \303\302\"\300\232\207" [V0 slot-boundp argument eieio-oref] 4 "\n\n(fn OBJ)"] nil transient-infix-set] 13 "Unset incompatible infix arguments.\n\n(fn CL--CNM OBJ VALUE)"] transient-set-value ((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 transient-prefix)) #[257 "\301 \302\303\304\"\305#\210\303\306\"\211\236\203\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] 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\303\304!\"\"\207" [delq nil mapcar transient-infix-value transient-suffixes] 7 (#$ . 106560)]) #@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 (#$ . 107004)]) (defalias 'transient-get-value #[0 "\301\302\303\304\"\"\207" [transient-current-suffixes delq nil mapcar #[257 "\300\301\"\203\302\301\"?\205\303!\207" [slot-exists-p unsavable eieio-oref transient-infix-value] 4 "\n\n(fn OBJ)"]] 5]) (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%\210\306\301\304\317\304\320%\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 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\"P\207" [eieio-oref value argument] 5 "Return (concat ARGUMENT VALUE) or nil.\n\nARGUMENT and VALUE are the values of the respective slots of OBJ.\nIf VALUE is nil, then return nil. VALUE may be the empty string,\nwhich is not the same as 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 _)"] ((obj transient-files)) #[257 "\300\301\"\211\205\300\302\"B\207" [eieio-oref value argument] 5 "Return (cons ARGUMENT VALUE) or nil.\n\nARGUMENT and VALUE are the values of the respective slots of OBJ.\nIf VALUE is nil, then return nil. VALUE may be the empty string,\nwhich is not the same as nil.\n\n(fn OBJ)"]] 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\303\304#)\266\203\2037\305 \306\307\"\216\310\311\312\313O\"\314\306\315\"\"\262\211\2053\316\317\"\2063\320\262)\207\235\205>\303\207" [inhibit-changing-match-data "=\\'" nil t string-match match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] format "\\`%s\\(?:=\\(.+\\)\\)?\\'" 0 -1 cl-find-if #[257 "\211;\205 \301\300\"\207" [V0 string-match] 4 "\n\n(fn A)"] match-string 1 ""] 9 (#$ . 109825)]) (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 !\311\312\n!\204\313 \"\314\n!r\315\316\"\216\317@\320\"\210\f\203-\321`\322\"\262\323 \210\324\n\325\"\210\326\n\307\"\210\327\n\330\307#\210\307\331\332!\203P\203P\3116\333=?\205Z67\334\3358\322\"!9\f\203s\336\337!\210\340\202v\311:\311\211;<\341 \210=\204\211>\203\214\342 \2106\333=\203\315?\203\315\343 \205\241\3448!\211\203\267\345@\346Y\205\256\347\350\351!D\"\202\270\352\262\353\354\355\356\357%c\210\353\360\355\361\307%c\266\307\311A\362\311\211\363#\210*eb\210B\203\344\364 \210\f\205\353\365!*\207" [transient--showp transient--buffer-name transient--window transient-display-buffer-action transient-enable-popup-navigation window-size-fixed transient--timer-cancel t get-buffer-create nil window-live-p display-buffer internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord button-get command erase-buffer set-window-hscroll 0 set-window-dedicated-p set-window-parameter no-other-window boundp tab-line-format line symbol-name eieio-oref make-local-variable cursor-in-non-selected-windows box transient--insert-groups transient--insert-help transient--semantic-coloring-p transient--prefix-color append 27 (:extend t) :background face-foreground transient-separator propertize "__" face display (space :height (1)) "\n" line-height fit-window-to-buffer 1 transient--force-fixed-pitch transient--goto-button transient-mode-line-format mode-line-format transient--prefix mode-line-buffer-identification cursor-type display-line-numbers show-trailing-whitespace transient--helpp transient--editp window-system emacs-major-version window-resize-pixelwise transient-force-fixed-pitch] 11]) (defalias 'transient--insert-groups #[0 "\301\302\"\303\211A\262\242\211\262\205\304!\210\203\305c\210\202\207" [transient--layout cl-mapcan #[257 "\300\301\"\302!\205\f\211 ?\205C\207" [eieio-oref hide functionp] 4 "\n\n(fn GROUP)"] nil transient--insert-group 10] 4]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\307\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\210\306\301\304\316\304\317%\210\306\301\304\320\304\321%\210\300\322\302\322\323\304#\324#\210\306\322\304\325\304\326%\210\306\322\304\327\304\330%\210\306\322\304\331\304\332%\210\306\322\333\334\335\336%\210\306\322\337\340\335\341%\210\306\322\304\342\304\343%\210\306\322\304\344\304\345%\210\300\346\302\346\347\304#\350#\210\306\346\304\351\304\352%\207" [defalias transient--insert-group cl-generic-define (group) nil "Format GROUP and its elements and insert the result.\n\n(fn GROUP)" cl-generic-define-method (:before) ((group transient-group)) #[257 "\300!\211\205 \211\301\261\207" [transient-format-description 10] 4 "Insert GROUP's description, if any.\n\n(fn GROUP)"] ((group transient-row)) #[257 "\300!\210\301\302\"\211\203\211@\303!c\210\304c\210A\266\202\202\210\305c\207" [transient--maybe-pad-keys eieio-oref suffixes transient-format " " 10] 5 "\n\n(fn GROUP)"] ((group transient-column)) #[257 "\301!\210\302\303\"\211\205/\211@\304!\211c\210\305\306\307\310#)\266\203\204'\311c\210\210A\266\202\202\207" [inhibit-changing-match-data transient--maybe-pad-keys eieio-oref suffixes transient-format ".\n\\'" nil t string-match 10] 11 "\n\n(fn GROUP)"] ((group transient-columns)) #[257 "\301\302\303\"\304\305\"\"\306\307\301\310\"\"G\301\311\"\312\313\314\315\"\316#\203j\316\211W\205i\211\316\211W\203T\211\211\f88\211\203K\211\317\232\204K\211\320\261\210\266\211T\262\202/\266\211SU\204a\320c\210\210\211T\262\202%\207\316\211W\205\261\211\316\211W\203\250\211\3218iZ\322\"c\210\f88\211\203\224\211c\210\210\211 SU\203\240\320c\210\210\211T\262\202u\266\211T\262\202l\207" [transient-force-single-column mapcar make-closure #[257 "\301\300\"\210\302\303\304\305\"\"\306!\211\203\211B\262\210\207" [V0 transient--maybe-pad-keys mapcar transient-format eieio-oref suffixes transient-format-description] 6 "\n\n(fn COLUMN)"] eieio-oref suffixes apply max length #[257 "\300\301\302\303\"\"\207" [apply max mapcar length] 6 "\n\n(fn COL)"] transient--seq-reductions-from apply-partially + 3 0 #1="" 10 make-string 32] 15 "\n\n(fn GROUP)"] ((group transient-subgroups)) #[257 "\300\301\"\211G\211\302\211W\205/\211\2118\303\"\210\304!\210SW\203&\305c\210\266\211T\262\202\207" [eieio-oref suffixes 0 transient--maybe-pad-keys transient--insert-group 10] 10 "\n\n(fn GROUP)"] transient-format (obj) "Format and return OBJ for display.\n\nWhen this function is called, then the current buffer is some\ntemporary buffer. If you need the buffer from which the prefix\ncommand was invoked to be current, then do so by temporarily\nmaking `transient--original-buffer' current.\n\n(fn OBJ)" ((arg string)) #[257 "\300\301\302#\207" [propertize face transient-heading] 5 "Return the string ARG after applying the `transient-heading' face.\n\n(fn ARG)"] ((_ null)) #[257 "\300\207" ["\n"] 2 "Return a string containing just the newline character.\n\n(fn _)"] ((arg integer)) #[257 "\300!\207" [char-to-string] 3 "Return a string containing just the ARG character.\n\n(fn ARG)"] (:around) ((obj transient-infix)) t #[514 "!=\203!\211\302P\262\303 \304=\203\305\202\306G\307\310%\210\207" [transient--active-infix this-command "\n" add-face-text-property transient-set-level 3 0 transient-active-infix nil] 9 "When reading user input for this infix, then highlight it.\n\n(fn CL--CNM OBJ)"] (:around) ((obj transient-suffix)) #[514 "\205\302\303\"\304\305\306\"\307\310\311\"\203\312\202\313#\262!P\302\314\"\2031\315\316G\317\320%\210 \203B\321\320\322\323\324\325!&\207\207" [transient--editp transient-enable-popup-navigation eieio-oref level propertize format " %s " face transient--use-level-p t transient-enabled-suffix transient-disabled-suffix inapt add-face-text-property 0 transient-inapt-suffix nil make-text-button type transient-button command transient--suffix-command] 11 "When edit-mode is enabled, then prepend the level information.\nOptional support for popup buttons is also implemented here.\n\n(fn CL--CNM OBJ)"] ((obj transient-infix)) #[257 "\300\301\302\"\303\304!B\305\306!B\307\310!BE\"\207" [format-spec eieio-oref format 107 transient-format-key 100 transient-format-description 118 transient-format-value] 8 "Return a string generated using OBJ's `format'.\n%k is formatted using `transient-format-key'.\n%d is formatted using `transient-format-description'.\n%v is formatted using `transient-format-value'.\n\n(fn OBJ)"] ((obj transient-suffix)) #[257 "\300\301\302\"\303\304!B\305\306!BD\"\207" [format-spec eieio-oref format 107 transient-format-key 100 transient-format-description] 7 "Return a string generated using OBJ's `format'.\n%k is formatted using `transient-format-key'.\n%d is formatted using `transient-format-description'.\n\n(fn OBJ)"] transient-format-key (obj) "Format OBJ's `key' for display and return the result.\n\n(fn OBJ)" ((obj transient-suffix)) #[257 "\303\304\"\303\305\"\203\251G\306\307\310\"\311\"\312\"\232\203\224\313\314\312\"!!\313\314\315\"!!\316\317\320\310$\262\316\321\322\310$\262\316\317\320\310$\262\316\321\322\310$\262\323\324\310\325#)\266\203\204n\316\323\326#\262\316\323\326#\262\327\330\331#\332\323P\"\205~\323\333\"\212\325\334\n\"\205\221\335\336\n\")R\207\337\n\340!\"\203\243\333\"\207\327\330\341#\207\333\"\207" [transient--redisplay-key inhibit-changing-match-data transient-sticky-map eieio-oref key command cl-coerce edmacro-parse-keys t list seq-take key-description vconcat seq-drop replace-regexp-in-string "RET" "C-m" "TAB" "C-i" " " nil string-match #1# propertize face default string-prefix-p transient--colorize-key " +\\'" match-string 0 transient--lookup-key kbd transient-unreachable-key] 14 "Format OBJ's `key' for display and return the result.\n\n(fn OBJ)"]] 6) #@20 (fn KEY COMMAND) (defalias 'transient--colorize-key #[514 "\300\301\302 \203\303!\206\304#\207" [propertize face transient--semantic-coloring-p transient--suffix-color transient-key] 7 (#$ . 120718)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\307\311\312#\313#\210\300\307\312\314\312\315%\210\300\307\312\316\304\317%\210\300\307\320\321\304\322%\210\306\323\310\323\324\312#\325#\210\300\323\312\326\312\327%\210\300\323\312\330\312\331%\210\300\323\312\332\312\333%\210\300\323\312\334\312\335%\207" [cl-generic-define-method transient-format-key (:around) ((obj transient-argument)) t #[514 "!\203*\301\302\"\204\303\304G\305\306%\210\207\211\307\302\"\230\204*\303\304G\310\306%\210\207" [transient-highlight-mismatched-keys slot-boundp shortarg add-face-text-property 0 transient-nonstandard-key nil eieio-oref transient-mismatched-key] 9 "\n\n(fn CL--CNM OBJ)"] defalias transient-format-description cl-generic-define (obj) nil "Format OBJ's `description' for display and return the result.\n\n(fn OBJ)" ((obj transient-child)) #[257 "\301\302\"\211\205\303!\203rq\210\211 )\207\211\207" [transient--original-buffer eieio-oref description functionp] 4 "The `description' slot may be a function, in which case that is\ncalled inside the correct buffer (see `transient-insert-group')\nand its value is returned to the caller.\n\n(fn OBJ)"] ((obj transient-group)) #[514 "!\211\205\300\301G\302\303%\203\207\304\302\305#\207" [text-property-not-all 0 face nil propertize transient-heading] 9 "Format the description by calling the next method. If the result\ndoesn't use the `face' property at all, then apply the face\n`transient-heading' to the complete string.\n\n(fn CL--CNM OBJ)"] (:around) ((obj transient-suffix)) #[514 "!\206\303\304\"\203\305\304\"!\206\306\307\310\311#\312!\203'\306\310\313#\207 \203>\305\314\"\nV\203>\315\316G\317\320%\210\207\207" [transient--prefix transient-highlight-higher-levels transient--default-prefix-level slot-boundp suffix-description eieio-oref propertize "(BUG: no description)" face error transient--key-unreachable-p transient-unreachable level add-face-text-property 0 transient-higher-level nil] 9 "Format the description by calling the next method. If the result\nis nil, then use \"(BUG: no description)\" as the description.\nIf the OBJ's `key' is currently unreachable, then apply the face\n`transient-unreachable' to the complete string.\n\n(fn CL--CNM OBJ)"] transient-format-value (obj) "Format OBJ's value for display and return the result.\n\n(fn OBJ)" ((obj transient-suffix)) #[257 "\300\301\302\"\303\301\304\"\203\305\202\306#\207" [propertize eieio-oref argument face value transient-argument transient-inactive-argument] 7 "\n\n(fn OBJ)"] ((obj transient-option)) #[257 "\300\301\"\302\300\303\"<\203\304\305\306#\202P\307\203!\310\202\"\311#\207" [eieio-oref value propertize argument mapconcat identity "," face transient-value transient-inactive-value] 8 "\n\n(fn OBJ)"] ((obj transient-switches)) #[257 "\211\300\301\302\303\"\304\302\305\"\203\306\202\307#\301\310\304\307#\311\312\313\"\302\314\"\301\315\304\307##\301\316\304\307#Q\"\207" [format propertize slot-value argument-format face value transient-value transient-inactive-value "[" mapconcat make-closure #[257 "\301\302\303\304\300\305\"\"\304\300\306\"\232\203\307\202\310#\207" [V0 propertize face format slot-value argument-format value transient-value transient-inactive-value] 8 "\n\n(fn CHOICE)"] choices "|" "]"] 12 "\n\n(fn OBJ)"] ((obj transient-files)) #[257 "\300\301\"\300\302\"\211\203\303\304\305\306\300\302\"\304#Q\307\310#\207\303\307\311#\207" [eieio-oref argument value propertize " " mapconcat #[257 "\300\301\"\207" [format "%S"] 4 "\n\n(fn F)"] face transient-argument transient-inactive-argument] 11 "\n\n(fn OBJ)"]] 6) #@12 (fn OBJ) (defalias 'transient--key-unreachable-p #[257 "\205!\302\303\"\304\305\306\307\"\310\"G\"\232\206\311 \312!\"?\262\207" [transient--redisplay-key transient-sticky-map eieio-oref key seq-take cl-coerce edmacro-parse-keys t list transient--lookup-key kbd] 7 (#$ . 124615)]) #@19 (fn KEYMAP KEY) (defalias 'transient--lookup-key #[514 "\300\"\211\205\211\250?\205\211\207" [lookup-key] 5 (#$ . 124914)]) #@31 (fn GROUP &optional PARENT) (defalias 'transient--maybe-pad-keys #[513 "\300\301\"\203\302\301\"\202\211\205\300\301\"\205\302\301\"\211\205[\303\304\250\203,\202-\305\306\307\302\310\"\"B\"\302\310\"\211\205W\211@\311\312\313\302\312\"\314\315$#\210A\266\202\202;\262\262\207" [slot-boundp pad-keys eieio-oref apply max 0 mapcar #[257 "\300\301\"G\207" [eieio-oref key] 4 "\n\n(fn SUFFIX)"] suffixes eieio-oset key truncate-string-to-width nil 32] 14 (#$ . 125052)]) #@288 Return the summary or name of the command represented by OBJ. If the command has a doc-string, then return the first line of that, else its name. Intended to be temporarily used as the `:suffix-description' of a prefix command, while porting a regular keymap to a transient. (fn OBJ) (defalias 'transient-command-summary-or-name #[257 "\300\301\302\"!\303!\211\203\304\305\306\"@\307\310#\207\304\311!\307\312#\207" [transient--suffix-symbol eieio-oref command documentation propertize split-string "\n" face font-lock-doc-face symbol-name font-lock-function-name-face] 7 (#$ . 125559)]) (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-show-help cl-generic-define (obj) nil "Show help for OBJ's command.\n\n(fn OBJ)" cl-generic-define-method ((obj transient-prefix)) #[257 "\300\301\"\211\203\f\302!\207\300\303\"\211\203\304!\207\305\300\306\"!\207" [eieio-oref info-manual info man-page transient--show-manpage transient--describe-function command] 7 "Show the info manual, manpage or command doc-string.\nShow the first one that is specified.\n\n(fn OBJ)"] ((obj transient-suffix)) #[257 "\302=\203\303 \304\"\211\203\305!\207\306\303 \307\"!\207\310!\301N\211\205&\303\304\"\211\203.\305!\207\306!\207" [this-original-command transient--prefix transient-help eieio-oref man-page transient--show-manpage transient--describe-function command transient--suffix-command] 6 "Show the command doc-string.\n\n(fn OBJ)"] ((obj transient-infix)) #[257 "\302\303\"\211\203\304\3051\302\306\"0\202\210\307\"\207\310 !\207" [transient--prefix this-original-command eieio-oref man-page transient--show-manpage (error) argument nil transient--describe-function] 7 "Show the manpage if defined or the command doc-string.\nIf the manpage is specified, then try to jump to the correct\nlocation.\n\n(fn OBJ)"] (cmd) #[257 "\300!\207" [transient--describe-function] 3 "Show the command doc-string.\n\n(fn CMD)"]] 6) #@35 (fn MANPAGE &optional ARGUMENT) (defalias 'transient--show-manpage #[513 "\301\302!\210\303\304!\305!\211\203\306!\307=\203\310!\210\202\f\311!\210\205*\312!)\207" [Man-notify-method require man meek Man-getpage-in-background get-buffer-process process-status run accept-process-output switch-to-buffer transient--goto-argument-description] 6 (#$ . 127642)]) #@11 (fn FN) (defalias 'transient--describe-function #[257 "\300!\210\301\302\303 !!\207" [describe-function select-window get-buffer-window help-buffer] 4 (#$ . 128023)]) #@12 (fn ARG) (defalias 'transient--goto-argument-description #[257 "eb\210\301\302\303\232\203\304\202:\305\306\307\310\311\"\203)\211\312GGZO\266\202\202+\262\311\310\"\2037\313\2028\314\307%\301\315#\205C\316\224b)\207" [case-fold-search nil re-search-forward "--" "^[ ]+\\(--\\(?: \\|$\\)\\|\\[--\\]\\)" format "^[ ]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$" "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+" "=" string-suffix-p 0 "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]" "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?" t 1] 11 (#$ . 128199)]) (defalias 'transient--insert-help #[0 "\303\304\305\"\204\n\306c\210\203&\307\310\311\312\313#\310\314\312\315#\310\316\312\315#\310\317\312\315#$c\210 \205j\204A\307\310\320\312\313#\310\314\312\315#\310\321\312\315##c\210\n\307\310\322\312\313#\310\307\323\324\325\"\"\312\326#\310\327\312\330#\310\307\331\324\325\"T\"\312\330#$c\262\207" [transient--helpp transient--editp transient--prefix looking-back "\n\n" 2 "\n" format propertize "Type a %s to show help for that suffix command, or %s to show manual.\nType %s to exit help.\n" face transient-heading "" 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 (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\207" [make-sparse-keymap define-key [remap Man-quit] transient-resume [remap Info-exit] [remap quit-window]] 5) (#$ . 129698)) #@111 Non-nil if Transient-Resume mode is enabled. Use the command `transient-resume-mode' to change this variable. (defvar transient-resume-mode nil (#$ . 130137)) (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\203Z\321\202[\322\323#\210\210\324 \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 "Transient-Resume mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 130355) (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) #@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 (#$ . 132226) nil]) (define-button-type 'transient-button 'face nil 'action #[257 "\301\302\"\211\303!\207" [this-original-command button-get command call-interactively] 4 "\n\n(fn BUTTON)"]) (defvar transient-popup-navigation-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\314#\210\301\316\317#\210\301\320\321#\210\207" [make-sparse-keymap define-key [down-mouse-1] transient-noop [mouse-1] transient-mouse-push-button " " transient-push-button [up] transient-backward-button "" [down] transient-forward-button "" "" transient-isearch-backward "" transient-isearch-forward] 5)) #@59 Invoke the suffix the user clicks on. (fn &optional POS) (defalias 'transient-mouse-push-button #[256 "\300!\207" [push-button] 3 (#$ . 133136) (list last-command-event)]) #@37 Invoke the selected suffix command. (defalias 'transient-push-button #[0 "\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 push-button] 4 (#$ . 133316) nil]) #@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 (#$ . 133640) "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 (#$ . 134060) "p"]) #@16 (fn COMMAND) (defalias 'transient--goto-button #[257 "\211\204\300\301!\207\3021\300\301!0\202\210\202%\203%\303\304`!\305\"=\203\303\304`!\305\"=?\2057eb\210\300\301!\207" [forward-button 1 (error) button-get button-at command] 4 (#$ . 134472)]) (defvar transient--isearch-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\207" [isearch-mode-map make-sparse-keymap set-keymap-parent define-key [remap isearch-exit] transient-isearch-exit [remap isearch-cancel] transient-isearch-cancel [remap isearch-abort] transient-isearch-abort] 5)) #@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 (#$ . 135075) "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 (#$ . 135401) "P"]) #@50 Like `isearch-exit' but adapted for `transient'. (defalias 'transient-isearch-exit #[0 "\300 \210\301 \207" [isearch-exit transient--isearch-exit] 1 (#$ . 135722) 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 (#$ . 135897) nil]) #@51 Like `isearch-abort' but adapted for `transient'. (defalias 'transient-isearch-abort #[0 "\3001 \301 0\210\202\f\210\302 \207" [(quit) isearch-abort transient--isearch-exit] 1 (#$ . 136104) nil]) (defalias 'transient--isearch-setup #[0 "\301!\210\302 \207" [transient--window select-window transient--suspend-override] 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 (#$ . 136710)]) #@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:\205\262\211\242\211\311\267\202\257\243\211:\205y\211\242\211\312\267\202v\243\211?\205W\313\262\202w\243\211?\205d\314\262\202w\243\211?\205q\307\262\202w\315\262\262\202\260\243\211:\205\252\211\242\211\316\267\202\247\243\211?\205\225\317\262\202\250\243\211?\205\242\310\262\202\250\315\262\262\202\260\315\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (transient-red 64 transient-blue 126)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (disallow 79 transient-red 92 transient-blue 105)) transient-amaranth transient-pink nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (disallow 141 transient-blue 154)) transient-teal] 10 (#$ . 136870)]) #@20 (fn FN ARG-MODE) (defalias 'transient--edebug--recursive-edit #[514 "\301\302!\210\204\f!\207\303\304!\210!\210\305\304!\207" [transient--prefix transient--debug edebug--recursive-edit transient--suspend-override t transient--resume-override] 4 (#$ . 138038)]) (advice-add 'edebug--recursive-edit :around 'transient--edebug--recursive-edit) (defalias 'transient--abort-edebug #[0 "\301\300!\205\f\205\f\302 \207" [edebug-active boundp transient--emergency-exit] 2]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [advice-add abort-recursive-edit :before transient--abort-edebug top-level] 4) (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]) (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 define-key "q" transient-quit-one transient-quit-seq transient-rebind-quit-commands] 4 (#$ . 139261)]) #@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 (#$ . 140332)]) (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 "\301\300\301\242@\"\301\242B\240\207" [V0 V1] 5 "\n\n(fn ELT)"]] 9 (#$ . 140730)]) #@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 (#$ . 140983)]) (defconst transient-font-lock-keywords '(("(\\(transient-define-\\(?:argument\\|\\(?: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 (#$ . 142219)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 142563)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\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)) #[257 "\300\301\"\206 \302\300\303\"!\207" [eieio-oref description symbol-name variable] 5 "\n\n(fn OBJ)"] 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\301\302\303\"\"\207" [format "Set %s: " eieio-oref variable] 6 "\n\n(fn OBJ)"]] 6) #@37 (fn PROMPT INITIAL-INPUT HISTORY) (defalias 'transient-lisp-variable--reader #[771 "\300\"\207" [read--expression] 6 (#$ . 143817)]) (provide 'transient)