branch: elpa/popup
commit b45aa2dd3b8d424cbeec43fe5229e3cc49a08e2e
Author: Takafumi Arakaki <aka....@gmail.com>
Commit: Takafumi Arakaki <aka....@gmail.com>
Handle summary-face in popup-draw
---
popup.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/popup.el b/popup.el
index 9a24a64..b6c4834 100644
--- a/popup.el
+++ b/popup.el
@@ -237,7 +237,7 @@ buffer."
(defstruct popup
point row column width height min-height direction overlays keymap
parent depth
- face mouse-face selection-face
+ face mouse-face selection-face summary-face
margin-left margin-right margin-left-cancel scroll-bar symbol
cursor offset scroll-top current-height list newlines
pattern original-list)
@@ -674,6 +674,7 @@ KEYMAP is a keymap that will be put on the popup contents."
with popup-face = (popup-face popup)
with mouse-face = (popup-mouse-face popup)
with selection-face = (popup-selection-face popup)
+ with summary-face = (popup-summary-face popup)
with list = (popup-list popup)
with length = (length list)
with thum-size = (max (/ (* height height) (max length 1)) 1)
@@ -723,6 +724,7 @@ KEYMAP is a keymap that will be put on the popup contents."
:scroll-bar-char scroll-bar-char
:symbol sym
:summary summary
+ :summary-face summary-face
:keymap keymap)
finally
