From b3b41792e808e64428b42e8d7f05e977d02fc01f Mon Sep 17 00:00:00 2001 From: justbur Date: Fri, 4 Dec 2015 14:21:17 -0500 Subject: [PATCH] Make C-h command hint respect C-h-map commands --- which-key.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index a875c23ce2f..323584ba339 100644 --- a/which-key.el +++ b/which-key.el @@ -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-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))