branch: elpa/alect-themes
commit bd7c9d07b81b05a67e69af12155e5fa3b87b3f24
Author: Alex Kost <[email protected]>
Commit: Alex Kost <[email protected]>
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))
