[elpa] externals/consult e1621f4e4b 1/2: Add new customization variable consult-preview-excluded-buffers

[ELPA Syncer]

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

    Add new customization variable consult-preview-excluded-buffers
---
 CHANGELOG.org | 6 ++++++
 README.org    | 1 +
 consult.el    | 9 ++++++++-
 3 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index ec2ef2025d..a960231672 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,12 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Development
+
+- =consult-preview-excluded-buffers=: New customization variable.
+- =consult-fd=: Support multiple paths.
+- Bump Compat dependency to Compat 30.
+
 * Version 1.7 (2024-05-23)
 
 - Emacs 30 bug fix: Ensure that font locking is enabled when previewing files.
diff --git a/README.org b/README.org
index 25beb14802..036bf1ed3a 100644
--- a/README.org
+++ b/README.org
@@ -910,6 +910,7 @@ an overview of all Consult variables and functions with 
their descriptions.
 | consult-point-placement          | Placement of the point when jumping to 
matches      |
 | consult-preview-key              | Keys which triggers preview               
          |
 | consult-preview-allowed-hooks    | List of hooks to allow during preview     
          |
+| consult-preview-excluded-buffers | Predicate to exclude buffers from preview 
          |
 | consult-preview-excluded-files   | Regexps matched against file names during 
preview   |
 | consult-preview-max-count        | Maximum number of files to keep open 
during preview |
 | consult-preview-partial-size     | Files larger than this size are previewed 
partially |
diff --git a/consult.el b/consult.el
index fe735877fa..578465caa1 100644
--- a/consult.el
+++ b/consult.el
@@ -336,6 +336,12 @@ chunk from the beginning of the file is previewed."
   "Number of file buffers to keep open temporarily during preview."
   :type '(natnum :tag "Number of buffers"))
 
+(defcustom consult-preview-excluded-buffers nil
+  "Buffers excluded from preview.
+The value should conform to the predicate format demanded by the
+function `buffer-match-p'."
+  :type 'sexp)
+
 (defcustom consult-preview-excluded-files
   '("\\`/[^/|:]+:") ;; Do not preview remote files
   "List of regexps matched against names of files, which are not previewed."
@@ -4487,7 +4493,8 @@ AS is a conversion function."
            (setq other-win (selected-window)))
          (let ((win (or other-win (selected-window)))
                (buf (or (and cand (get-buffer cand)) orig-buf)))
-           (when (and (window-live-p win) (buffer-live-p buf))
+           (when (and (window-live-p win) (buffer-live-p buf)
+                      (not (buffer-match-p consult-preview-excluded-buffers 
buf)))
              (with-selected-window win
                (unless (or orig-prev orig-next)
                  (setq orig-prev (copy-sequence (window-prev-buffers))