mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/progmodes/project.el (project--keymap-prompt): Use
help-key-binding face and adjust the prompt to fit (bug#64799).
This commit is contained in:
Dmitry Gutov 2023-08-12 03:34:53 +03:00
parent 4fa75771d1
commit de093d49f2
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/project.el
View file

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