branch: externals/modus-themes
commit 582f53b07bb7a52254d69e86b3bb4d29049d80db
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Add doc string to modus-themes--modus-theme-p
---
modus-themes.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/modus-themes.el b/modus-themes.el
index 2aec4fbc66..4bf398075d 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -3875,8 +3875,9 @@ With optional SHOW-ERROR, throw an error instead of
returning nil."
(error "Themes `%S' is not a symbol or a list of symbols" themes)))))
(defun modus-themes--modus-theme-p (theme)
+ "Return non-nil if THEME has a :modus-core-palette property."
(when-let* ((properties (get theme 'theme-properties))
- (core (plist-get properties :modus-core-palette)))
+ (core (plist-get properties :modus-core-palette)))
theme))
(defun modus-themes-get-current-theme ()
