mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 17:00:44 -08:00
Code Issues Projects Releases Wiki Activity

Fix descriptions of keys involving meta when showing keymaps

Browse source
This commit is contained in:
Justin Burkett 2018-02-24 16:29:33 -05:00
parent ca991b0d3a
commit caa18b2086
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
which-key.el
View file

@ -1658,15 +1658,14 @@ alists. Returns a list (key separator description)."
(let (bindings)
(map-keymap
(lambda (ev def)
(let ((key (if prefix
(concat prefix " " (key-description (list ev)))
(key-description (list ev)))))
(unless (string-match-p which-key--ignore-keys-regexp key)
(let* ((key (append prefix (list ev)))
(key-desc (key-description key)))
(unless (string-match-p which-key--ignore-keys-regexp key-desc)
(if (and all (keymapp def))
(setq bindings
(append bindings (which-key--get-keymap-bindings def t key)))
(cl-pushnew
(cons key
(cons key-desc
(cond
((keymapp def) "Prefix Command")
((symbolp def) (copy-sequence (symbol-name def)))