branch: elpa/popup
commit e76230bb57d169114eccd71288bad36fd1994112
Author: Takafumi Arakaki <[email protected]>
Commit: Takafumi Arakaki <[email protected]>
Add summary-face keyword argument to popup-set-line-item
---
popup.el | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/popup.el b/popup.el
index c651058..9a24a64 100644
--- a/popup.el
+++ b/popup.el
@@ -367,13 +367,26 @@ usual."
(and (eq (overlay-get overlay 'display) nil)
(eq (overlay-get overlay 'after-string) nil))))
-(defun* popup-set-line-item (popup line &key item face mouse-face margin-left
margin-right scroll-bar-char symbol summary keymap)
+(defun* popup-set-line-item (popup
+ line
+ &key
+ item
+ face
+ mouse-face
+ margin-left
+ margin-right
+ scroll-bar-char
+ symbol
+ summary
+ summary-face
+ keymap)
(let* ((overlay (popup-line-overlay popup line))
(content (popup-create-line-string popup (popup-x-to-string item)
:margin-left margin-left
:margin-right margin-right
:symbol symbol
- :summary summary))
+ :summary summary
+ :summary-face summary-face))
(start 0)
(prefix (overlay-get overlay 'prefix))
(postfix (overlay-get overlay 'postfix))