[elpa] externals/consult 2d5cde7 1/2: consult-buffer: Push visible buffers further down the list (Fix #320)

[ELPA Syncer]

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

    consult-buffer: Push visible buffers further down the list (Fix #320)
---
 consult.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 6c7e9b8..0453ed9 100644
--- a/consult.el
+++ b/consult.el
@@ -3289,7 +3289,11 @@ The command supports previewing the currently selected 
theme."
 ;;;;; Command: consult-buffer
 
 (consult--define-cache consult--cached-buffers
-  (nconc (delq (current-buffer) (buffer-list)) (list (current-buffer))))
+  (let ((buffers (delq (current-buffer) (buffer-list)))
+        (visible-p (lambda (x) (get-buffer-window x 'visible))))
+    (nconc (seq-remove visible-p buffers)
+           (seq-filter visible-p buffers)
+           (list (current-buffer)))))
 
 (consult--define-cache consult--cached-buffer-names
   (mapcar #'buffer-name (consult--cached-buffers)))