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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 2d8751a: project buffers: Check default directo


From: ELPA Syncer
Subject: [elpa] externals/consult 2d8751a: project buffers: Check default directory instead of buffer-file-name (Fix #357)
Date: Sat, 10 Jul 2021 18:57:06 -0400 (EDT)

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

    project buffers: Check default directory instead of buffer-file-name (Fix 
#357)
---
 consult.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index 8769127..e3f13b4 100644
--- a/consult.el
+++ b/consult.el
@@ -3507,10 +3507,12 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
     ,(lambda ()
        (when-let (root (consult--project-root))
          (mapcar #'buffer-name
-                 (seq-filter (lambda (x)
-                               (when-let (file (buffer-file-name x))
-                                 (string-prefix-p root file)))
-                             (consult--cached-buffers))))))
+                 (seq-filter
+                  (lambda (x)
+                    (string-prefix-p
+                     root
+                     (expand-file-name (buffer-local-value 'default-directory 
x))))
+                  (consult--cached-buffers))))))
   "Project buffer candidate source for `consult-buffer'.")
 
 (defvar consult--source-project-file



reply via email to

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