mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-28 10:51:29 -08:00
Code Issues Projects Releases Wiki Activity

Make C-h command hint respect C-h-map commands

Browse source
This commit is contained in:
justbur 2015-12-04 14:21:17 -05:00
parent 2c5bb54b58
commit b3b41792e8
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
which-key.el
View file

@ -1733,7 +1733,15 @@ prefix) if `which-key-use-C-h-commands' is non nil."
(concat (when (string-equal prefix-keys "")
(propertize " Top-level bindings" 'face 'which-key-note-face))
prefix-w-face dash-w-face
(propertize " [n]ext-page, [p]revious-page, [u]ndo-key, [h]elp, [a]bort"
(propertize
(substitute-command-keys
(concat
" \\<which-key-C-h-map>"
" \\[which-key-show-next-page-cycle]" which-key-separator "next-page,"
" \\[which-key-show-previous-page-cycle]" which-key-separator "previous-page,"
" \\[which-key-undo-key]" which-key-separator "undo-key,"
" \\[which-key-show-standard-help]" which-key-separator "help,"
" \\[which-key-abort]" which-key-separator "abort"))
'face 'which-key-note-face)))))
(cmd (lookup-key which-key-C-h-map k))
(which-key-inhibit t))