diff options
| author | Protesilaos Stavrou <info@protesilaos.com> | 2024-10-25 10:27:38 +0300 |
|---|---|---|
| committer | Protesilaos Stavrou <info@protesilaos.com> | 2024-10-25 10:27:38 +0300 |
| commit | c571c3ae03389732a136ffaac1b44c0d3bec24c8 (patch) | |
| tree | 8e763eec17dd995abed2aad5917acec7693a054c | |
| parent | 4465f117caa73f1e412d227a683f92018fb88a6d (diff) | |
Switch to if-let* and friends because Emacs 31 has made the others obsolete
| -rw-r--r-- | ef-themes.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ef-themes.el b/ef-themes.el index 5001d99..27f4196 100644 --- a/ef-themes.el +++ b/ef-themes.el @@ -482,11 +482,11 @@ themes." "Return THEME palette as a symbol. With optional OVERRIDES, return THEME palette overrides as a symbol." - (when-let ((suffix (cond - ((and theme overrides) - "palette-overrides") - (theme - "palette")))) + (when-let* ((suffix (cond + ((and theme overrides) + "palette-overrides") + (theme + "palette")))) (intern (format "%s-%s" theme suffix)))) (defun ef-themes--palette-value (theme &optional overrides) @@ -502,7 +502,7 @@ symbol." "Return palette value of active Ef theme, else produce `user-error'. With optional OVERRIDES return palette value plus whatever overrides." - (if-let ((theme (ef-themes--current-theme))) + (if-let* ((theme (ef-themes--current-theme))) (if overrides (ef-themes--palette-value theme :overrides) (ef-themes--palette-value theme)) @@ -520,8 +520,8 @@ overrides." (defun ef-themes--annotate-theme (theme) "Return completion annotation for THEME." - (when-let ((symbol (intern-soft theme)) - (doc-string (get symbol 'theme-documentation))) + (when-let* ((symbol (intern-soft theme)) + (doc-string (get symbol 'theme-documentation))) (format " -- %s" (propertize (car (split-string doc-string "\\.")) |