mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-29 09:43:56 -07:00
Code Issues Projects Releases Wiki Activity

Fix C-h prompt for show-keymap commands

Browse source
This commit is contained in:
justbur 2015-12-21 12:12:29 -05:00
parent 92dc5871f0
commit f4a1b4283b
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
which-key.el
View file

@ -1796,7 +1796,10 @@ prefix) if `which-key-use-C-h-commands' is non nil."
(let* ((prefix-keys (key-description which-key--current-prefix))
(full-prefix (which-key--full-prefix prefix-keys current-prefix-arg t))
(prompt (concat (when (string-equal prefix-keys "")
(propertize " Top-level bindings" 'face 'which-key-note-face))
(propertize (concat " "
(or which-key--current-show-keymap-name
"Top-level bindings"))
'face 'which-key-note-face))
full-prefix
(propertize
(substitute-command-keys