[nongnu] elpa/alect-themes bd7c9d0 092/269: Fix bug in `alect-substitute-colors-in-plist'

[ELPA Syncer]

branch: elpa/alect-themes
commit bd7c9d07b81b05a67e69af12155e5fa3b87b3f24
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Fix bug in `alect-substitute-colors-in-plist'
    
    Use consp instead of listp, otherwise an "infinite" recursion may occur
    as (listp nil) returns t.
---
 alect-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/alect-themes.el b/alect-themes.el
index e0812ad..b42bf19 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -1332,7 +1332,7 @@ property as well.
 
 Return plist with substituted colors.  This function is
 destructive: PLIST may not stay the same."
-  (if (and (listp (car plist))
+  (if (and (consp (car plist))
            (null (cdr plist)))
       (alect-substitute-colors-in-plist theme-name (car plist))
     (setq plist (alect-substitute-color theme-name plist :foreground))