branch: externals/consult
commit e50be3646f4de7e8e0d4798981bc878d9d6fc22c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Add consult--frame-buffer-list helper function
---
consult.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/consult.el b/consult.el
index 22efdbb73f..67ebf6b992 100644
--- a/consult.el
+++ b/consult.el
@@ -232,6 +232,7 @@ buffers. The regular expressions are matched case
sensitively."
By default, the function `buffer-list' is used which returns all
buffers. Set it to a custom function to configure buffer isolation."
:type `(choice (const :tag "All buffers" ,#'buffer-list)
+ (const :tag "Frame buffers" ,#'consult--frame-buffer-list)
(function :tag "Custom function")))
(defcustom consult-buffer-sources
@@ -4698,6 +4699,11 @@ to search and is passed to `consult--buffer-query'."
(t "")))
buffers)))
+(defun consult--frame-buffer-list ()
+ "List of buffers belonging to the current frame or tab."
+ (nconc (copy-sequence (frame-parameter nil 'buffer-list))
+ (copy-sequence (frame-parameter nil 'buried-buffer-list))))
+
(cl-defun consult--buffer-query ( &key sort directory mode as predicate
(filter t)
include (exclude consult-buffer-filter)
(buffer-list consult-buffer-list))
