From de093d49f233efbacb6b7f717692deb89a4f059c Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 12 Aug 2023 03:34:53 +0300 Subject: [PATCH] (project--keymap-prompt): Use help-key-binding face * lisp/progmodes/project.el (project--keymap-prompt): Use help-key-binding face and adjust the prompt to fit (bug#64799). --- lisp/progmodes/project.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 2c5b07ce750..24531d9d02e 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1828,9 +1828,13 @@ listed in the dispatch menu produced from `project-switch-commands'." (let ((key (if key (vector key) (where-is-internal cmd (list project-prefix-map) t)))) - (format "[%s] %s" - (propertize (key-description key) 'face 'bold) - label))) + (if (facep 'help-key-binding) + (format "%s %s" + (propertize (key-description key) 'face 'help-key-binding) + label) + (format "[%s] %s" + (propertize (key-description key) 'face 'bold) + label)))) project-switch-commands " ")) -- 2.39.2