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

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

[elpa] externals/engrave-faces c2ad032 11/36: Allow .-merge-attributes t


From: ELPA Syncer
Subject: [elpa] externals/engrave-faces c2ad032 11/36: Allow .-merge-attributes to work with single face
Date: Tue, 31 Aug 2021 01:57:25 -0400 (EDT)

branch: externals/engrave-faces
commit c2ad032e384c4288ba62ca5bba65de2cf9612aa6
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    Allow .-merge-attributes to work with single face
    
    Instead of only accepting a list of faces.
---
 engrave-faces.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index e51f079..5b69c21 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -123,7 +123,7 @@ output.")
 
 (defun engrave-faces-merge-attributes (faces &optional attributes)
   "Find the final ATTRIBUTES for text with FACES."
-  (setq faces (engrave-faces-explicit-inheritance faces))
+  (setq faces (engrave-faces-explicit-inheritance (if (listp faces) faces 
(list faces))))
   (apply #'append
          (mapcar (lambda (attr)
                    (list attr (car (engrave-faces-attribute-values faces 
attr))))



reply via email to

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