[elpa] externals/frog-menu 0ba3279 36/43: add face for posframe menu action keybindings

[Clemens Radermacher]

branch: externals/frog-menu
commit 0ba3279a62966c5dcdee2798fbfb1dde639b85ab
Author: justin talbott <address@hidden>
Commit: justin talbott <address@hidden>

    add face for posframe menu action keybindings
---
 frog-menu.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/frog-menu.el b/frog-menu.el
index 76228c1..e621b49 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -229,6 +229,10 @@ be drawn by single characters."
   '((t (:inherit default)))
   "Face used for menu actions.")
 
+(defface frog-menu-action-keybinding-face
+  '((t (:inherit default)))
+  "Face used for menu action keybindings.")
+
 (defface frog-menu-posframe-background-face
   '((t (:inherit default)))
   "Face used for the background color of the posframe.")
@@ -323,8 +327,13 @@ ACTIONS."
           (add-text-properties
            (point)
            (progn
-             (insert (car action)
-                     "_"
+             (insert (car action))
+             (point))
+           '(face frog-menu-action-keybinding-face))
+          (add-text-properties
+           (point)
+           (progn
+             (insert "_"
                      (replace-regexp-in-string " " "_"
                                                (cadr action))
                      " ")