[elpa] externals/engrave-faces 7bb7f46e22 3/6: Reinterpret t theme as current theme

[ELPA Syncer]

branch: externals/engrave-faces
commit 7bb7f46e221911999ea5a4d165b255b79ecb6f2f
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@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))