branch: externals/consult
commit 2d8751a5a73d36da7550c06ae5ca67fe12520bcf
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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
