[elpa] externals/frog-menu 6596627 20/43: Add prompt face

[Clemens Radermacher]

branch: externals/frog-menu
commit 65966272d90ef8effcf8b9eb180a7833a4edc78c
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add prompt face
---
 frog-menu.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/frog-menu.el b/frog-menu.el
index caf732e..c117fc1 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -183,6 +183,10 @@ be drawn by single characters."
                             (((background light)) . (:background "black")))
   "The face defining the border for the posframe.")
 
+(defface frog-menu-prompt-face
+  '((t (:inherit default)))
+  "Face used for menu promp")
+
 (defface frog-menu-candidates-face
   '((t (:inherit default)))
   "Face used for menu candidates.")
@@ -230,7 +234,13 @@ ACTIONS."
   (when formatted-strings
     (insert formatted-strings)
     (insert "\n\n"))
-  (insert prompt "\n")
+  (add-text-properties
+   (point)
+   (progn
+     (insert prompt)
+     (point))
+   '(face frog-menu-prompt-face))
+  (insert "\n")
   (insert formatted-actions)
   (when formatted-strings
       ;; padding for avy char