emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]