emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/popup e76230b 059/184: Add summary-face keyword argument t


From: ELPA Syncer
Subject: [nongnu] elpa/popup e76230b 059/184: Add summary-face keyword argument to popup-set-line-item
Date: Wed, 6 Oct 2021 00:01:06 -0400 (EDT)

branch: elpa/popup
commit e76230bb57d169114eccd71288bad36fd1994112
Author: Takafumi Arakaki <aka.tkf@gmail.com>
Commit: Takafumi Arakaki <aka.tkf@gmail.com>

    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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]