[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master de093d49f23: (project--keymap-prompt): Use help-key-binding face
From: |
Dmitry Gutov |
Subject: |
master de093d49f23: (project--keymap-prompt): Use help-key-binding face |
Date: |
Fri, 11 Aug 2023 20:35:09 -0400 (EDT) |
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
" "))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master de093d49f23: (project--keymap-prompt): Use help-key-binding face,
Dmitry Gutov <=