[elpa] externals/standard-themes 4b9e5395d5: Make standard-themes--current-theme return a value if no theme is loaded

[ELPA Syncer]

branch: externals/standard-themes
commit 4b9e5395d5faad8d831727bc37d2551d68888555
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make standard-themes--current-theme return a value if no theme is loaded
    
    This is what I have been doing with the modus-themes and the
    ef-themes. Basically, we want to return a value that will be useful
    for the macros that we use.
    
    I inspected this in response to the message sent by Zack Weinberg on
    the mailing list:
    
<https://lists.sr.ht/~protesilaos/standard-themes/%3C0057b4d4-dbb2-4a5e-8b15-4a68c0c4a0c6%40app.fastmail.com%3E>.
---
 README.org         | 2 +-
 standard-themes.el | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 9b398262f7..af43195e6f 100644
--- a/README.org
+++ b/README.org
@@ -1290,7 +1290,7 @@ matters.
 + Contributions to code :: Clemens Radermacher.
 
 + Ideas and/or user feedback :: Fritz Grabo, Manuel Uberti, Tassilo
-  Horn.
+  Horn, Zack Weinberg.
 
 * GNU Free Documentation License
 :PROPERTIES:
diff --git a/standard-themes.el b/standard-themes.el
index e9746bcc9a..b6d55aae9c 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Standard-Themes Development 
<~protesilaos/standard-themes@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/standard-themes
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/standard-themes
-;; Version: 2.0.0
+;; Version: 2.0.1
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: faces, theme, accessibility
 
@@ -506,7 +506,8 @@ symbol, which is safe when used as a face attribute's 
value."
 
 (defun standard-themes--current-theme ()
   "Return first enabled Standard theme."
-  (car (standard-themes--list-enabled-themes)))
+  (car (or (standard-themes--list-enabled-themes)
+           (standard-themes--list-known-themes))))
 
 (defun standard-themes--palette-symbol (theme &optional overrides)
   "Return THEME palette as a symbol.