branch: externals/engrave-faces
commit 7bb7f46e221911999ea5a4d165b255b79ecb6f2f
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
Reinterpret t theme as current theme
---
engrave-faces.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index 7b723650e4..d1f8386a74 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -378,7 +378,10 @@ Unconditionally returns nil when FACES is default."
(defun engrave-faces-get-theme (theme &optional noput)
"Obtain the preset style for THEME.
-Unless NOPUT is non-nil, "
+Unless NOPUT is non-nil, the preset will be added to `engrave-faces-themes'.
+The theme t is treated as shorthand for the current theme."
+ (when (eq theme t)
+ (setq theme (car custom-enabled-themes)))
(if-let ((theme-preset (alist-get theme engrave-faces-themes)))
(setq engrave-faces-current-preset-style theme-preset)
(if (or (eq theme (car custom-enabled-themes))
