[elpa] externals/consult 52513df83b 4/5: consult--buffer-preview: Restore tab buffer lists

[ELPA Syncer]

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

    consult--buffer-preview: Restore tab buffer lists
---
 consult.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/consult.el b/consult.el
index a582743677..f85e683303 100644
--- a/consult.el
+++ b/consult.el
@@ -4427,9 +4427,15 @@ AS is a conversion function."
   (let ((orig-buf (window-buffer (consult--original-window)))
         (orig-prev (copy-sequence (window-prev-buffers)))
         (orig-next (copy-sequence (window-next-buffers)))
+        (orig-bl (copy-sequence (frame-parameter nil 'buffer-list)))
+        (orig-bbl (copy-sequence (frame-parameter nil 'buried-buffer-list)))
         other-win)
     (lambda (action cand)
       (pcase action
+        ('return
+         ;; Restore buffer list for the current tab
+         (set-frame-parameter nil 'buffer-list orig-bl)
+         (set-frame-parameter nil 'buried-buffer-list orig-bbl))
         ('exit
          (set-window-prev-buffers other-win orig-prev)
          (set-window-next-buffers other-win orig-next))