branch: externals/consult
commit d44976a3cc9e969bfbf7d7ed530ed938e135e949
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult--source-hidden-buffer: Use all buffers not part of
consult--source-buffer
The hidden buffer source will contain all buffers which are excluded,
either via
consult-buffer-list or via consult-buffer-filter.
---
consult.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/consult.el b/consult.el
index 312f6f92ee..22efdbb73f 100644
--- a/consult.el
+++ b/consult.el
@@ -4898,9 +4898,13 @@ If NORECORD is non-nil, do not record the buffer switch
in the buffer list."
:history buffer-name-history
:action ,#'consult--buffer-action
:items
- ,(lambda () (consult--buffer-query :sort 'visibility
- :filter 'invert
- :as #'consult--buffer-pair)))
+ ,(lambda ()
+ (let ((unhidden (consult--string-hash (consult--buffer-query))))
+ (consult--buffer-query :sort 'visibility
+ :predicate (lambda (buf) (not (gethash buf
unhidden)))
+ :as #'consult--buffer-pair
+ :filter nil
+ :buffer-list t))))
"Hidden buffer source for `consult-buffer'.")
(defvar consult--source-modified-buffer
