[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes 660c99259c 1/3: Let ef-themes--palette return
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes 660c99259c 1/3: Let ef-themes--palette return nil if necessary |
Date: |
Mon, 22 Aug 2022 22:57:32 -0400 (EDT) |
branch: externals/ef-themes
commit 660c99259c7c71409188b0a625bd59769030fe7b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Let ef-themes--palette return nil if necessary
---
ef-themes.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ef-themes.el b/ef-themes.el
index c4573ab916..52a52d212d 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -324,7 +324,8 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
(defun ef-themes--palette (theme)
"Return THEME palette as a symbol."
- (intern (format "%s-palette" theme)))
+ (when theme
+ (intern (format "%s-palette" theme))))
(defun ef-themes--current-theme-palette ()
"Return palette of active Ef theme, else produce `user-error'."