branch: externals/ef-themes
commit 37d7c1daa5eefab256f643a0c87327075e3b3c22
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Reformat ef-themes--annotate-theme
---
ef-themes.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ef-themes.el b/ef-themes.el
index 8f4d6aa911..e2511d8016 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -553,9 +553,9 @@ overrides."
(defun ef-themes--annotate-theme (theme)
"Return completion annotation for THEME."
- (let ((doc (get (intern theme) 'theme-documentation)))
- (when doc ;; A completion annotation function may return nil
- (concat " -- " (car (split-string doc "\\."))))))
+ (when-let ((symbol (intern-soft theme))
+ (doc-string (get symbol 'theme-documentation)))
+ (format " -- %s" (car (split-string doc-string "\\.")))))
(defvar ef-themes--select-theme-history nil
"Minibuffer history of `ef-themes--select-prompt'.")
