[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes a4c653e587 2/2: Simplify ef-themes--current-t
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes a4c653e587 2/2: Simplify ef-themes--current-theme |
Date: |
Wed, 31 Aug 2022 03:57:36 -0400 (EDT) |
branch: externals/ef-themes
commit a4c653e587085735354c242248a55c2d7210c405
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Simplify ef-themes--current-theme
Thanks to Jonas Collberg for the feedback in issue 12 over at the GitHub
mirror: <https://github.com/protesilaos/ef-themes/issues/12>.
---
ef-themes.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/ef-themes.el b/ef-themes.el
index 3e8bf841e2..d5347a2b9c 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -320,9 +320,7 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
(defun ef-themes--current-theme ()
"Return first enabled Ef theme."
(when-let* ((theme (car (ef-themes--list-enabled-themes))))
- (if (memq theme (ef-themes--list-enabled-themes))
- theme
- (user-error "`%s' is not an Ef theme" theme))))
+ theme))
(defun ef-themes--palette (theme)
"Return THEME palette as a symbol."