[nongnu] elpa/autothemer 0fdabd22e0 11/21: Fix bug in autothemer-generate-templates

[ELPA Syncer]

branch: elpa/autothemer
commit 0fdabd22e0c92b227e659a11a9f8bc8acbefced3
Author: Sebastian Sturm <mail@sebastian-sturm.de>
Commit: Sebastian Sturm <mail@sebastian-sturm.de>

    Fix bug in autothemer-generate-templates
    
    shouldn't attempt to call color-defined-p on non-string values, it seems. 
Not
    sure this is the right way to fix this though (should review this once I 
have
    a decent test suite in place)
---
 autothemer.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/autothemer.el b/autothemer.el
index 33a14f3d13..6c3ffaf462 100644
--- a/autothemer.el
+++ b/autothemer.el
@@ -164,7 +164,7 @@ unbound symbols, such as `normal' or `demibold'."
   (let ((colors (autothemer--theme-colors theme))
         (face (car reduced-spec))
         (spec (cdr reduced-spec)))
-    `(,face ,@(--tree-map (cond ((color-defined-p it)
+    `(,face ,@(--tree-map (cond ((and (stringp it) (color-defined-p it))
                                  (autothemer--color-name
                                   (autothemer--find-closest-color colors it)))
                                 ((stringp it) it)