[elpa] externals/consult 95d1851567: Fix candidate preview for collect and default completion

[ELPA Syncer]

branch: externals/consult
commit 95d1851567637325425c0956adbf711c801dd45c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix candidate preview for collect and default completion
---
 consult.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 6c7d8e8053..21e5b442ee 100644
--- a/consult.el
+++ b/consult.el
@@ -1297,9 +1297,8 @@ and CANDIDATE."
               (setq consult--preview-function
                     (let ((last-preview))
                       (lambda ()
-                        (with-selected-window (or (active-minibuffer-window)
-                                                  (selected-window))
-                          (when-let (cand (funcall candidate))
+                        (when-let (cand (funcall candidate))
+                          (with-selected-window (active-minibuffer-window)
                             (let ((input (minibuffer-contents-no-properties)))
                               (with-selected-window (or 
(minibuffer-selected-window) (next-window))
                                 (let ((transformed (funcall transform input 
cand))