From fcef17068821bd05e281dc75452c807bbc27c8dd Mon Sep 17 00:00:00 2001 Message-ID: From: Protesilaos Stavrou Date: Sun, 23 Jul 2023 10:55:37 +0300 Subject: [PATCH] Add 'project-prompt-key' face * etc/NEWS: Announce the face. * lisp/progmodes/project.el (project-prompt-key): Define the face. (project--keymap-prompt): Use the face. --- etc/NEWS | 4 ++++ lisp/progmodes/project.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 5883b4df2a7..70d0bf18f50 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -82,6 +82,10 @@ This allows the user to customize the prompt that is appended by This is used for displaying the time and date components of 'display-time-mode'. +--- +** New face 'project-prompt-key'. +This is used in the Project switch commands prompt. + --- ** New icon images for general use. Several symbolic icons are added to "etc/images/symbols", including diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 03ed966cc45..c2deec7c38d 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1821,6 +1821,9 @@ (defcustom project-switch-use-entire-map nil :group 'project :version "28.1") +(defface project-prompt-key '((t :inherit bold)) + "Face for keys in the Project switch commands prompt.") + (defun project--keymap-prompt () "Return a prompt for the project switching dispatch menu." (mapconcat @@ -1834,7 +1837,7 @@ (defun project--keymap-prompt () (vector key) (where-is-internal cmd (list project-prefix-map) t)))) (format "[%s] %s" - (propertize (key-description key) 'face 'bold) + (propertize (key-description key) 'face 'project-prompt-key) label))) project-switch-commands " ")) -- 2.41.0