From: Dmitry Gutov <dmitry@gutov.dev>
Date: Sat, 12 Aug 2023 00:34:53 +0000 (+0300)
Subject: (project--keymap-prompt): Use help-key-binding face
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de093d49f233efbacb6b7f717692deb89a4f059c;p=emacs.git

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

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