branch: externals/consult
commit ce965a04223336665fa82df797455b7317181fc6
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult-theme: Run preview inside miniwindow
---
consult.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/consult.el b/consult.el
index e3894a5efa..b7e94794f1 100644
--- a/consult.el
+++ b/consult.el
@@ -4633,9 +4633,11 @@ The command supports previewing the currently selected
theme."
(or (and selected (car (memq selected avail-themes)))
saved-theme))
:state (lambda (action theme)
- (pcase action
- ('return (consult-theme (or theme saved-theme)))
- ((and 'preview (guard theme)) (consult-theme theme))))
+ (with-selected-window (or (active-minibuffer-window)
+ (selected-window))
+ (pcase action
+ ('return (consult-theme (or theme saved-theme)))
+ ((and 'preview (guard theme)) (consult-theme theme)))))
:default (symbol-name (or saved-theme 'default))))))
(when (eq theme 'default) (setq theme nil))
(unless (eq theme (car custom-enabled-themes))
