master de093d49f23: (project--keymap-prompt): Use help-key-binding face

[Dmitry Gutov]

branch: master
commit de093d49f233efbacb6b7f717692deb89a4f059c
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    (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
    "  "))