;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\310\305\322\323&\210\314\324\316\317\325DD\326\310\305\322\327&\210\314\330\316\317\331DD\332\310\305\322\323&\210\314\333\316\317\334DD\335\310\305\322\336&\210\314\337\316\317\340DD\341\310\305\322\342&\210\314\343\316\317\344DD\345\310\305\322\342&\210\314\346\316\317\347DD\350\310\305\322\351&\210\314\352\316\317\353DD\354\310\305\322\355&\210\314\356\316\317\357DD\360\310\305\322\355&\210\314\361\316\317\362DD\363\310\305\322\351&\207" [require cl-lib button regexp-opt custom-declare-group which-key nil "Customization options for which-key-mode" :group help :prefix "which-key-" custom-declare-variable which-key-idle-delay funcall function #[0 "\300\207" [1.0] 1] "Delay (in seconds) for which-key buffer to popup. This\n variable should be set before activating `which-key-mode'.\n\nA value of zero might lead to issues, so a non-zero value is\nrecommended\n(see https://github.com/justbur/emacs-which-key/issues/134)." :type float which-key-idle-secondary-delay #[0 "\300\207" [nil] 1] "Once the which-key buffer shows once for a key sequence reduce\nthe idle time to this amount (in seconds). This makes it possible\nto shorten the delay for subsequent popups in the same key\nsequence. The default is for this value to be nil, which disables\nthis behavior." (choice float (const :tag "Disabled" nil)) which-key-echo-keystrokes #[0 "\203\302\\ V\203\303 !\304\245\207\207" [echo-keystrokes which-key-idle-delay 0.01 float 4] 2] "Value to use for `echo-keystrokes'.\nThis only applies if `which-key-popup-type' is minibuffer or\n`which-key-show-prefix' is echo. It needs to be less than\n`which-key-idle-delay' or else the keystroke echo will erase the\nwhich-key popup." which-key-max-description-length #[0 "\300\207" [27] 1] "Truncate the description of keys to this length.\nAlso adds \"..\". If nil, disable any truncation." (choice integer (const :tag "Disable truncation" nil)) which-key-add-column-padding #[0 "\300\207" [0] 1] "Additional padding (number of spaces) to add to the left of\neach key column." integer which-key-unicode-correction #[0 "\300\207" [3] 1] "Correction for wide unicode characters.\nSince we measure width in terms of the number of characters,\nUnicode characters that are wider than ASCII characters throw off\nthe calculation for available width in the which-key buffer. This\nvariable allows you to adjust for the wide unicode characters by\nartificially reducing the available width in the buffer.\n\nThe default of 3 means allow for the total extra width\ncontributed by any wide unicode characters to be up to one\nadditional ASCII character in the which-key buffer. Increase this\nnumber if you are seeing characters get cutoff on the right side\nof the which-key popup." which-key-dont-use-unicode #[0 "\300\207" [nil] 1] "If non-nil, don't use any unicode characters in default setup." boolean which-key-separator #[0 "\203\301\207\302\207" [which-key-dont-use-unicode " : " " → "] 1] "Separator to use between key and description. Default is \" →\n\", unless `which-key-dont-use-unicode' is non nil, in which case\nthe default is \" : \"." string which-key-prefix-prefix #[0 "\300\207" [#1="+"] 1 #1#] "String to insert in front of prefix commands (i.e., commands\nthat represent a sub-map). Default is \"+\"." which-key-compute-remaps #[0 "\300\207" [nil] 1] "If non-nil, show remapped command if a command has been\nremapped given the currently active keymaps."] 8) (defvar which-key-key-replacement-alist nil) (make-obsolete-variable 'which-key-key-replacement-alist 'which-key-replacement-alist "2016-11-21") (defvar which-key-description-replacement-alist nil) (make-obsolete-variable 'which-key-description-replacement-alist 'which-key-replacement-alist "2016-11-21") (defvar which-key-key-based-description-replacement-alist nil) (byte-code "\302\303\304\305#\210\306\304\307\310\311DD\312\313\314\315\316&\210\317\300!\203$\203$\320\321\"\210\317\301!\2033 \2033\320\322 \"\210\306\323\307\310\324DD\325\313\314\315\326&\210\306\327\307\310\330DD\331\313\314\315\332&\210\306\333\307\310\334DD\335\313\314\315\336&\210\306\337\307\310\340DD\341\313\314\315\342&\210\306\343\307\310\344DD\345\313\314\315\346&\210\306\347\307\310\350DD\351\313\314\315\352&\210\306\353\307\310\354DD\355\313\314\315\356&\210\306\357\307\310\360DD\361\313\314\315\362&\210\306\363\307\310\364DD\365\313\314\315\366&\210\306\367\307\310\370DD\371\313\314\315\372&\210\306\373\307\310\374DD\375\313\314\315\362&\210\306\376\307\310\377DD\201@\313\314\315\201A&\210\306\201B\307\310\201CDD\201D\313\314\315\201A&\210\306\201E\307\310\201FDD\201G\313\314\315\362&\210\306\201H\307\310\201IDD\201J\313\314\315\362&\210\306\201K\307\310\201LDD\201M\313\314\315\326&\210\306\201N\307\310\201ODD\201P\313\314\315\201Q&\210\306\201R\307\310\201SDD\201T\313\314\315\201U&\210\306\201V\307\310\201WDD\201X\313\314\315\326&\210\306\201Y\307\310\201ZDD\201[\313\314\315\201\\&\210\306\201]\307\310\201^DD\201_\313\314\315\346&\210\306\201`\307\310\201aDD\201b\313\314\315\326&\210\306\201c\307\310\201dDD\201e\313\314\315\326&\210\306\201f\307\310\201gDD\201h\313\314\315\326&\207" [which-key-key-replacement-alist which-key-description-replacement-alist make-obsolete-variable which-key-key-based-description-replacement-alist which-key-replacement-alist "2016-11-21" custom-declare-variable funcall function #[0 "\301\302\303\304\305\306?\205\f\307\310\"BBB\"\207" [which-key-dont-use-unicode delq nil ((nil . "Prefix Command") nil . "prefix") ((nil . "\\`\\?\\?\\'") nil . "lambda") ((nil . "which-key-show-next-page-no-cycle") nil . "wk next pg") append ((("") "←") (("") "→")) ((("<\\([[:alnum:]-]+\\)>") "\\1"))] 8] "Association list to determine how to manipulate descriptions\nof key bindings in the which-key popup. Each element of the list\nis a nested cons cell with the format\n\n(MATCH CONS . REPLACEMENT).\n\nThe MATCH CONS determines when a replacement should occur and\nREPLACEMENT determines how the replacement should occur. Each may\nhave the format (KEY REGEXP . BINDING REGEXP). For the\nreplacement to apply the key binding must match both the KEY\nREGEXP and the BINDING REGEXP. A value of nil in either position\ncan be used to match every possibility. The replacement is\nperformed by using `replace-regexp-in-string' on the KEY REGEXP\nfrom the MATCH CONS and REPLACEMENT when it is a cons cell, and\nthen similarly for the BINDING REGEXP. A nil value in the BINDING\nREGEXP position cancels the replacement. For example, the entry\n\n((nil . \"Prefix Command\") . (nil . \"prefix\"))\n\nmatches any binding with the descriptions \"Prefix Command\" and\nreplaces the description with \"prefix\", ignoring the\ncorresponding key.\n\nREPLACEMENT may also be a function taking a cons cell\n(KEY . BINDING) and producing a new corresponding cons cell.\n\nIf REPLACEMENT is anything other than a cons cell (and non nil)\nthe key binding is ignored by which-key.\n\nFinally, you can multiple replacements to occur for a given key\nbinding by setting `which-key-allow-multiple-replacements' to a\nnon-nil value." :group which-key :type (alist :key-type (cons (choice regexp (const nil)) (choice regexp (const nil))) :value-type (cons (choice string (const nil)) (choice string (const nil)))) boundp mapc #[257 "\211@\301BA\301BBB\211\207" [which-key-replacement-alist nil] 4 "\n\n(fn REPL)"] #[257 "\301@B\301ABBB\211\207" [which-key-replacement-alist nil] 4 "\n\n(fn REPL)"] which-key-allow-multiple-replacements #[0 "\300\207" [nil] 1] "Allow a key binding to match and be modified by multiple\nelements in `which-key-replacement-alist' if non-nil. When nil,\nonly the first match is used to perform replacements from\n`which-key-replacement-alist'." boolean which-key-show-docstrings #[0 "\300\207" [nil] 1] "If non-nil, show each command's docstring next to the command\nin the which-key buffer. This will only display the docstring up\nto the first line break. If you set this variable to the symbol\ndocstring-only, then the command's name with be omitted. You\nprobably also want to adjust `which-key-max-description-length'\nat the same time if you use this feature." (radio (const :tag "Do not show docstrings" nil) (const :tag "Add docstring to command names" t) (const :tag "Replace command name with docstring" docstring-only)) which-key-highlighted-command-list #[0 "\300\207" [nil] 1] "A list of strings and/or cons cells used to highlight certain\ncommands. If the element is a string, assume it is a regexp\npattern for matching command names and use\n`which-key-highlighted-command-face' for any matching names. If\nthe element is a cons cell, it should take the form (regexp .\nface to apply)." (repeat (choice string (cons regexp face))) which-key-special-keys #[0 "\300\207" [nil] 1] "These keys will automatically be truncated to one character\nand have `which-key-special-key-face' applied to them. This is\ndisabled by default. Try this to see the effect.\n\n(setq which-key-special-keys '(\"SPC\" \"TAB\" \"RET\" \"ESC\" \"DEL\"))" (repeat string) which-key-buffer-name #[0 "\300\207" [#1=" *which-key*"] 1 #1#] "Name of which-key buffer." string which-key-show-prefix #[0 "\300\207" [echo] 1] "Whether to and where to display the current prefix sequence.\nPossible choices are echo for echo area (the default), left, top\nand nil. Nil turns the feature off." (radio (const :tag "Left of the keys" left) (const :tag "In the first line" top) (const :tag "In the last line" bottom) (const :tag "In the echo area" echo) (const :tag "In the mode-line" mode-line) (const :tag "Hide" nil)) which-key-popup-type #[0 "\300\207" [side-window] 1] "Supported types are minibuffer, side-window, frame, and custom." (radio (const :tag "Show in minibuffer" minibuffer) (const :tag "Show in side window" side-window) (const :tag "Show in popup frame" frame) (const :tag "Use your custom display functions" custom)) which-key-min-display-lines #[0 "\300\207" [1] 1] "The minimum number of horizontal lines to display in the\n which-key buffer." integer which-key-max-display-columns #[0 "\300\207" [nil] 1] "The maximum number of columns to display in the which-key\nbuffer. nil means don't impose a maximum." (choice integer (const :tag "Unbounded" nil)) which-key-side-window-location #[0 "\300\207" [bottom] 1] "Location of which-key popup when `which-key-popup-type' is side-window.\nShould be one of top, bottom, left or right. You can also specify\na list of two locations, like (right bottom). In this case, the\nfirst location is tried. If there is not enough room, the second\nlocation is tried." (radio (const right) (const bottom) (const left) (const top) (const (right bottom)) (const (bottom right))) which-key-side-window-slot #[0 "\300\207" [0] 1] "The `slot' to use for `display-buffer-in-side-window' when\n`which-key-popup-type' is 'side-window. Quoting from the\ndocstring of `display-buffer-in-side-window',\n\n‘slot’ if non-nil, specifies the window slot where to display\n BUFFER. A value of zero or nil means use the middle slot on\n the specified side. A negative value means use a slot\n preceding (that is, above or on the left of) the middle slot.\n A positive value means use a slot following (that is, below or\n on the right of) the middle slot. The default is zero." which-key-side-window-max-width #[0 "\300\207" [0.333] 1] "Maximum width of which-key popup when type is side-window and\nlocation is left or right.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's width." float which-key-side-window-max-height #[0 "\300\207" [0.25] 1] "Maximum height of which-key popup when type is side-window and\nlocation is top or bottom.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's height." which-key-frame-max-width #[0 "\300\207" [60] 1] "Maximum width of which-key popup when type is frame." which-key-frame-max-height #[0 "\300\207" [20] 1] "Maximum height of which-key popup when type is frame." which-key-allow-imprecise-window-fit #[0 "\300 ?\207" [display-graphic-p] 1] "If non-nil allow which-key to use a less intensive method of\nfitting the popup window to the buffer. If you are noticing lag\nwhen the which-key popup displays turning this on may help.\n\nSee https://github.com/justbur/emacs-which-key/issues/130\nand https://github.com/justbur/emacs-which-key/issues/225." which-key-show-remaining-keys #[0 "\300\207" [nil] 1] "Show remaining keys in last slot, when keys are hidden." (radio (const :tag "Yes" t) (const :tag "No" nil)) which-key-sort-order #[0 "\300\207" [which-key-key-order] 1] "If nil, do not resort the output from\n`describe-buffer-bindings' which groups by mode. Ordering options\nare\n\n1. `which-key-key-order': by key (default)\n2. `which-key-key-order-alpha': by key using alphabetical order\n3. `which-key-description-order': by description\n4. `which-key-prefix-then-key-order': prefix (no prefix first) then key\n5. `which-key-local-then-key-order': local binding then key\n\nSee the README and the docstrings for those functions for more\ninformation." (choice (function-item which-key-key-order) (function-item which-key-key-order-alpha) (function-item which-key-description-order) (function-item which-key-prefix-then-key-order) (function-item which-key-local-then-key-order)) which-key-sort-uppercase-first #[0 "\300\207" [t] 1] "If non-nil, uppercase comes before lowercase in sorting\nfunction chosen in `which-key-sort-order'. Otherwise, the order\nis reversed." which-key-paging-prefixes #[0 "\300\207" [nil] 1] "Enable paging for these prefixes." (repeat string) which-key-paging-key #[0 "\300\207" [#2=""] 1 #2#] "Key to use for changing pages. Bound after each of the\nprefixes in `which-key-paging-prefixes'" which-key-use-C-h-commands #[0 "\300\207" [t] 1] "Use C-h (or whatever `help-char' is set to) for paging if\nnon-nil. Normally C-h after a prefix calls\n`describe-prefix-bindings'. This changes that command to a\nwhich-key paging command when which-key-mode is active." which-key-show-early-on-C-h #[0 "\300\207" [nil] 1] "Show the which-key buffer before if C-h (or whatever\n`help-char' is set to) is pressed in the middle of a prefix\nbefore the which-key buffer would normally be triggered through\nthe idle delay. If combined with the following settings,\nwhich-key will effectively only show when triggered \"manually\"\nusing C-h.\n\n(setq `which-key-idle-delay' 10000)\n(setq `which-key-idle-secondary-delay' 0.05)\n\nNote that `which-key-idle-delay' should be set before turning on\n`which-key-mode'. " which-key-is-verbose #[0 "\300\207" [nil] 1] "Whether to warn about potential mistakes in configuration."] 8) #@26 Keymap for C-h commands. (defvar which-key-C-h-map (byte-code "\301 \302\303\304\305\306!\307B\310BBBBB\211\203&\211@\311@A#\210A\266\202\202\210\211\207" [help-char make-sparse-keymap ("" . which-key-abort) ("a" . which-key-abort) ("" . which-key-toggle-docstrings) ("d" . which-key-toggle-docstrings) vector which-key-show-standard-help (("h" . which-key-show-standard-help) ("" . which-key-show-next-page-cycle) ("n" . which-key-show-next-page-cycle) ("" . which-key-show-previous-page-cycle) ("p" . which-key-show-previous-page-cycle) ("" . which-key-undo-key) ("u" . which-key-undo-key) ("1" . which-key-digit-argument) ("2" . which-key-digit-argument) ("3" . which-key-digit-argument) ("4" . which-key-digit-argument) ("5" . which-key-digit-argument) ("6" . which-key-digit-argument) ("7" . which-key-digit-argument) ("8" . which-key-digit-argument) ("9" . which-key-digit-argument)) define-key] 7) (#$ . 15367)) (defvar which-key--paging-functions '(which-key-C-h-dispatch which-key-manual-update which-key-turn-page which-key-show-next-page-cycle which-key-show-next-page-no-cycle which-key-show-previous-page-cycle which-key-show-previous-page-no-cycle which-key-undo-key which-key-undo)) #@52 Whether or not to disable `which-key--hide-popup'. (defvar which-key-persistent-popup nil (#$ . 16584)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\310\311&\210\300\331\302\303\332DD\333\306\307\310\311&\210\300\334\302\303\335DD\336\306\307\310\337&\210\340\341\342\343\306\307\344\345&\210\346\347\350\351\306\341%\210\346\352\353\354\306\341%\210\346\355\356\357\306\341%\210\346\360\361\362\306\341%\210\346\363\364\365\306\341%\210\346\366\367\370\306\341%\210\346\371\372\373\306\341%\210\346\374\375\376\306\341%\210\346\377\201@\201A\306\341%\210\300\201B\302\303\201CDD\201D\306\307\310\201E&\210\300\201F\302\303\201GDD\201H\306\307\310\201I&\210\300\201J\302\303\201KDD\201L\306\307\310\201M&\210\300\201N\302\303\201ODD\201P\306\307\310\201Q&\207" [custom-declare-variable which-key-hide-alt-key-translations funcall function #[0 "\300\207" [t] 1] "Hide key translations using Alt key if non nil.\nThese translations are not relevant most of the times since a lot\nof terminals issue META modifier for the Alt key.\n\nSee http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html" :group which-key :type boolean which-key-delay-functions #[0 "\300\207" [nil] 1] "A list of functions that may decide whether to delay the\nwhich-key popup based on the current incomplete key\nsequence. Each function in the list is run with two arguments,\nthe current key sequence as produced by `key-description' and the\nlength of the key sequence. If the popup should be delayed based\non that key sequence, the function should return the delay time\nin seconds. Returning nil means no delay. The first function in\nthis list to return a value is the value that is used.\n\nThe delay time is effectively added to the normal\n`which-key-idle-delay'." (repeat function) which-key-allow-regexps #[0 "\300\207" [nil] 1] "A list of regexp strings to use to filter key sequences. When\nnon-nil, for a key sequence to trigger the which-key popup it\nmust match one of the regexps in this list. The format of the key\nsequences is what is produced by `key-description'." (repeat regexp) which-key-inhibit-regexps #[0 "\300\207" [nil] 1] "Similar to `which-key-allow-regexps', a list of regexp strings\nto use to filter key sequences. When non-nil, for a key sequence\nto trigger the which-key popup it cannot match one of the regexps\nin this list. The format of the key sequences is what is produced\nby `key-description'." (repeat regexp) which-key-show-transient-maps #[0 "\300\207" [nil] 1] "Show keymaps created by `set-transient-map' when applicable.\n\nMore specifically, detect when `overriding-terminal-local-map' is\nset (this is the keymap used by `set-transient-map') and display\nit." which-key-enable-extended-define-key #[0 "\300\207" [nil] 1] "Advise `define-key' to make which-key aware of definitions of the form\n\n (define-key KEYMAP KEY '(\"DESCRIPTION\" . DEF))\n\nWith the advice, this definition will have the side effect of\ncreating a replacement in `which-key-replacement-alist' that\nreplaces DEF with DESCRIPTION when the key sequence ends in\nKEY. Using a cons cell like this is a valid definition for\n`define-key'. All this does is to make which-key aware of it.\n\nSince many higher level keybinding functions use `define-key'\ninternally, this will affect most if not all of those as well.\n\nThis variable must be set before loading which-key." which-key-init-buffer-hook #[0 "\300\207" [nil] 1] "Hook run when which-key buffer is initialized." hook custom-declare-group which-key-faces nil "Faces for which-key-mode" :prefix "which-key-" custom-declare-face which-key-key-face ((t :inherit font-lock-constant-face)) "Face for which-key keys" which-key-separator-face ((t :inherit font-lock-comment-face)) "Face for the separator (default separator is an arrow)" which-key-note-face ((t :inherit which-key-separator-face)) "Face for notes or hints occasionally provided" which-key-command-description-face ((t :inherit font-lock-function-name-face)) "Face for the key description when it is a command" which-key-local-map-description-face ((t :inherit which-key-command-description-face)) "Face for the key description when it is found in `current-local-map'" which-key-highlighted-command-face ((t :inherit which-key-command-description-face :underline t)) "Default face for the command description when it is a command\nand it matches a string in `which-key-highlighted-command-list'." which-key-group-description-face ((t :inherit font-lock-keyword-face)) "Face for the key description when it is a group or prefix" which-key-special-key-face ((t :inherit which-key-key-face :inverse-video t :weight bold)) "Face for special keys (SPC, TAB, RET)" which-key-docstring-face ((t :inherit which-key-note-face)) "Face for docstrings" which-key-custom-popup-max-dimensions-function #[0 "\300\207" [nil] 1] "Variable to hold a custom max-dimensions function.\nWill be passed the width of the active window and is expected to\nreturn the maximum height in lines and width in characters of the\nwhich-key popup in the form a cons cell (height . width)." (choice function (const nil)) which-key-custom-hide-popup-function #[0 "\300\207" [nil] 1] "Variable to hold a custom hide-popup function.\nIt takes no arguments and the return value is ignored." (choice function (const nil)) which-key-custom-show-popup-function #[0 "\300\207" [nil] 1] "Variable to hold a custom show-popup function.\nWill be passed the required dimensions in the form (height .\nwidth) in lines and characters respectively. The return value is\nignored." (choice function (const nil)) which-key-lighter #[0 "\300\207" [#1=" WK"] 1 #1#] "Minor mode lighter to use in the mode-line." string] 8) #@159 Prevent which-key from popping up momentarily by setting this to a non-nil value for the execution of a command. Like this (let ((which-key-inhibit t)) ...) (defvar which-key-inhibit nil (#$ . 22516)) #@73 History of keymap selections in functions like `which-key-show-keymap'. (defvar which-key-keymap-history nil (#$ . 22724)) #@48 Internal: Holds reference to which-key buffer. (defvar which-key--buffer nil (#$ . 22853)) #@49 Internal: Holds reference to open window timer. (defvar which-key--timer nil (#$ . 22950)) #@53 Internal: Non-nil if the secondary timer is active. (defvar which-key--secondary-timer-active nil (#$ . 23047)) #@48 Internal: Holds reference to timer for paging. (defvar which-key--paging-timer nil (#$ . 23165)) #@90 Internal: Holds reference to which-key frame. Used when `which-key-popup-type' is frame. (defvar which-key--frame nil (#$ . 23268)) #@58 Internal: Backup the initial value of `echo-keystrokes'. (defvar which-key--echo-keystrokes-backup nil (#$ . 23406)) #@54 Internal: Backup the value of `prefix-help-command'. (defvar which-key--prefix-help-cmd-backup nil (#$ . 23529)) #@65 Internal: Last location of side-window when two locations used. (defvar which-key--last-try-2-loc nil (#$ . 23648)) #@65 Internal: Non-nil if popup was triggered with automatic update. (defvar which-key--automatic-display nil (#$ . 23770)) #@49 If non-nil, use this buffer for debug messages. (defvar which-key--debug-buffer-name nil (#$ . 23895)) (defvar which-key--multiple-locations nil) (defvar which-key--inhibit-next-operator-popup nil) (defvar which-key--prior-show-keymap-args nil) (defvar which-key--previous-frame-size nil) (defvar which-key--prefix-title-alist nil) (defvar which-key--evil-keys-regexp "\\(?:-state\\)") (defvar which-key--ignore-non-evil-keys-regexp "\\(?:drag-\\|mouse-\\|remap\\|s\\(?:croll-bar\\|elect-window\\|witch-frame\\)\\|wh\\(?:eel-\\|ich-key\\)\\)") (defvar which-key--ignore-keys-regexp "\\(?:-state\\|drag-\\|mouse-\\|remap\\|s\\(?:croll-bar\\|elect-window\\|witch-frame\\)\\|wh\\(?:eel-\\|ich-key\\)\\)") (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [make-obsolete-variable which-key-prefix-name-alist nil "2016-10-05" which-key-prefix-title-alist] 4) (defvar which-key--pages-obj nil) #@75 compiler-macro for inlining `which-key--pages-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-p (and (memq (type-of cl-x) cl-struct-which-key--pages-tags) t)) nil] 9 (#$ . 24795)]) (put 'which-key--pages-p 'compiler-macro 'which-key--pages-p--cmacro) #@13 (fn CL-X) (defalias 'which-key--pages-p #[257 "\301!>\205 \302\207" [cl-struct-which-key--pages-tags type-of t] 3 (#$ . 25166)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put which-key--pages-p side-effect-free error-free put which-key--pages cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `which-key--pages-pages'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-pages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-pages (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 1)) nil] 9 (#$ . 25465)]) (put 'which-key--pages-pages 'compiler-macro 'which-key--pages-pages--cmacro) #@67 Access slot "pages" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-pages #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 1] 5 (#$ . 25899)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-pages side-effect-free t] 4) #@80 compiler-macro for inlining `which-key--pages-height'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-height--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-height (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 2)) nil] 9 (#$ . 26265)]) (put 'which-key--pages-height 'compiler-macro 'which-key--pages-height--cmacro) #@68 Access slot "height" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-height #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 2] 5 (#$ . 26704)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-height side-effect-free t] 4) #@80 compiler-macro for inlining `which-key--pages-widths'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-widths--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-widths (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 3)) nil] 9 (#$ . 27073)]) (put 'which-key--pages-widths 'compiler-macro 'which-key--pages-widths--cmacro) #@68 Access slot "widths" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-widths #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 3] 5 (#$ . 27512)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-widths side-effect-free t] 4) #@83 compiler-macro for inlining `which-key--pages-keys/page'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-keys/page--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-keys/page (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 4)) nil] 9 (#$ . 27881)]) (put 'which-key--pages-keys/page 'compiler-macro 'which-key--pages-keys/page--cmacro) #@71 Access slot "keys/page" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-keys/page #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 4] 5 (#$ . 28335)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-keys/page side-effect-free t] 4) #@83 compiler-macro for inlining `which-key--pages-page-nums'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-page-nums--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-page-nums (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 5)) nil] 9 (#$ . 28713)]) (put 'which-key--pages-page-nums 'compiler-macro 'which-key--pages-page-nums--cmacro) #@71 Access slot "page-nums" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-page-nums #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 5] 5 (#$ . 29167)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-page-nums side-effect-free t] 4) #@83 compiler-macro for inlining `which-key--pages-num-pages'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-num-pages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-num-pages (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 6)) nil] 9 (#$ . 29545)]) (put 'which-key--pages-num-pages 'compiler-macro 'which-key--pages-num-pages--cmacro) #@71 Access slot "num-pages" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-num-pages #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 6] 5 (#$ . 29999)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-num-pages side-effect-free t] 4) #@84 compiler-macro for inlining `which-key--pages-total-keys'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-total-keys--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-total-keys (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 7)) nil] 9 (#$ . 30377)]) (put 'which-key--pages-total-keys 'compiler-macro 'which-key--pages-total-keys--cmacro) #@72 Access slot "total-keys" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-total-keys #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 7] 5 (#$ . 30836)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-total-keys side-effect-free t] 4) #@80 compiler-macro for inlining `which-key--pages-prefix'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-prefix--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-prefix (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 8)) nil] 9 (#$ . 31217)]) (put 'which-key--pages-prefix 'compiler-macro 'which-key--pages-prefix--cmacro) #@68 Access slot "prefix" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-prefix #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 8] 5 (#$ . 31656)]) (byte-code "\300\301\302\303#\300\207" [function-put which-key--pages-prefix side-effect-free t] 4) #@86 compiler-macro for inlining `which-key--pages-prefix-title'. (fn CL-WHOLE-ARG CL-X) (defalias 'which-key--pages-prefix-title--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block which-key--pages-prefix-title (or (which-key--pages-p cl-x) (signal 'wrong-type-argument (list 'which-key--pages cl-x))) (aref cl-x 9)) nil] 9 (#$ . 32025)]) (put 'which-key--pages-prefix-title 'compiler-macro 'which-key--pages-prefix-title--cmacro) #@74 Access slot "prefix-title" of `which-key--pages' struct CL-X. (fn CL-X) (defalias 'which-key--pages-prefix-title #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 9] 5 (#$ . 32494)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put which-key--pages-prefix-title side-effect-free t defalias copy-which-key--pages copy-sequence] 4) #@165 compiler-macro for inlining `make-which-key--pages'. (fn CL-WHOLE &cl-quote &key PAGES HEIGHT WIDTHS KEYS/PAGE PAGE-NUMS NUM-PAGES TOTAL-KEYS PREFIX PREFIX-TITLE) (defalias 'make-which-key--pages--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320\321\314\314&\207" [plist-member :pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title (:pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title)" cl--defsubst-expand (pages height widths keys/page page-nums num-pages total-keys prefix prefix-title) (cl-block make-which-key--pages (record 'which-key--pages pages height widths keys/page page-nums num-pages total-keys prefix prefix-title))] 26 (#$ . 32937)]) (put 'make-which-key--pages 'compiler-macro 'make-which-key--pages--cmacro) #@145 Constructor for objects of type `which-key--pages'. (fn &key PAGES HEIGHT WIDTHS KEYS/PAGE PAGE-NUMS NUM-PAGES TOTAL-KEYS PREFIX PREFIX-TITLE) (defalias 'make-which-key--pages #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title (:pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title)" record which-key--pages] 21 (#$ . 34132)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-which-key--pages side-effect-free t cl-struct-define which-key--pages nil cl-structure-object record ((cl-tag-slot) (pages) (height) (widths) (keys/page) (page-nums) (num-pages) (total-keys) (prefix) (prefix-title)) cl-struct-which-key--pages-tags] 11) #@15 (fn LIST N) (defalias 'which-key--rotate #[514 "G\300W\203\211\\\202\301\"\302\303Z\"\304Z\"\"\207" [0 mod append last butlast] 11 (#$ . 35347)]) #@20 (fn PAGES-OBJ N) (defalias 'which-key--pages-set-current-page #[514 "\301!>\204\302\303\304D\"\210\211\305\306\301!>\204$\302\303\304D\"\210\305H\"I\266\301!>\204;\302\303\304D\"\210\211\307\306\301!>\204P\302\303\304D\"\210\307H\"I\266\301!>\204g\302\303\304D\"\210\211\310\306\301!>\204|\302\303\304D\"\210\310H\"I\266\301!>\204\223\302\303\304D\"\210\211\311\306\301!>\204\250\302\303\304D\"\210\311H\"I\266\207" [cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 1 which-key--rotate 3 4 5] 10 (#$ . 35520)]) (defalias 'which-key--on-first-page #[0 "\302! >\204\303\304\305D\"\210\306H\307U\207" [which-key--pages-obj cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 5 1] 4]) (put 'which-key--on-first-page 'byte-optimizer 'byte-compile-inline-expand) (defalias 'which-key--on-last-page #[0 "\302! >\204\303\304\305D\"\210\306H\302! >\204!\303\304\305D\"\210\307HU\207" [which-key--pages-obj cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 5 6] 5]) (put 'which-key--on-last-page 'byte-optimizer 'byte-compile-inline-expand) (defalias 'which-key--current-prefix #[0 "\205\302! >\204\303\304\305D\"\210\306H\207" [which-key--pages-obj cl-struct-which-key--pages-tags type-of signal wrong-type-argument which-key--pages 8] 4]) (put 'which-key--current-prefix 'byte-optimizer 'byte-compile-inline-expand) #@18 (fn &rest MSG) (defalias 'which-key--debug-message '(macro . #[128 "\300\301\302\303\304\305BDD\306BBE\207" [when which-key--debug-buffer-name let (buf (get-buffer-create which-key--debug-buffer-name)) fmt-msg format ((with-current-buffer buf (goto-char (point-max)) (insert "\n" fmt-msg "\n")))] 8 (#$ . 37017)])) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable which-key-allow-evil-operators funcall function #[0 "\300\301!\207" [boundp evil-this-operator] 2] "Allow popup to show for evil operators. The popup is normally\n inhibited in the middle of commands, but setting this to\n non-nil will override this behavior for evil operators." :group which-key :type boolean which-key-show-operator-state-maps #[0 "\300\207" [nil] 1] "Experimental: Try to show the right keys following an evil\ncommand that reads a motion, such as \"y\", \"d\" and \"c\" from\nnormal state. This is experimental, because there might be some\nvalid keys missing and it might be showing some invalid keys."] 8) #@132 Support god-mode if non-nil. This is experimental, so you need to explicitly opt-in for now. Please report any problems at github. (defvar which-key--god-mode-support-enabled nil (#$ . 38109)) #@47 Holds key string to use for god-mode support. (defvar which-key--god-mode-key-string nil (#$ . 38308)) (ad-add-advice 'god-mode-lookup-command '(which-key--god-mode-lookup-command-advice nil nil (advice lambda nil (setq which-key--god-mode-key-string (ad-get-arg 0)) (unwind-protect ad-do-it (when (bound-and-true-p which-key-mode) (which-key--hide-popup))))) 'around nil) #@206 Enable support for god-mode if non-nil. This is experimental, so you need to explicitly opt-in for now. Please report any problems at github. If DISABLE is non-nil disable support. (fn &optional DISABLE) (defalias 'which-key-enable-god-mode-support #[256 "\211?\211\203\301\302\303\304#\210\202\305\302\303\304#\210\306\302!\207" [which-key--god-mode-support-enabled ad-disable-advice god-mode-lookup-command around which-key--god-mode-lookup-command-advice ad-enable-advice ad-activate] 5 (#$ . 38688) "P"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable which-key-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Which-Key mode is enabled.\nSee the `which-key-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `which-key-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group which-key :type boolean] 12) #@44 Toggle which-key-mode. (fn &optional ARG) (defalias 'which-key-mode #[256 "\306 \307\300\310=\203\311\300!?\202\312!\313V\"\210\203]  \314=\204*\f\315=\203-\316 \210 &\235\2047 '(\204A)\203C\317*\203M\320\321\322\"\210\320\321\323\"\210\320\324\325\"\210\326 \210\202~\n'\203g'*\203q\327\321\322\"\210\327\321\323\"\210\327\324\325\"\210\330 \210\331\332\311\300!\203\212\333\202\213\334\"\210\335\336!\203\265\337\300!\210\306 \203\243\211\306 \232\203\265\340\341\342\311\300!\203\260\343\202\261\344#\266\210\345 \210\311\300!\207" [which-key-mode echo-keystrokes which-key--echo-keystrokes-backup which-key-show-prefix which-key-popup-type prefix-help-command current-message set-default toggle default-value prefix-numeric-value 0 echo minibuffer which-key--setup-echo-keystrokes which-key-C-h-dispatch add-hook pre-command-hook which-key--lighter-restore which-key--hide-popup window-size-change-functions which-key--hide-popup-on-frame-size-change which-key--start-timer remove-hook which-key--stop-timer run-hooks which-key-mode-hook which-key-mode-on-hook which-key-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Which-Key mode %sabled%s" "en" "dis" force-mode-line-update which-key--paging-functions which-key--prefix-help-cmd-backup which-key-use-C-h-commands which-key-show-early-on-C-h which-key-show-remaining-keys] 7 (#$ . 39738) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar which-key-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [which-key-mode-hook variable-documentation put "Hook run after entering or leaving `which-key-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4) #@30 Keymap for `which-key-mode'. (defvar which-key-mode-map (byte-code "\301 \302\303\304\305\306\307!\310\"\311\312%\"\210\211\262\313!\203 \211\202/\211<\203+\314!\202/\315\316\"\207" [which-key-paging-prefixes make-sparse-keymap mapc make-byte-code 257 "\302\300\303\304 Q!\305#\207" vconcat vector [which-key-paging-key define-key kbd " " which-key-C-h-dispatch] 7 "\n\n(fn PREFIX)" keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 8) (#$ . 41545)) (byte-code "\301\302\303\304\211%\207" [which-key-mode-map add-minor-mode which-key-mode which-key-lighter nil] 6) #@29 Initialize which-key buffer (defalias 'which-key--init-buffer #[0 "\306!?\205>\307 !rq\210\310\311\312!\210\313\314!\210)\315\303!\210\310\315\304!\210\310\315\305!\210\310\315\316!\210\310\315\317!\210\310\320\321!)\207" [which-key--buffer which-key-buffer-name message-log-max cursor-type cursor-in-non-selected-windows mode-line-format buffer-live-p get-buffer-create nil toggle-truncate-lines 1 message "" make-local-variable word-wrap show-trailing-whitespace run-hooks which-key-init-buffer-hook] 2 (#$ . 42139)]) #@81 Reduce `echo-keystrokes' if necessary (it will interfere if it's set too high). (defalias 'which-key--setup-echo-keystrokes #[0 "\205!\303 Z!\304V\205!\n V\203 \211\207\305\n!\306\245\211\211\207" [echo-keystrokes which-key-echo-keystrokes which-key-idle-delay abs 1e-06 float 4] 4 (#$ . 42677)]) #@214 Use of `which-key-dont-use-unicode' is preferred to this function, but it's included here in case someone cannot set that variable early enough in their configuration, if they are using a starter kit for example. (defalias 'which-key-remove-default-unicode-chars #[0 "\302\230\203\303\304\305 \"\304\306 \"\211\207" [which-key-separator which-key-key-replacement-alist " → " " : " delete ("left" . "←") ("right" . "→")] 3 (#$ . 42990)]) #@63 Apply suggested settings for side-window that opens on right. (defalias 'which-key-setup-side-window-right #[0 "\303\304\305\211\207" [which-key-popup-type which-key-side-window-location which-key-show-prefix side-window right top] 2 (#$ . 43445) nil]) #@106 Apply suggested settings for side-window that opens on right if there is space and the bottom otherwise. (defalias 'which-key-setup-side-window-right-bottom #[0 "\303\304\305\211\207" [which-key-popup-type which-key-side-window-location which-key-show-prefix side-window (right bottom) top] 2 (#$ . 43708) nil]) #@64 Apply suggested settings for side-window that opens on bottom. (defalias 'which-key-setup-side-window-bottom #[0 "\303 \210\304\305\306\211\207" [which-key-popup-type which-key-side-window-location which-key-show-prefix which-key--setup-echo-keystrokes side-window bottom echo] 2 (#$ . 44029) nil]) #@193 Apply suggested settings for minibuffer. Do not use this setup if you use the paging commands. Instead use `which-key-setup-side-window-bottom', which is nearly identical but more functional. (defalias 'which-key-setup-minibuffer #[0 "\302 \210\303\304\211\207" [which-key-popup-type which-key-show-prefix which-key--setup-echo-keystrokes minibuffer left] 2 (#$ . 44338) nil]) #@979 Replace the description of KEY using REPLACEMENT in KEYMAP. KEY should take a format suitable for use in `kbd'. REPLACEMENT is the string to use to describe the command associated with KEY in the KEYMAP. You may also use a cons cell of the form (STRING . COMMAND) for each REPLACEMENT, where STRING is the replacement string and COMMAND is a symbol corresponding to the intended command to be replaced. In the latter case, which-key will verify the intended command before performing the replacement. COMMAND should be nil if the binding corresponds to a key prefix. For example, (which-key-add-keymap-based-replacements global-map "C-x w" "Save as") and (which-key-add-keymap-based-replacements global-map "C-x w" '("Save as" . write-file)) both have the same effect for the "C-x C-w" key binding, but the latter causes which-key to verify that the key sequence is actually bound to write-file before performing the replacement. (fn KEYMAP KEY REPLACEMENT &rest MORE) (defalias 'which-key-add-keymap-based-replacements #[899 "\2055;\203 \202\242\243\300\301\302!!\303BD#\266\211A\262\242\262\211A\262\242\262\202\207" [define-key which-key--pseudo-key kbd which-key] 12 (#$ . 44724)]) (put 'which-key-add-keymap-based-replacements 'lisp-indent-function 'defun) #@725 Replace the description of KEY-SEQUENCE with REPLACEMENT. KEY-SEQUENCE is a string suitable for use in `kbd'. REPLACEMENT may either be a string, as in (which-key-add-key-based-replacements "C-x 1" "maximize") a cons of two strings as in (which-key-add-key-based-replacements "C-x 8" '("unicode" . "Unicode keys")) or a function that takes a (KEY . BINDING) cons and returns a replacement. In the second case, the second string is used to provide a longer name for the keys under a prefix. MORE allows you to specifcy additional KEY REPLACEMENT pairs. All replacements are added to `which-key-key-based-description-replacement-alist'. (fn KEY-SEQUENCE REPLACEMENT &rest MORE) (defalias 'which-key-add-key-based-replacements #[642 "\205Y\302\303!!\304!\203\206\242\206\305\306!\307Q\310B\304!\203+\202.\310BBB\304!\204D:\203D\243B B\266\211A\262\242\262\211A\262\242\262\202\207" [which-key-replacement-alist which-key--prefix-title-alist key-description kbd functionp "\\`" regexp-quote "\\'" nil] 8 (#$ . 46026)]) (put 'which-key-add-key-based-replacements 'lisp-indent-function 'defun) #@277 Functions like `which-key-add-key-based-replacements'. The difference is that MODE specifies the `major-mode' that must be active for KEY-SEQUENCE and REPLACEMENT (MORE contains addition KEY-SEQUENCE REPLACEMENT pairs) to apply. (fn MODE KEY-SEQUENCE REPLACEMENT &rest MORE) (defalias 'which-key-add-major-mode-key-based-replacements #[899 "9\204 \302\303!\210\236\243\206\304 \236\243\206\304\203w\305\306!!\307!\203-\2063\242\2063\310\311!\312Q\304B\307!\203E\202H\304BBB\262\307!\204b:\203b\243BB\262\266\211A\262\242\262\211A\262\242\262\202\236\203\206\236\241\210\202\214BB \236\203\232 \236\241\202\241B B\211\207" [which-key-replacement-alist which-key--prefix-title-alist error "MODE should be a symbol corresponding to a value of major-mode" nil key-description kbd functionp "\\`" regexp-quote "\\'"] 11 (#$ . 47206)]) (byte-code "\300\301\302\303#\210\304\305\306\"\210\307\305\306\310#\210\304\311\306\"\210\307\311\306\310#\210\304\312\301\"\210\307\312\301\310#\207" [put which-key-add-major-mode-key-based-replacements lisp-indent-function defun defalias which-key-add-prefix-title which-key-add-key-based-replacements make-obsolete "2016-10-05" which-key-declare-prefixes which-key-declare-prefixes-for-mode] 4) #@181 Recursively bind KEY in MAP to DEF on every level of MAP except the first. If AT-ROOT is non-nil the binding is also placed at the root of MAP. (fn MAP KEY DEF &optional AT-ROOT) (defalias 'which-key-define-key-recursively #[1027 "\211\203\n\300#\210\301\302\303\304\305\306\"\307\"\310\311%\"\207" [define-key map-keymap make-byte-code 514 "\302!\205\f\303\300\301\304$\207" vconcat vector [keymapp which-key-define-key-recursively t] 7 "\n\n(fn EV DF)"] 12 (#$ . 48509)]) #@195 When DEF takes the form ("DESCRIPTION". DEF), make sure which-key uses "DESCRIPTION" for this binding. This function is meant to be used as :before advice for `define-key'. (fn KEYMAP KEY DEF) (defalias 'which-key--process-define-key-args #[771 "\3001 \211:\205\211@;\205\211A9\205\301\302!\303D#0\207\304\305\"\210\306\207" [(debug error) define-key which-key--pseudo-key which-key message "Which-key extended define-key error: %s" nil] 8 (#$ . 49003)]) (byte-code "\203\n\301\302\303\304#\210\301\207" [which-key-enable-extended-define-key advice-add define-key :before which-key--process-define-key-args] 4) #@397 Convert window text-width to window total-width. TEXT-WIDTH is the desired text width of the window. The function calculates what total width is required for a window in the selected to have a text-width of TEXT-WIDTH columns. The calculation considers possible fringes and scroll bars. This function assumes that the desired window has the same character width as the frame. (fn TEXT-WIDTH) (defalias 'which-key--text-width-to-total #[257 "\300 \301\302 \245\303 \245\304 \203\305\202\306\307%\207" [frame-char-width + frame-fringe-width frame-scroll-bar-width which-key--char-enlarged-p 1 0 3] 8 (#$ . 49635)]) #@334 Convert window total-width to window text-width. TOTAL-WIDTH is the desired total width of the window. The function calculates what text width fits such a window. The calculation considers possible fringes and scroll bars. This function assumes that the desired window has the same character width as the frame. (fn TOTAL-WIDTH) (defalias 'which-key--total-width-to-text #[257 "\300 \301\302 \245\303 \245\304 \203\305\202\306\307%\207" [frame-char-width - frame-fringe-width frame-scroll-bar-width which-key--char-enlarged-p 1 0 3] 8 (#$ . 50266)]) #@24 (fn &optional FRAME) (defalias 'which-key--char-enlarged-p #[256 "\300 \301\302 !\303\304 !\245V\207" [frame-char-width float frame-pixel-width window-total-width frame-root-window] 5 (#$ . 50833)]) #@24 (fn &optional FRAME) (defalias 'which-key--char-reduced-p #[256 "\300 \301\302 !\303\304 !\245W\207" [frame-char-width float frame-pixel-width window-total-width frame-root-window] 5 (#$ . 51040)]) #@24 (fn &optional FRAME) (defalias 'which-key--char-exact-p #[256 "\300 \301\302 !\303\304 !\245U\207" [frame-char-width float frame-pixel-width window-total-width frame-root-window] 5 (#$ . 51246)]) #@296 Return window total width. If WIDTH-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it should be a percentage (a number between 0 and 1) out of the frame's width. More precisely, it should be a percentage out of the frame's root window's total width. (fn WIDTH-OR-PERCENTAGE) (defalias 'which-key--width-or-percentage-to-width #[257 "\300!\203\207\301\302\303 !_!\207" [wholenump round window-total-width frame-root-window] 5 (#$ . 51451)]) #@301 Return window total height. If HEIGHT-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it should be a percentage (a number between 0 and 1) out of the frame's height. More precisely, it should be a percentage out of the frame's root window's total height. (fn HEIGHT-OR-PERCENTAGE) (defalias 'which-key--height-or-percentage-to-height #[257 "\300!\203\207\301\302\303 !_!\207" [wholenump round window-total-height frame-root-window] 5 (#$ . 51922)]) #@48 Non-nil if a change in frame size is detected. (defalias 'which-key--frame-size-changed-p #[0 "\301 \302 B\204\211\303\202\232?\205\211\211\207" [which-key--previous-frame-size frame-width frame-height nil] 3 (#$ . 52400)]) #@55 This function is called to hide the which-key buffer. (defalias 'which-key--hide-popup #[0 "\206 \n\235?\205E\306\211\306\211\203!\203!\307 \210\310 \210\311\312\"\203/\313 \207\311\314\"\203:\315 \207\311\316\"\205E \207" [which-key-persistent-popup real-this-command which-key--paging-functions which-key--last-try-2-loc which-key--pages-obj which-key--automatic-display nil which-key--start-timer which-key--lighter-restore eql side-window which-key--hide-buffer-side-window frame which-key--hide-buffer-frame custom which-key--prior-show-keymap-args which-key-idle-secondary-delay which-key--secondary-timer-active which-key-popup-type which-key-custom-hide-popup-function] 4 (#$ . 52641)]) #@78 Version of `which-key--hide-popup' without the check of `real-this-command'. (defalias 'which-key--hide-popup-ignore-command #[0 "\302\303\"\203\n\304 \207\302\305\"\203\306 \207\302\307\"\205 \207" [which-key-popup-type which-key-custom-hide-popup-function eql side-window which-key--hide-buffer-side-window frame which-key--hide-buffer-frame custom] 3 (#$ . 53368)]) #@90 Hide which-key popup if the frame is resized (to trigger a new popup). (fn &optional _) (defalias 'which-key--hide-popup-on-frame-size-change #[256 "\300 \205\301 \207" [which-key--frame-size-changed-p which-key--hide-popup] 2 (#$ . 53752)]) #@55 Hide which-key buffer when side-window popup is used. (defalias 'which-key--hide-buffer-side-window #[0 "\301!\205 \302!\207" [which-key--buffer buffer-live-p quit-windows-on] 2 (#$ . 54003)]) #@49 Hide which-key buffer when frame popup is used. (defalias 'which-key--hide-buffer-frame #[0 "\301!\205 \302!\207" [which-key--frame frame-live-p delete-frame] 2 (#$ . 54205)]) (defalias 'which-key--popup-showing-p #[0 "\301!\205 \302\303!!\207" [which-key--buffer bufferp window-live-p get-buffer-window] 3]) #@239 Show the which-key buffer. ACT-POPUP-DIM includes the dimensions, (height . width) of the buffer text to be displayed in the popup. Return nil if no window is shown, or if there is no need to start the closing timer. (fn ACT-POPUP-DIM) (defalias 'which-key--show-popup #[257 "\211@\302V\205.\211A\302V\205.\303\304\"\203\305!\207\303\306\"\203$\307!\207\303\310\"\205. !\207" [which-key-popup-type which-key-custom-show-popup-function 0 eql side-window which-key--show-buffer-side-window frame which-key--show-buffer-frame custom] 4 (#$ . 54527)]) #@197 Slightly modified version of `fit-buffer-to-window'. Use &rest params because `fit-buffer-to-window' has a different call signature in different emacs versions (fn &optional WINDOW &rest PARAMS) (defalias 'which-key--fit-buffer-to-window-horizontally #[384 "\302\303\304\305#*\207" [window-min-height fit-window-to-buffer-horizontally t 1 apply fit-window-to-buffer] 6 (#$ . 55096)]) #@75 Show which-key buffer when popup type is side-window. (fn ACT-POPUP-DIM) (defalias 'which-key--show-buffer-side-window #[257 "\211@A\203\305\306!B\307B\310 B\311\nBF\202#\312\313\310 B\311\nBF \314=\2034\315\f!\210\316\f\"\202E\317\f!\203A\320\f\"\202E\316\f\"\207" [which-key-allow-imprecise-window-fit which-key-side-window-location which-key-side-window-slot which-key--multiple-locations which-key--buffer window-width which-key--text-width-to-total window-height side slot (window-width . which-key--fit-buffer-to-window-horizontally) (window-height lambda (w) (fit-window-to-buffer w nil 1)) t delete-windows-on display-buffer-in-side-window get-buffer-window display-buffer-reuse-window] 8 (#$ . 55491)]) #@69 Show which-key buffer when popup type is frame. (fn ACT-POPUP-DIM) (defalias 'which-key--show-buffer-frame #[257 "\211@rq\210 )\203\303\202\304\\A\305\\\306\n!\203,\307\310\n!!=\203,\311\"\2020\312\"\211\2059\313!\211\207" [which-key--buffer mode-line-format which-key--frame 1 0 2 frame-live-p window-buffer frame-root-window which-key--show-buffer-reuse-frame which-key--show-buffer-new-frame window-frame] 7 (#$ . 56224)]) #@75 Helper for `which-key--show-buffer-frame'. (fn FRAME-HEIGHT FRAME-WIDTH) (defalias 'which-key--show-buffer-new-frame #[514 "\301B\302B\303BB\304BC\305 \306\"\211\205\307\310!\"\210\211\207" [which-key--buffer height width ((user-size . t) (minibuffer) (name . "which-key") (vertical-scroll-bars) (visibility . t)) pop-up-frame-parameters selected-frame display-buffer-pop-up-frame redirect-frame-focus window-frame] 9 (#$ . 56674)]) #@75 Helper for `which-key--show-buffer-frame'. (fn FRAME-HEIGHT FRAME-WIDTH) (defalias 'which-key--show-buffer-reuse-frame #[514 "\302\303 BC\"\211\205\304\305!#\210\211\207" [which-key--buffer which-key--frame display-buffer-reuse-window reusable-frames set-frame-size window-frame] 7 (#$ . 57123)]) #@191 Dimesion functions should return the maximum possible (height . width) of the intended popup. SELECTED-WINDOW-WIDTH is the width of currently active window, not the which-key buffer window. (defalias 'which-key--popup-max-dimensions #[0 "\302\303\"\203\n\304 \207\302\305\"\203\306 \207\302\307\"\203\310 \207\302\311\"\205) \312 !\207" [which-key-popup-type which-key-custom-popup-max-dimensions-function eql minibuffer which-key--minibuffer-max-dimensions side-window which-key--side-window-max-dimensions frame which-key--frame-max-dimensions custom window-width] 3 (#$ . 57434)]) #@102 Return max-dimensions of minibuffer (height . width). Measured in lines and characters respectively. (defalias 'which-key--minibuffer-max-dimensions #[0 "\302!\203\303\304 _!\202\305\306 Z]B\207" [max-mini-window-height which-key-unicode-correction floatp floor frame-text-lines 0 frame-text-cols] 4 (#$ . 58035)]) #@103 Return max-dimensions of the side-window popup (height . width) in lines and characters respectively. (defalias 'which-key--side-window-max-dimensions #[0 "\304\235\203\305\306 \307\310 !\311#\202\312 !\313\314\235\203$\315\316\n!!\202)\315\316\317!! Z]B\207" [which-key-side-window-location which-key-side-window-max-height which-key-side-window-max-width which-key-unicode-correction (left right) - frame-height window-text-height minibuffer-window 1 which-key--height-or-percentage-to-height 0 (left right) which-key--total-width-to-text which-key--width-or-percentage-to-width 1.0] 5 (#$ . 58365)]) #@97 Return max-dimensions of the frame popup (height . width) in lines and characters respectively. (defalias 'which-key--frame-max-dimensions #[0 " B\207" [which-key-frame-max-height which-key-frame-max-width] 2 (#$ . 58982)]) #@28 (fn A B &optional ALPHA) (defalias 'which-key--string< #[770 "\227\227\203\204\230\203\231?\202\\\231\202\\\2039\2039\230\2033\231\202\\\231\202\\\204Y\230?\230?=\203S\231\202T\211\266\202\202\\\231\207" [which-key-sort-uppercase-first] 9 (#$ . 59213)]) #@108 Sorting function used for `which-key-key-order' and `which-key-key-order-alpha'. (fn A B &optional ALPHA) (defalias 'which-key--key-description< #[770 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\"\203\313\314\"\202 \312\"\2030\313\314\"\2021\315\230\315\230G\314UG\314U\316\211\317\320\312#)\266\203\317\320\312#)\266\203\321\211\n\317\320\312#)\266\203\n\317\320\312#)\266\203\322\f\317\320\312#)\266\203\322\f\317\320\312#)\266\203 \204\237\n\203\252 \205}\n?\202}\203\335\203\335 \303\310O \303\310O\230\203\322\323\310\317O\310\317O#\202}\324#\202}\204\346\203\353\202} \203\203\324#\202} \204\n\203 \202}\203+\211\203+\325\326\327\330#!\325\326\327\330#!W\202}\2043\211\2037\202}\203i\203i \303\331O \303\331O\230\203^\323\331\317O\331\317O#\202}\324#\202}\204q\203u\202}\324#\266\217)\207" [inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "^\\([^ ]+\\) \\.\\. [^ ]+" string-match match-string 1 "" "^\\(RET\\|SPC\\|TAB\\|DEL\\|LFD\\|ESC\\|NUL\\)" nil t "^\\(M\\|C\\|S\\|A\\|H\\|s\\)-" "" which-key--key-description< which-key--string< string-to-number replace-regexp-in-string "" "\\1" 2] 25 (#$ . 59524)]) #@295 Order key descriptions A and B. Order is lexicographic within a "class", where the classes and the ordering of classes are listed below. special (SPC,TAB,...) < single char < mod (C-,M-,...) < other. Sorts single characters alphabetically with lowercase coming before upper. (fn ACONS BCONS) (defalias 'which-key-key-order-alpha #[514 "\300@@\301#\207" [which-key--key-description< t] 6 (#$ . 60911)]) (put 'which-key-key-order-alpha 'byte-optimizer 'byte-compile-inline-expand) #@220 Order key descriptions A and B. Order is lexicographic within a "class", where the classes and the ordering of classes are listed below. special (SPC,TAB,...) < single char < mod (C-,M-,...) < other. (fn ACONS BCONS) (defalias 'which-key-key-order #[514 "\300@@\"\207" [which-key--key-description<] 5 (#$ . 61401)]) (put 'which-key-key-order 'byte-optimizer 'byte-compile-inline-expand) #@96 Order descriptions of A and B. Uses `string-lessp' after applying lowercase. (fn ACONS BCONS) (defalias 'which-key-description-order #[514 "A\227A\227\231\207" [] 4 (#$ . 61798)]) (put 'which-key-description-order 'byte-optimizer 'byte-compile-inline-expand) #@20 (fn DESCRIPTION) (defalias 'which-key--group-p #[257 "\301\302\303\304#)\266\203\206\305\306!!\207" [inhibit-changing-match-data "^\\(group:\\|Prefix\\)" nil t string-match keymapp intern] 8 (#$ . 62066)]) (put 'which-key--group-p 'byte-optimizer 'byte-compile-inline-expand) #@163 Order first by whether A and/or B is a prefix with no prefix coming before a prefix. Within these categories order using `which-key-key-order'. (fn ACONS BCONS) (defalias 'which-key-prefix-then-key-order #[514 "A\301\302\303\304#)\266\203\206\305\306!!\262A\301\302\303\304#)\266\203\2060\305\306!!\262=\204A?\205K\211\202K\307@@\"\266\202\207" [inhibit-changing-match-data "^\\(group:\\|Prefix\\)" nil t string-match keymapp intern which-key--key-description<] 11 (#$ . 62359)]) #@160 Order first by whether A and/or B is a prefix with prefix coming before a prefix. Within these categories order using `which-key-key-order'. (fn ACONS BCONS) (defalias 'which-key-prefix-then-key-order-reverse #[514 "A\301\302\303\304#)\266\203\206\305\306!!\262A\301\302\303\304#)\266\203\2060\305\306!!\262=\204A\205K\211?\202K\307@@\"\266\202\207" [inhibit-changing-match-data "^\\(group:\\|Prefix\\)" nil t string-match keymapp intern which-key--key-description<] 11 (#$ . 62876)]) #@165 Order first by whether A and/or B is a local binding with local bindings coming first. Within these categories order using `which-key-key-order'. (fn ACONS BCONS) (defalias 'which-key-local-then-key-order #[514 "\300!\300!=\204\205\211?\202\301@@\"\266\202\207" [which-key--local-binding-p which-key--key-description<] 9 (#$ . 63398)]) #@92 If MAYBE-STRING is a string use `which-key--string-width' o/w return 0. (fn MAYBE-STRING) (defalias 'which-key--string-width #[257 "\211;\203 \300!\207\301\207" [string-width 0] 3 (#$ . 63756)]) (put 'which-key--string-width 'byte-optimizer 'byte-compile-inline-expand) #@92 Version of `lookup-key' that allows KEYMAP to be nil. KEY is not checked. (fn KEYMAP KEY) (defalias 'which-key--safe-lookup-key #[514 "\300!\205\n\301\"\207" [keymapp lookup-key] 5 (#$ . 64035)]) (put 'which-key--safe-lookup-key 'byte-optimizer 'byte-compile-inline-expand) #@12 (fn STR) (defalias 'which-key--butlast-string #[257 "\300\301\302\303!!\304#\207" [mapconcat identity butlast split-string " "] 6 (#$ . 64320)]) (put 'which-key--butlast-string 'byte-optimizer 'byte-compile-inline-expand) #@32 (fn KEY-BINDING REPLACEMENT) (defalias 'which-key--match-replacement #[514 ":\205?\211@9?\205?\211@@@A\302\203)@\302\303\304#)\266\203\205<\211?\206<\211A\302\303\304#)\266\203)\266\202\207" [case-fold-search inhibit-changing-match-data nil t string-match] 11 (#$ . 64551)]) #@37 (fn KEY-BINDING &optional PREFIX) (defalias 'which-key--get-pseudo-binding #[513 "\300@!\301\302\"!\211\2054\211A@\211@A;\2052\211\203-\303!\204-\211\301!=\2052@B\266\203\207" [kbd key-binding which-key--pseudo-key keymapp] 10 (#$ . 64854)]) #@25 (fn KEY-BINDING REPL) (defalias 'which-key--replace-in-binding #[514 "\211:\203\n\211A\204\f\207\300A!\203\211A!\207\211A:\205o\211@@\2038\211A@\2038\301@@A@@\302$\202F\211A@\203D\211A@\202F@@A\203`AA\203`\301@AAAA\302$\202nAA\203lAA\202nAB\207" [functionp replace-regexp-in-string t] 8 (#$ . 65120)]) (put 'which-key--replace-in-binding 'byte-optimizer 'byte-compile-inline-expand) #@26 (fn KEY-BINDING REPLS) (defalias 'which-key--replace-in-repl-list-once #[514 "\3002\236\211\211\205\233\211@\301\"\203\224\302\300\303\211:\203\"\211A\204(\266\202\202\221\304A!\2038\211A!\266\202\202\221\211A:\205\217\211@@\203X\211A@\203X\305@@A@@\306$\202f\211A@\203d\211A@\202f@@A\203\200AA\203\200\305@AAAA\306$\202\216AA\203\214AA\202\216AB\266\202B\"\210A\266\202\202\2620\207" [--cl-block-nil-- which-key--match-replacement throw replaced functionp replace-regexp-in-string t] 15 (#$ . 65541)]) #@26 (fn KEY-BINDING REPLS) (defalias 'which-key--replace-in-repl-list-many #[514 "\300\211\203\226\211@\301\"\203\217\302\262\211:\203\211A\204$\266\202\202\215\303A!\2034\211A!\266\202\202\215\211A:\205\213\211@@\203T\211A@\203T\304@@A@@\302$\202b\211A@\203`\211A@\202b@@A\203|AA\203|\304@AAAA\302$\202\212AA\203\210AA\202\212AB\266\202\262A\266\202\202\210\211\205\236\305B\207" [nil which-key--match-replacement t functionp replace-regexp-in-string replaced] 13 (#$ . 66095)]) #@229 Use `which-key--replacement-alist' to maybe replace KEY-BINDING. KEY-BINDING is a cons cell of the form (KEY . BINDING) each of which are strings. KEY is of the form produced by `key-binding'. (fn KEY-BINDING &optional PREFIX) (defalias 'which-key--maybe-replace #[513 "\303\"\211\203\f\211\202\242\203\304\202\305\306 \n\236\243D\"\211:\203j\211@\211\307=\205eA\211\203`\306\nD\"\211:\203R\211@\211\307=\205MA\211\211\262\262\262\202[\211\204Z\202[\310\262\202a\211\262\262\262\202\236\211\204\235\306\nD\"\211:\203\217\211@\211\307=\205\212A\211\211\262\262\262\202\230\211\204\227\202\230\310\262\202\236\310\262\262\207" [which-key-allow-multiple-replacements major-mode which-key-replacement-alist which-key--get-pseudo-binding which-key--replace-in-repl-list-many which-key--replace-in-repl-list-once apply replaced nil] 13 (#$ . 66626)]) #@26 (fn &optional KEY-STR) (defalias 'which-key--current-key-list #[256 "\302\303\205\304! >\204\305\306\307D\"\210\310H!\205\"\303\311!!\"\207" [which-key--pages-obj cl-struct-which-key--pages-tags append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 kbd] 7 (#$ . 67530)]) (put 'which-key--current-key-list 'byte-optimizer 'byte-compile-inline-expand) #@26 (fn &optional KEY-STR) (defalias 'which-key--current-key-string #[256 "\302\303\304\205\305! >\204\306\307\310D\"\210\311H!\205$\304\312!!\"\262!\207" [which-key--pages-obj cl-struct-which-key--pages-tags key-description append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 kbd] 9 (#$ . 67927)]) (put 'which-key--current-key-string 'byte-optimizer 'byte-compile-inline-expand) #@16 (fn KEYDESC) (defalias 'which-key--local-binding-p #[257 "\302 \303@\304\305\306\205\307! >\204\310\311\312D\"\210\313H!\205)\306\303!!\"\262!\262!\314!\205:\315\"\266\202\316A!=\207" [which-key--pages-obj cl-struct-which-key--pages-tags current-local-map kbd key-description append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 keymapp lookup-key intern] 12 (#$ . 68354)]) #@63 Does MAP contain KEYDESC = (key . binding)? (fn MAP KEYDESC) (defalias 'which-key--map-binding-p #[514 "\303\300!\203a\203a\304\305\306@#\307\310\311 \205,\312 !\n>\204)\313\314\315 D\"\210 \316H!\2056\311\304!!\"\262!\262!\317!\205G\320\"\266\202\211\321A!=\206\\\317!\205\\A\322\230\262\206\261\304@\307\310\311 \205\312 !\n>\204|\313\314\315 D\"\210 \316H!\205\211\311\304!!\"\262!\262!\317!\205\232\320\"\266\202\211\321A!=\206\257\317!\205\257A\322\230\262\207" [evil-state which-key--pages-obj cl-struct-which-key--pages-tags boundp kbd format "<%s-state> %s" key-description append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 keymapp lookup-key intern "Prefix Command"] 13 (#$ . 68785)]) #@159 Replace the last key in the sequence KEY by a special symbol in order for which-key to allow looking up a description for the key. (fn KEY &optional PREFIX) (defalias 'which-key--pseudo-key #[513 "\300!\301\206 \302!\303\304!#\207" [listify-key-sequence vconcat butlast [which-key] last] 8 (#$ . 69565)]) #@177 KEYS is a string produced by `key-description'. A title is possibly returned using `which-key--prefix-title-alist'. An empty string is returned if no title exists. (fn KEYS) (defalias 'which-key--maybe-get-prefix-title #[257 "\211\304\230\204b\305\"\243\306\304B!\243\307\310!!\211\205\"\2119\205\"\311!\203*\202a\304\230\2044\202a \312=\203B\211\203B\211\202a \313\235\203`\n\314=\203` \203`\211\203Z\211\202a\315P\202a\304\207\304\207" [which-key--prefix-title-alist which-key-show-prefix which-key-side-window-location echo-keystrokes "" assoc-string which-key--maybe-replace key-binding kbd symbol-name echo (bottom top mode-line) bottom "Following "] 7 (#$ . 69883)]) #@83 Version of `propertize' that checks type of STRING. (fn STRING &rest PROPERTIES) (defalias 'which-key--propertize #[385 ";\205\n\300\301#\207" [apply propertize] 6 (#$ . 70590)]) #@171 Add a face to KEY. If KEY contains any "special keys" defined in `which-key-special-keys' then truncate and add the corresponding `which-key-special-key-face'. (fn KEY) (defalias 'which-key--propertize-key #[257 "\302\303\304#\305\306\307\310#\311Q\312\313 \314\315\316\317\320!\321\"\322$\216\203V\323\"\203V\315\224\315\225\315O\302\211TO\303\324#\211;\203L\325!\262\202O\315\262OQ\266\202\202W)\262)\207" [which-key-special-keys case-fold-search which-key--propertize face which-key-key-face "\\(" mapconcat identity "\\|" "\\)" nil match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match which-key-special-key-face string-width] 13 (#$ . 70781)]) #@77 Truncate DESC description to `which-key-max-description-length'. (fn DESC) (defalias 'which-key--truncate-description #[257 "\301GS\302#\303\304\302#\203 GV\203 \305OP\202!\207" [which-key-max-description-length get-text-property face which-key--propertize ".." 0] 6 (#$ . 71516)]) (put 'which-key--truncate-description 'byte-optimizer 'byte-compile-inline-expand) #@76 Return the highlight face for DESCRIPTION if it has one. (fn DESCRIPTION) (defalias 'which-key--highlight-face #[257 "\302\211\203P\211@\204I\211:\203)\211@\302\303\304#)\266\203\203I\211A\262\202I\211;\203D\211\302\303\304#)\266\203\203I\305\262\202I\306\307\"\210A\266\202\202\210\211\207" [which-key-highlighted-command-list inhibit-changing-match-data nil t string-match which-key-highlighted-command-face message "which-key: warning: element %s of which-key-highlighted-command-list is not a string or a cons\ncell"] 11 (#$ . 71901)]) #@355 Add face to DESCRIPTION where the face chosen depends on whether the description represents a group or a command. Also make some minor adjustments to the description string, like removing a "group:" prefix. ORIGINAL-DESCRIPTION is the description given by `describe-buffer-bindings'. (fn DESCRIPTION GROUP LOCAL HL-FACE &optional ORIGINAL-DESCRIPTION) (defalias 'which-key--propertize-description #[1284 "\205\263\303\304\305\306#)\266\203\203\211\307\304O\202\211\203' P\202(\211\310\304\311\2036\202I\n\203?\312\202I \203H\313\202I\314\315 \203t\316\317 !!\203t\320\317 !!\203t\321\302!\203t\n\203t\320\317 !!\202\257 \205\257\316\317 !!\205\257\320\317 !!\205\257\320\317 !!\322\323\324#\325\326 \327_!GV\203\254\330O\331P\202\255\266\203&\266\203\207" [inhibit-changing-match-data which-key-prefix-prefix tooltip-mode "^group:" nil t string-match 6 make-text-button face which-key-group-description-face which-key-local-map-description-face which-key-command-description-face help-echo fboundp intern documentation boundp replace-regexp-in-string "\n" " " floor frame-width 0.8 0 "..."] 20 (#$ . 72475)]) #@64 Pull the last key (or key range) out of KEY-STR. (fn KEY-STR) (defalias 'which-key--extract-key #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\203\312\313\"\202$\314\315\316\"!@\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\\`.*\\([^ ]+ \\.\\. [^ ]+\\)\\'" string-match match-string 1 last split-string " "] 8 (#$ . 73647)]) #@275 Maybe concat a docstring to CURRENT and return result. Specifically, do this if ORIGINAL is a command with a docstring and `which-key-show-docstrings' is non-nil. If `which-key-show-docstrings' is the symbol docstring-only, just return the docstring. (fn CURRENT ORIGINAL) (defalias 'which-key--maybe-add-docstring #[514 "\301!\302!\205\f\303!\211\205\304\305\306#\211\205\"\307\310\311\"@\312\313#\203*\211\204.\202>\314=\2038\211\202>\315\316#\207" [which-key-show-docstrings intern commandp documentation replace-regexp-in-string "^\\(?::\\(?:a\\(?:fter\\(?:-\\(?:until\\|while\\)\\)?\\|round\\)\\|before\\(?:-\\(?:until\\|while\\)\\)?\\|filter-\\(?:args\\|return\\)\\|override\\) advice: [^\n]+\n\\)+\n" "" which-key--propertize split-string "\n" face which-key-docstring-face docstring-only format "%s %s"] 10 (#$ . 74063)]) #@231 Take a list of (key . desc) cons cells in UNFORMATTED, add faces and perform replacements according to the three replacement alists. Returns a list (key separator description). (fn UNFORMATTED &optional PREFIX PRESERVE-FULL-KEY) (defalias 'which-key--format-and-replace #[769 "\303\304\305#\306 \307\211\203\272\211@\211@A\211\310\307\311\312#)\266\203\206)\313\314!!\262 \203:\315\n!\316Q\202;\317!\313!\205J\320\"\266\202\314!=\321!\322B\"\323A\n%\211\203\223\324\"\325GS\304#\303\326\304#\n\203\216G\nV\203\216\327\nOP\202\217\266\203\262:\203\261\330\203\243@\202\247\331@!! E B\262 \266A\266\202\202 \210\211\237\207" [which-key-separator inhibit-changing-match-data which-key-max-description-length which-key--propertize face which-key-separator-face current-local-map nil "^\\(group:\\|Prefix\\)" t string-match keymapp intern key-description " " kbd lookup-key which-key--highlight-face which-key--maybe-replace which-key--propertize-description which-key--maybe-add-docstring get-text-property ".." 0 which-key--propertize-key which-key--extract-key] 22 (#$ . 74921)]) #@193 Retrieve top-level bindings from KEYMAP. If ALL is non-nil, get all bindings, not just the top-level ones. PREFIX is for internal use and should not be used. (fn KEYMAP &optional ALL PREFIX) (defalias 'which-key--get-keymap-bindings #[769 "\300C\301\302\303\304\305\306#\307\"\310\311%\"\210\211\242\207" [nil map-keymap make-byte-code 514 "\306\301C\"\307! \310\311\312#)\266\203\206\370\313=\206\370\314!\203[\315\316!\203[\315\305!\203[ \203[\317\320\"\310\311\312#)\266\203\203[\302\321\306\302\242\322\300\301#\"\323\324#\240\202\370\314!\203r!\310\311\312#)\266\203\206\370\314!\203\227\300\204\207\247\203\227\325U\203\227\302\306\302\242\322\311#\"\240\202\370\205\370\302\314!\203\247\326\202\3419\203\265\327\330!!\202\341\242\331=\203\300\332\202\341\242\333=\203\313\334\202\341;\203\324\202\341\335!\203\340\307!\202\341\336B\337\302\242\323\340$\203\361\302\242\202\365\211\302\242B\262\240\207" vconcat vector [which-key--ignore-non-evil-keys-regexp inhibit-changing-match-data evil-local-mode append key-description nil t string-match menu-bar keymapp boundp evil-state format "<%s-state>$" cl-remove-duplicates which-key--get-keymap-bindings :test #[514 "@@\230\207" #1=[] 4 "\n\n(fn A B)"] 27 "Prefix Command" copy-sequence symbol-name lambda "lambda" menu-item "menu-item" vectorp "unknown" cl-member #[514 "@@\230\207" #1# 4 "\n\n(fn A B)"] which-key--evil-keys-regexp] 12 "\n\n(fn EV DEF)"] 13 (#$ . 76074)]) #@118 Replace BINDING with remapped binding if it exists. Requires `which-key-compute-remaps' to be non-nil (fn BINDING) (defalias 'which-key--compute-binding #[257 "\301\203\302\303!!\211\262\203\304\305!!\202\207" [which-key-compute-remaps nil command-remapping intern copy-sequence symbol-name] 5 (#$ . 77599)]) #@68 Generate a list of current active bindings. (fn &optional PREFIX) (defalias 'which-key--get-current-bindings #[256 "\304\305!!p\306\307\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321\300!\210\322\321\301!\210\323\324\"\210eb\210\325f\326U?\325\211m\204A\203O\327`\330 \"\262\325\262\331y\210\202;\325f\326U\203\\\322\262\202;\332\333!\204;\325\322\334#)\266\203\203w\203;\212\335\336\325\322#\205\202\313\225)\325\211\2039\327`\"\262\327\330 \"\262\337 \312\313\340\315\316!\341\"\331$\216\n\235\2047 \325\322\334#)\266\203\2047\f\203\346\334\342\343\"\"\203\346\344\345\346\"\"\2047\345\346\"\347!BB\262\2027\f\203\334\342\350\211#\"\203\345\346\"\351\345\320\"Q\344\"\204\211\347!BB\262\210\2027\334\352\"\2037\344\345\346\"\"\2047\345\346\"\347!BB\262)\210\266\325y\210\2027\237\266\203*\262\207" [indent-tabs-mode tab-width inhibit-changing-match-data which-key--ignore-keys-regexp regexp-quote key-description ("self-insert-command" "ignore" "ignore-event" "company-ignore") "\\(?:\\(?:Function key map\\|Input decoding map\\|Key\\) translations\\)" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 make-local-variable t 8 describe-buffer-bindings nil 12 buffer-substring-no-properties line-end-position 3 looking-at "^[ ]*$" string-match re-search-forward " +" match-data "\301\300\302\"\207" [set-match-data evaporate] format "^%s[ ]\\([^ ]+\\)[ ]+$" assoc-string match-string 1 which-key--compute-binding "^%s[ ]\\([^ ]+\\) \\.\\. %s[ ]\\([^ ]+\\)[ ]+$" " .. " "^\\([^ ]+\\|[^ ]+ \\.\\. [^ ]+\\)[ ]+$"] 20 (#$ . 77927)]) #@327 Collect key bindings. If KEYMAP is nil, collect from current buffer using the current key sequence as a prefix. Otherwise, collect from KEYMAP. FILTER is a function to use to filter the bindings. If RECURSIVE is non-nil, then bindings are collected recursively for all prefixes. (fn &optional PREFIX KEYMAP FILTER RECURSIVE) (defalias 'which-key--get-bindings #[1024 "\301!\203 \302\"\202\203\303\304\"\202\305!\203%\306\"\262\203/\307\"\262\310#\207" [which-key-sort-order keymapp which-key--get-keymap-bindings error "%s is not a keymap" which-key--get-current-bindings cl-remove-if-not sort which-key--format-and-replace] 9 (#$ . 79657)]) #@67 Pad COLUMNS to the same length using empty strings. (fn COLUMNS) (defalias 'which-key--normalize-columns #[257 "\300\301\302\303$\304\305\306\307\310\311!\312\"\313\314%\"\207" [cl-reduce #[514 "G]\207" [] 4 "\n\n(fn A X)"] :initial-value 0 mapcar make-byte-code 257 "\211G\300W\203\301\302\300GZ\303\"\"\207\207" vconcat vector [append make-list ""] 6 "\n\n(fn C)"] 9 (#$ . 80333)]) #@87 Transpose columns into rows, concat rows into lines and rows into page. (fn COLUMNS) (defalias 'which-key--join-columns #[257 "\300\237!\301\302\303#\304\305\306#\207" [which-key--normalize-columns apply cl-mapcar list mapconcat #[257 "\300\301\302#\207" [mapconcat identity " "] 5 "\n\n(fn ROW)"] "\n"] 7 (#$ . 80734)]) (put 'which-key--join-columns 'byte-optimizer 'byte-compile-inline-expand) #@114 Internal function for finding the max length of the INDEX element in each list element of KEYS. (fn KEYS INDEX) (defalias 'which-key--max-len #[514 "\300\301\302\303\304\305!\306\"\307\310%\311\312$\207" [cl-reduce make-byte-code 514 "\3008\211;\203\301!\262\202\302\262]\207" vconcat vector [string-width 0] 6 "\n\n(fn X Y)" :initial-value 0] 9 (#$ . 81142)]) (put 'which-key--max-len 'byte-optimizer 'byte-compile-inline-expand) #@146 Take a column of (key separator description) COL-KEYS, calculate the max width in the column and pad all cells out to that width. (fn COL-KEYS) (defalias 'which-key--pad-column #[257 "\301\302\303\304\305\306\307!\310\"\311\312%\313\301$\266\202\\\314\302\303\304\305\306\307!\310\"\311\312%\313\301$\266\202\315\302\303\304\305\306\307!\310\"\311\312%\313\301$\266\202\316\314$\211\317\303\320\321\306\307\n \"\322\"\323\324%\"B\207" [which-key-add-column-padding 0 cl-reduce make-byte-code 514 "\3008\211;\203\301!\262\202\302\262]\207" vconcat vector [string-width 0] 6 "\n\n(fn X Y)" :initial-value 1 2 + mapcar 257 "\302\303\304\300!\305\304\301!\306\260@A@\3078$\207" [format "%" int-to-string "s%s%-" "s" 2] 7 "\n\n(fn K)"] 14 (#$ . 81593)]) #@52 Partition LIST into N-sized sublists. (fn N LIST) (defalias 'which-key--partition-list #[514 "\300\203\301\302G^#B\262\233\262\202\211\237\207" [nil cl-subseq 0] 8 (#$ . 82382)]) #@195 Convert list of KEYS to columns based on dimensions AVL-LINES and AVL-WIDTH. Returns a `which-key--pages' object that holds the page strings, as well as metadata. (fn KEYS AVL-LINES AVL-WIDTH) (defalias 'which-key--list-to-pages #[771 "\301\302\303\"\"\304\211\211\211\305\211\211\211\211\306\307\301\310 \"\" V?\205\331 \203\251T\262 \211A\262 \242\262\211AC\262\211@\262 \211AG\262\311\262 \203\205\203SW\203\205 @@ \\ X\203\205 \211A\262 \242\262\211AB\262@\\\262 AG\\\262T\262\202D\312\237!\306\313\314#\315\316\317#\266\203B\262B\262B\262\202 \320\321\237\322 \311V\203\272\202\277 ^\323\237\324\325\n!\326\327\311\"\330\331\306\332\"&\207" [which-key-max-display-columns mapcar which-key--pad-column which-key--partition-list 0 nil apply max car 1 which-key--normalize-columns cl-mapcar list mapconcat #[257 "\300\301\302#\207" [mapconcat identity " "] 5 "\n\n(fn ROW)"] "\n" make-which-key--pages :pages :height :widths :keys/page reverse :page-nums number-sequence :num-pages :total-keys +] 30 (#$ . 82582)]) #@340 Create page strings using `which-key--list-to-pages'. Will try to find the best number of rows and columns using the given dimensions and the length and widths of ITEMS. Use VERTICAL if the ITEMS are laid out vertically and the number of columns should be minimized. (fn KEYS AVAILABLE-LINES AVAILABLE-WIDTH &optional MIN-LINES VERTICAL) (defalias 'which-key--create-pages-1 #[1283 "\301#\206\n\302\303\211\2033\2043\304!>\204$\305\306\307D\"\210\310H\311V\2043\311U\2037\202wV\203n\204nS\262\262\301   #\262\304!>\204d\305\306\307D\"\210\310H\311V\262\2027\203v\211\202w\207" [cl-struct-which-key--pages-tags which-key--list-to-pages 0 nil type-of signal wrong-type-argument which-key--pages 6 1] 13 (#$ . 83683)]) #@263 Create page strings using `which-key--list-to-pages'. Will try to find the best number of rows and columns using the given dimensions and the length and wdiths of KEYS. SEL-WIN-WIDTH is the width of the live window. (fn KEYS &optional PREFIX-KEYS PREFIX-TITLE) (defalias 'which-key--create-pages #[769 "\306 \211@A\307!\310!\311=\205%\312\211;\203!\313!\262\202$\314\262\\\315\235\211\2031S\2022\211 ^\203@Z\202B\n\316=\205K \317\235\320\321%\262\211\205\352\322!\f>\204l\323\324\325D\"\210\211\326H\314V\205\352\322!\f>\204\203\323\324\325D\"\210\211\211\327I\266\322!\f>\204\232\323\324\325D\"\210\211\211\330\206\250\331\307!!I\266 \203\351\332 !\333\334\335 \336\337 ! \n\322\n!\f>\204\323\323\324\325\fD\"\210 \312H&rq\210db\210\340\340\261\210)\266\211\207" [which-key-show-prefix which-key-min-display-lines which-key-popup-type which-key-side-window-location cl-struct-which-key--pages-tags which-key--debug-buffer-name which-key--popup-max-dimensions key-description which-key--full-prefix left 2 string-width 0 (bottom top) side-window (left right) nil which-key--create-pages-1 type-of signal wrong-type-argument which-key--pages 6 8 9 which-key--maybe-get-prefix-title get-buffer-create format "Frame height: %s\nMinibuffer height: %s\nMax dimensions: (%s,%s)\nAvailable for bindings: (%s,%s)\nActual lines: %s" frame-height window-text-height minibuffer-window "\n"] 28 (#$ . 84455)]) #@58 Possibly show number of keys and total in the mode line. (defalias 'which-key--lighter-status #[0 "\2055\304 !\n>\204\305\306\307 D\"\210 \310H@\304 !\n>\204&\305\306\307 D\"\210 \311H\312 \236A\313\314#\240\266\202\207" [which-key-show-remaining-keys which-key--pages-obj cl-struct-which-key--pages-tags minor-mode-alist type-of signal wrong-type-argument which-key--pages 4 7 which-key-mode format " WK: %s/%s keys"] 7 (#$ . 85931)]) #@36 Restore the lighter for which-key. (defalias 'which-key--lighter-restore #[0 "\205\n\303 \236A\n\240\207" [which-key-show-remaining-keys minor-mode-alist which-key-lighter which-key-mode] 2 (#$ . 86380)]) #@53 Echo TEXT to minibuffer without logging. (fn TEXT) (defalias 'which-key--echo #[257 "\301\302\303\")\207" [message-log-max nil message "%s"] 4 (#$ . 86593)]) #@53 Return string for next page hint. (fn PREFIX-KEYS) (defalias 'which-key--next-page-hint #[257 "\211\303Q\304\305!!\306=\307\310 !!\203\211\311Q\202\211\n\205;\305!;\2033\312 !\305!\230?\205;\313\314\315\"\316\317#\207" [which-key-paging-key help-char which-key-use-C-h-commands " " key-binding kbd which-key-C-h-dispatch key-description vector " or " char-to-string which-key--propertize format "[%s paging/help]" face which-key-note-face] 9 (#$ . 86760)]) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp universal-argument--description defalias which-key--universal-argument--description #[0 "\205z\301:\203u@\211\302=\203%A\211\204\303\202 \304\305\"\262\202p\211\250\203lA\211\204c\306\307V\203N\310\307\"\311U\203N\211\312P\262\307\245\262\2022\307U\203X\211\202\\\304\305\"\262\262\202g\304\305\"\262\202p\304\305\"\262\202y\304\305\"P\207" [prefix-arg "C-u" - " -" format " %s" "" 4 mod 0 " C-u"] 8]] 3) #@141 Return a description of the full key sequence up to now, including prefix arguments. (fn PREFIX-KEYS &optional -PREFIX-ARG DONT-PROP-KEYS) (defalias 'which-key--full-prefix #[769 "\302=\203 \202\f \303 \205\304Q\305\230\204$\204$\306\202%\305\307=\204/\2035P\202>\310!\311\312\313#P)\207" [which-key-show-prefix prefix-arg left which-key--universal-argument--description " " "" "-" echo which-key--propertize-key which-key--propertize face which-key-key-face] 11 (#$ . 87772)]) #@66 Generate transient-map for use in the top level binding display. (defalias 'which-key--get-popup-map #[0 "?\205\304 \305\306 !\307#\210\n\203\305\310 !\307#\210\211\262\207" [which-key--automatic-display which-key-paging-key which-key-use-C-h-commands help-char make-sparse-keymap define-key kbd which-key-C-h-dispatch vector] 5 (#$ . 88281)]) #@162 Add information to the basic list of key bindings, including if applicable the current prefix, the name of the current prefix, and a page count. (fn PAGES-OBJ) (defalias 'which-key--process-page #[257 "\304!>\204\305\306\307D\"\210\211\310H@\304!>\204\"\305\306\307D\"\210\311H\304!>\2044\305\306\307D\"\210\312H\304!>\204G\305\306\307D\"\210\313H@\314\304!>\204]\305\306\307D\"\210\315H!\304!>\204r\305\306\307D\"\210\316H\317!\320!\321\322\323#\310W\205\222\321\324\325\n#\322\323#P \326=\203%\321\324\327\n#\322\330#\311\211;\203\263\331!\262\202\266\332\262\211;\203\304\331!\262\202\307\332\262]\\\324\333\334!\335Q\" \310V\203\346\324\333\334!\335Q\"\202\352\336\337\"\340\211\211\310U\203\375P\340B\202 \341\342\"\262@\342R\262\342\336\337\"P\262\343\344A#P\340B\266\207\202\252 \345=\203H\n\332U\2048 \346=?\205;\347P\347\342 \260\340B\202\252 \346=\203l\342\n\332U\204^ \346=?\205a\347P\347\260\340B\202\252 \350=\203\212\351\332\352\353\354\n   $\355\"\312$B\202\252 \356=\203\246\351\332\357\353\354#\360\"\312$B\202\252\340B\207" [cl-struct-which-key--pages-tags which-key-show-prefix echo-keystrokes which-key-side-window-location type-of signal wrong-type-argument which-key--pages 1 2 6 5 key-description 8 9 which-key--full-prefix which-key--next-page-hint which-key--propertize face which-key-note-face format " (%s of %s)" left "%s/%s" which-key-separator-face string-width 0 "%-" int-to-string "s" make-string 32 nil split-string "\n" mapconcat identity top bottom " " echo make-byte-code "\304\301\300\205\305\303\211\205 \305\302\260!\207" vconcat vector [which-key--echo " "] mode-line "r q\210\305\304!\210\306\300\306\302\306\301\260\211)\207" [which-key--buffer mode-line-format make-local-variable " "]] 22 (#$ . 88640)]) #@110 Show current page. N changes the current page to the Nth page relative to the current one. (fn &optional N) (defalias 'which-key--show-page #[256 "\305 \210\306\307\310\311\205\312! >\204\313\314\315D\"\210\316H!\205(\311\317!!\"\262!\262\306\204<\320\321\"\210\202\236\203E\322\"\323!\312! >\204W\313\314\315D\"\210\324H\312! >\204i\313\314\315D\"\210\325H@\326 \210 \327=\203~\330@!\210\202\234r\fq\210\331 \210@c\210eb\210)A\203\226A \210\332B!\210\266\333\334!\203\253\334\335 !\202\257\336\335 !)\207" [which-key--pages-obj cl-struct-which-key--pages-tags golden-ratio-mode which-key-popup-type which-key--buffer which-key--init-buffer nil key-description append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 kbd message "%s- which-key can't show keys: There is not enough space based on your settings and frame size." which-key--pages-set-current-page which-key--process-page 2 3 which-key--lighter-status minibuffer which-key--echo erase-buffer which-key--show-popup fboundp set-transient-map which-key--get-popup-map set-temporary-overlay-map] 10 (#$ . 90533)]) #@277 Simulate entering the key sequence KEY-SEQ. KEY-SEQ should be a list of events as produced by `listify-key-sequence'. If nil, KEY-SEQ defaults to `which-key--current-key-list'. Any prefix arguments that were used are reapplied to the new key sequence. (fn &optional KEY-SEQ) (defalias 'which-key-reload-key-sequence #[256 "\211\206*\305\306\307\205\310! >\204\311\312\313D\"\210\314H!\205'\307\315!!\"\262\316\317\"\n\211\211\207" [which-key--pages-obj cl-struct-which-key--pages-tags current-prefix-arg prefix-arg unread-command-events nil append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 kbd mapcar #[257 "\300B\207" [t] 3 "\n\n(fn EV)"]] 8 (#$ . 91685)]) #@41 Show the next page of keys. (fn DELTA) (defalias 'which-key-turn-page #[257 "\303 \210\203\304\305!\210*\202\305!\210\306 \207" [which-key--last-try-2-loc which-key--multiple-locations which-key-side-window-location which-key-reload-key-sequence t which-key--show-page which-key--start-paging-timer] 3 (#$ . 92400)]) #@120 Call the command in `which-key--prefix-help-cmd-backup'. Usually this is `describe-prefix-bindings'. (fn &optional _) (defalias 'which-key-show-standard-help #[256 "\304\305 \306 \210 \307=\203D\211\203D\310\311\312\313\314\315\n\205/\316\n! >\204,\317\320\321\nD\"\210\n\322H!\2059\315\311!!\"\262!\262!!\202L\323 !\205L )\207" [which-key-inhibit which-key--prefix-help-cmd-backup which-key--pages-obj cl-struct-which-key--pages-tags t which-key--popup-showing-p which-key--hide-popup-ignore-command describe-prefix-bindings describe-bindings kbd nil key-description append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 functionp] 14 (#$ . 92735) nil]) #@100 Show next page of keys unless on the last page, in which case call `which-key-show-standard-help'. (defalias 'which-key-show-next-page-no-cycle #[0 "\303\304 !\n>\204\305\306\307 D\"\210 \310H\304 !\n>\204#\305\306\307 D\"\210 \311HU\203/\312 \2022\313\314!)\207" [which-key-inhibit which-key--pages-obj cl-struct-which-key--pages-tags t type-of signal wrong-type-argument which-key--pages 5 6 which-key-show-standard-help which-key-turn-page 1] 5 (#$ . 93441) nil]) #@80 Show previous page of keys unless on the first page, in which case do nothing. (defalias 'which-key-show-previous-page-no-cycle #[0 "\303\304 !\n>\204\305\306\307 D\"\210 \310H\311U?\205\312\313!)\207" [which-key-inhibit which-key--pages-obj cl-struct-which-key--pages-tags t type-of signal wrong-type-argument which-key--pages 5 1 which-key-turn-page -1] 4 (#$ . 93920) nil]) #@94 Show the next page of keys, cycling from end to beginning after last page. (fn &optional _) (defalias 'which-key-show-next-page-cycle #[256 "\301\302\303!)\207" [which-key-inhibit t which-key-turn-page 1] 3 (#$ . 94308) nil]) #@99 Show the previous page of keys, cycling from beginning to end after first page. (fn &optional _) (defalias 'which-key-show-previous-page-cycle #[256 "\301\302\303!)\207" [which-key-inhibit t which-key-turn-page -1] 3 (#$ . 94542) nil]) #@44 Show top-level bindings. (fn &optional _) (defalias 'which-key-show-top-level #[256 "\300\301\211\211\302$\207" [which-key--create-buffer-and-show nil "Top-level bindings"] 6 (#$ . 94786) nil]) #@226 Show top-level bindings in the map of the current major mode. This function will also detect evil bindings made using `evil-define-key' in this map. These bindings will depend on the current evil state. (fn &optional ALL) (defalias 'which-key-show-major-mode #[256 "\301\302\303\"!\304!\203!\305J!\203!\306\307J\310\311J\"$\202%\312\313\"\207" [major-mode intern format "%s-map" boundp keymapp which-key--show-keymap "Major-mode bindings" apply-partially which-key--map-binding-p message "which-key: No map named %s"] 8 (#$ . 94988) "P"]) #@200 Show all bindings in the map of the current major mode. This function will also detect evil bindings made using `evil-define-key' in this map. These bindings will depend on the current evil state.  (defalias 'which-key-show-full-major-mode #[0 "\300\301!\207" [which-key-show-major-mode t] 2 (#$ . 95547) nil]) #@130 Dump bindings from PREFIX into buffer named BUFFER-NAME. PREFIX should be a string suitable for `kbd'. (fn PREFIX BUFFER-NAME) (defalias 'which-key-dump-bindings #[514 "\300!\301\302!!rq\210\212\211\211\203\"\211@\303\304\305#c\210A\266\202\202\210*\306!\207" [get-buffer-create which-key--get-bindings kbd apply format "%s%s%s\n" switch-to-buffer-other-window] 10 (#$ . 95866) "sPrefix: \nB"]) #@66 Undo last keypress and force which-key update. (fn &optional _) (defalias 'which-key-undo-key #[256 "\305\306\307\310\205\311! >\204\312\313\314D\"\210\315H!\205$\310\316!!\"\262!\317 \203K\320 \242A!\203F \211A\242\321@A\"\262\202`\322 \202`\211\203\\\323!\210\324\325\326\"!\202`\306\327 )\207" [which-key--pages-obj cl-struct-which-key--pages-tags which-key-inhibit which-key--prior-show-keymap-args which-key--automatic-display butlast nil append listify-key-sequence type-of signal wrong-type-argument which-key--pages 8 kbd t keymapp which-key--show-keymap which-key--hide-popup which-key-reload-key-sequence which-key--create-buffer-and-show apply vector which-key-show-top-level] 9 (#$ . 96278) nil]) (defalias 'which-key-undo 'which-key-undo-key) #@39 Abort key sequence. (fn &optional _) (defalias 'which-key-abort #[256 "\301\302 \210\303 )\207" [which-key-inhibit t which-key--hide-popup-ignore-command keyboard-quit] 2 (#$ . 97067) nil]) #@71 Version of `digit-argument' for use in `which-key-C-h-map'. (fn KEY) (defalias 'which-key-digit-argument #[257 "\303!\304!\210) \305 )\207" [last-command-event prefix-arg current-prefix-arg string-to-char digit-argument which-key-reload-key-sequence] 3 (#$ . 97265) nil]) #@53 Toggle the display of docstrings. (fn &optional _) (defalias 'which-key-toggle-docstrings #[256 "\303=\204 ?\304 \210\305 \205#\306 !\n>\204 \307\310\311 D\"\210 \312H!\207" [which-key-show-docstrings which-key--pages-obj cl-struct-which-key--pages-tags docstring-only which-key-reload-key-sequence which-key--create-buffer-and-show type-of signal wrong-type-argument which-key--pages 8] 6 (#$ . 97548) nil]) #@161 Dispatch C-h commands by looking up key in `which-key-C-h-map'. This command is always accessible (from any prefix) if `which-key-use-C-h-commands' is non nil. (defalias 'which-key-C-h-dispatch #[0 "\306 \204#\203#\307\310\311 !!\312!\210 \203\313 \314\"\202\"\313\315\314\"\207\306 \204+\316 \207\306 \2043\316 \207\317\320\321\310\n\205N\322\n! >\204K\323\324\325\nD\"\210\n\326H!\205X\310\327!!\"\262!\262\330\f\314#\331\230\205\201\332\333\322\n! >\204z\323\324\325\nD\"\210\n\334HP\335\336#\332\337\340\341 \342\343 \344\345 \346\347 \350\351 \352\353 \354\355 \356\260!\335\336#Q\357\360!!\3614\"\3145\211\203\270\211!\202\273\362\363!)\207" [which-key-show-early-on-C-h which-key-idle-secondary-delay which-key--pages-obj cl-struct-which-key--pages-tags current-prefix-arg which-key-separator which-key--popup-showing-p butlast listify-key-sequence which-key--this-command-keys which-key-reload-key-sequence which-key--start-timer t 0.05 which-key-show-standard-help nil key-description append type-of signal wrong-type-argument which-key--pages 8 kbd which-key--full-prefix "" which-key--propertize " " 9 face which-key-note-face substitute-command-keys " \\" " \\[which-key-show-next-page-cycle]" "next-page," " \\[which-key-show-previous-page-cycle]" "previous-page," " \\[which-key-undo-key]" "undo-key," " \\[which-key-toggle-docstrings]" "toggle-docstrings," " \\[which-key-show-standard-help]" "help," " \\[which-key-abort]" "abort" " 1..9" "digit-arg" string read-key lookup-key which-key-turn-page 0 which-key-C-h-map which-key-inhibit] 28 (#$ . 97971) nil]) #@62 Non-nil if any of REGEXPS match STRING. (fn REGEXPS STRING) (defalias 'which-key--any-match-p #[514 "\3012*\211\205'\211@\211\302\303\304#)\266\203\203 \305\301\303\"\210A\266\202\202\2620\207" [inhibit-changing-match-data match nil t string-match throw] 11 (#$ . 99601)]) #@152 Try to show BINDINGS (PAGE-N) in LOC1 first. Only if no bindings fit fallback to LOC2. (fn BINDINGS PREFIX-KEYS PREFIX-TITLE LOC1 LOC2 &rest IGNORE) (defalias 'which-key--try-2-side-windows #[1413 "\303\304\305#\262*\211\203\"\211\304\306 \210*\2024\304\305#\306 \210*\207" [which-key--multiple-locations which-key-side-window-location which-key--pages-obj nil t which-key--create-pages which-key--show-page] 11 (#$ . 99895)]) #@37 Read keymap symbol from minibuffer. (defalias 'which-key--read-keymap #[0 "\301\302\303\304\305\306 \307!\205\310J!\205\311!\262\312&!\207" [obarray intern completing-read "Keymap: " #[257 "\300!\205\301J!\205\211J\302 \232?\207" [boundp keymapp make-sparse-keymap] 3 "\n\n(fn M)"] t symbol-at-point boundp keymapp symbol-name which-key-keymap-history] 9 (#$ . 100358)]) #@257 Show the top-level bindings in KEYMAP using which-key. KEYMAP is selected interactively from all available keymaps. If NO-PAGING is non-nil, which-key will not intercept subsequent keypresses for the paging functionality. (fn KEYMAP &optional NO-PAGING) (defalias 'which-key-show-keymap #[513 "\300\301!J\302\211%\207" [which-key--show-keymap symbol-name nil] 8 (#$ . 100752) (byte-code "\300 C\207" [which-key--read-keymap] 1)]) #@120 Show all bindings in KEYMAP using which-key. KEYMAP is selected interactively from all available keymaps. (fn KEYMAP) (defalias 'which-key-show-full-keymap #[257 "\300\301!J\302\303$\207" [which-key--show-keymap symbol-name nil t] 6 (#$ . 101194) (byte-code "\300 C\207" [which-key--read-keymap] 1)]) #@144 Show the top-level bindings in KEYMAP using which-key. KEYMAP is selected interactively by mode in `minor-mode-map-alist'. (fn &optional ALL) (defalias 'which-key-show-minor-mode-keymap #[256 "\301\302\303\304\305\306\307\"\"\310\311\310\312&!\313\314!\236A#\207" [minor-mode-map-alist intern completing-read "Minor Mode: " mapcar car cl-remove-if-not #[257 "\211@J\205\f\211A\300 \232?\207" [make-sparse-keymap] 3 "\n\n(fn ENTRY)"] nil t which-key-keymap-history which-key--show-keymap symbol-name] 9 (#$ . 101505) nil]) #@114 Show all bindings in KEYMAP using which-key. KEYMAP is selected interactively by mode in `minor-mode-map-alist'. (defalias 'which-key-show-full-minor-mode-keymap #[0 "\300\301!\207" [which-key-show-minor-mode-keymap t] 2 (#$ . 102042) nil]) #@69 (fn KEYMAP-NAME KEYMAP &optional PRIOR-ARGS ALL NO-PAGING FILTER) (defalias 'which-key--show-keymap #[1538 "\203B\306\307$\211G\310U\203\311\312\"\202} <\2030\313\314\307\n %\202:\315\307 #\316 \210?\205}\317 \320C!\321\322!\"\f\203`\247\203` U\203`\323 \202{\324!\203y\325 \210\326\n\327Q\f\fB#\202{\330 \266\203\207" [which-key--prior-show-keymap-args which-key-side-window-location which-key--last-try-2-loc which-key--pages-obj which-key-use-C-h-commands help-char which-key--get-bindings nil 0 message "which-key: No bindings found in %s" apply which-key--try-2-side-windows which-key--create-pages which-key--show-page read-key key-description lookup-key vector which-key-C-h-dispatch keymapp which-key--hide-popup-ignore-command which-key--show-keymap " " which-key--hide-popup] 15 (#$ . 102289)]) #@16 (fn BINDING) (defalias 'which-key--evil-operator-filter #[257 "\300A!\301!\205\302\303\"?\207" [intern functionp evil-get-command-property :suppress-operator] 5 (#$ . 103146)]) (defalias 'which-key--show-evil-operator-keymap #[0 "\203\306\211\207\307 \n E!\310!\203B\311\306\312#\211G\313U\203'\314\315!\210\202A\f<\2037\316\317\306\320\f%\202A\321\306\320#\322 \210\210\323 \211\324\235\203L\325\203b\211\247\203b\211U\203b\326 \202~\211\247\203u\211\327U\203u\330 \210\331 \202~\330 \210\332!\211\262\207" [which-key--inhibit-next-operator-popup evil-operator-shortcut-map evil-operator-state-map evil-motion-state-map which-key-side-window-location which-key--last-try-2-loc nil make-composed-keymap keymapp which-key--get-bindings which-key--evil-operator-filter 0 message "which-key: Keymap empty" apply which-key--try-2-side-windows "evil operator/motion keys" which-key--create-pages which-key--show-page read-key (102 70 116 84 96) t which-key-C-h-dispatch 27 which-key--hide-popup keyboard-quit vector which-key--pages-obj which-key-use-C-h-commands help-char unread-command-events] 8]) #@148 Fill `which-key--buffer' with key descriptions and reformat. Finally, show the buffer. (fn &optional PREFIX-KEYS FROM-KEYMAP FILTER PREFIX-TITLE) (defalias 'which-key--create-buffer-and-show #[1024 "\304 \305#\306!G\307U\203\310\311\"\210\2027<\203,\312\313 %\2027\314#\315 \210 \205Y\316 !\317\320\321\322!!\323_#rq\210db\210\324\324\261)\266\202\207" [which-key-side-window-location which-key--last-try-2-loc which-key--pages-obj which-key--debug-buffer-name current-time which-key--get-bindings key-description 0 message "%s- which-key: There are no keys to show" apply which-key--try-2-side-windows which-key--create-pages which-key--show-page get-buffer-create format "On prefix \"%s\" which-key took %.0f ms." float-time time-since 1000 "\n"] 14 (#$ . 104289)]) #@78 Version of `this-single-command-keys' corrected for key-chords and god-mode. (defalias 'which-key--this-command-keys #[0 "\305 \211\306\232\2035\307\300!\2035\2035\3101-\311 \312\313\211G\314ZH\211G\315ZH#\2620\2023\210\316\317!\210\320\262 \203R\307\302!\203R\n\203R \321=\203R\f\205P\322\f!\262\211\207" [key-chord-mode which-key--god-mode-support-enabled god-local-mode this-command which-key--god-mode-key-string this-single-command-keys [key-chord] boundp (error) recent-keys vector key-chord 3 2 message "which-key error in key-chord handling" [key-chord] god-mode-self-insert kbd] 8 (#$ . 105097)]) #@80 Function run by timer to possibly trigger `which-key--create-buffer-and-show'. (defalias 'which-key--update #[0 "\306 \307G\310V\203\325\311\312!!\2048\311\311!\205\313\"\266\202!\2048\311 \311!\2052\313\"\266\202!\203\325\n\204\325 \203I\314 \315!\"\203\325\f\203V\314\f\315!\"\204\325 \203e\316\317!\203e\204\201$\203|\316\320!\203|\203|%\321=\204\201%\204\325&\205\235\322&!'>\204\231\323\324\325&D\"\210&\326H\232?\205\203\273\327\330\315!G#\211\262\203\273\331!\205\332(\333!\210)\205*?\205\334)\332\"\202+\203\363\311,!\203\363\313,\335\"\336=\204\363\333\307,\"\202-\203\316\337!\203\203\340=\203\341 \204\342 \202(\205\343 \207" [key-translation-map function-key-map which-key-inhibit which-key-allow-regexps which-key-inhibit-regexps which-key-allow-evil-operators which-key--this-command-keys nil 0 keymapp key-binding lookup-key which-key--any-match-p key-description boundp evil-this-operator god-local-mode god-mode-self-insert type-of signal wrong-type-argument which-key--pages 8 run-hook-with-args-until-success which-key-delay-functions sit-for t which-key--create-buffer-and-show which-key--start-timer "" hydra--universal-argument evil-state operator which-key--popup-showing-p which-key--show-evil-operator-keymap which-key--hide-popup which-key--god-mode-support-enabled this-command which-key--pages-obj cl-struct-which-key--pages-tags which-key--automatic-display which-key-idle-secondary-delay which-key--secondary-timer-active which-key-show-transient-maps overriding-terminal-local-map which-key-show-operator-state-maps] 8 (#$ . 105725)]) #@85 Activate idle timer to trigger `which-key--update'. (fn &optional DELAY SECONDARY) (defalias 'which-key--start-timer #[512 "\303 \210\211\304\203\202 \305\306#\211\207" [which-key--secondary-timer-active which-key-idle-delay which-key--timer which-key--stop-timer run-with-idle-timer t which-key--update] 6 (#$ . 107398)]) #@48 Deactivate idle timer for `which-key--update'. (defalias 'which-key--stop-timer #[0 "\205\301!\207" [which-key--timer cancel-timer] 2 (#$ . 107736)]) #@51 Activate timer to restart which-key after paging. (defalias 'which-key--start-paging-timer #[0 "\203\301!\210\302 \210\303\304\305\306#\211\207" [which-key--paging-timer cancel-timer which-key--stop-timer run-with-idle-timer 0.2 t #[0 " \235\203+\306\307 GW\205:\n\205$\310\n! >\204!\311\312\313\nD\"\210\n\314H\315 \232?\205:\316\f!\210 \2038\317 \320\"\207\317 \207" [real-last-command which-key--paging-functions which-key--pages-obj cl-struct-which-key--pages-tags which-key--paging-timer which-key-idle-secondary-delay 0 this-single-command-keys type-of signal wrong-type-argument which-key--pages 8 which-key--this-command-keys cancel-timer which-key--start-timer t] 4]] 4 (#$ . 107896)]) (provide 'which-key)