[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult f2d5d11 1/2: consult-buffer: Only consider visi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult f2d5d11 1/2: consult-buffer: Only consider visible buffers, when removing files from recentf source |
Date: |
Thu, 8 Jul 2021 17:57:06 -0400 (EDT) |
branch: externals/consult
commit f2d5d113c8063b8d5c6de3fdfceeb51475f98133
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
consult-buffer: Only consider visible buffers, when removing files from
recentf source
---
consult.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/consult.el b/consult.el
index 178c5e7..d96c131 100644
--- a/consult.el
+++ b/consult.el
@@ -3440,15 +3440,17 @@ The command supports previewing the currently selected
theme."
;;;;; Command: consult-buffer
-(consult--define-cache consult--cached-buffers
+(consult--define-cache consult--cached-all-buffers
(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)))
+(consult--define-cache consult--cached-buffers
+ (let ((filter (consult--regexp-filter consult-buffer-filter)))
+ (seq-remove (lambda (x) (string-match-p filter (buffer-name x)))
+ (consult--cached-all-buffers))))
(consult--define-cache consult--cached-buffer-file-hash
(consult--string-hash (delq nil (mapcar #'buffer-file-name
(consult--cached-buffers)))))
@@ -3538,7 +3540,7 @@ If NORECORD is non-nil, do not record the buffer switch
in the buffer list."
,(lambda ()
(let ((filter (consult--regexp-filter consult-buffer-filter)))
(seq-filter (lambda (x) (string-match-p filter x))
- (consult--cached-buffer-names)))))
+ (mapcar #'buffer-name (consult--cached-all-buffers))))))
"Hidden buffer candidate source for `consult-buffer'.")
(defvar consult--source-buffer
@@ -3551,9 +3553,7 @@ If NORECORD is non-nil, do not record the buffer switch
in the buffer list."
:default t
:items
,(lambda ()
- (let ((filter (consult--regexp-filter consult-buffer-filter)))
- (seq-remove (lambda (x) (string-match-p filter x))
- (consult--cached-buffer-names)))))
+ (mapcar #'buffer-name (consult--cached-buffers))))
"Buffer candidate source for `consult-buffer'.")
(defvar consult--source-file