procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show entries from key-translation-map in which-key mode

Browse source 
* lisp/which-key.el (which-key-extra-keymaps): New user option.
(which-key--get-current-bindings): Consult it.

(Bug#71648)
This commit is contained in:
Robert Pluim 2024-06-24 15:09:00 +02:00
parent 4a0958642d
commit 7e8a97ac78
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/which-key.el
View file

@ -233,6 +233,15 @@ you use this feature."
(const :tag "Replace command name with docstring" docstring-only)) (const :tag "Replace command name with docstring" docstring-only))
:package-version "1.0" :version "30.1") :package-version "1.0" :version "30.1")
(defcustom which-key-extra-keymaps '(key-translation-map)
"List of extra keymaps to show entries from.
The default is to check `key-translation-map', which contains the
\\='C-x 8' bindings for entering common characters."
:type '(choice (list :tag "Translation map" (const key-translation-map))
(const :tag "None" nil)
(repeat :tag "Custom" symbol))
:package-version "1.0" :version "30.1")
(defcustom which-key-highlighted-command-list '() (defcustom which-key-highlighted-command-list '()
"Rules used to highlight certain commands. "Rules used to highlight certain commands.
If the element is a string, assume it is a regexp pattern for If the element is a string, assume it is a regexp pattern for
@ -1942,8 +1951,10 @@ EVIL is non-nil, extract active evil bindings."
(defun which-key--get-current-bindings (&optional prefix filter) (defun which-key--get-current-bindings (&optional prefix filter)
"Generate a list of current active bindings." "Generate a list of current active bindings."
(let (bindings) (let (bindings
(dolist (map (current-active-maps t) bindings) (maps (nconc (current-active-maps t)
(mapcar #'symbol-value which-key-extra-keymaps))))
(dolist (map maps bindings)
(when (cdr map) (when (cdr map)
(setq bindings (setq bindings
(which-key--get-keymap-bindings (which-key--get-keymap-bindings