[elpa] externals/consult f04e2e90c5 1/3: Fix file preview

[ELPA Syncer]

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

    Fix file preview
---
 consult.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index 8d518efa80..1b52e93701 100644
--- a/consult.el
+++ b/consult.el
@@ -1126,7 +1126,7 @@ MARKER is the cursor position."
                                         (get-buffer-window-list buf))))
                     (push (cons file (mapcar
                                       (lambda (win)
-                                        (cons win (window-state-get win t)))
+                                        (list (window-state-get win t) win))
                                       wins))
                           live-files))
                   (kill-buffer buf))
@@ -1134,9 +1134,8 @@ MARKER is the cursor position."
                 (pcase-dolist (`(,file . ,wins) live-files)
                   (when-let (buf (find-file-noselect file))
                     (push buf orig-buffers)
-                    (pcase-dolist (`(,win . ,state) wins)
-                      (set-window-buffer win buf)
-                      (window-state-put win state))))))))
+                    (dolist (state wins)
+                      (apply #'window-state-put state))))))))
     (lambda (&optional name)
       (if name
           (let ((default-directory dir)