branch: externals/consult
commit c8bbb3f1e2fbbdcca773498e2db168c0929c3434
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult--frame-buffer-list: Include all visible buffers
---
consult.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index ec63be7e54..2723a9e3ce 100644
--- a/consult.el
+++ b/consult.el
@@ -4705,8 +4705,12 @@ to search and is passed to `consult--buffer-query'."
(defun consult--frame-buffer-list ()
"List of buffers belonging to the current frame or tab."
- (append (frame-parameter nil 'buffer-list)
- (reverse (frame-parameter nil 'buried-buffer-list))))
+ (let ((buffers (append (frame-parameter nil 'buffer-list)
+ (reverse (frame-parameter nil 'buried-buffer-list)))))
+ ;; Sometimes visible buffers are not registered in the buffer-list.
+ (cl-loop for win in (window-list) for buf = (window-buffer win)
+ unless (memq buf buffers) do (push buf buffers))
+ buffers))
(cl-defun consult--buffer-query ( &key sort directory mode as predicate
(filter t)
include (exclude consult-buffer-filter)
