[elpa] externals/consult 37bbcd3 2/3: consult--temporary-files: Open new files in correct directory

[ELPA Syncer]

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

    consult--temporary-files: Open new files in correct directory
---
 consult.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index 849c2ef..eed3769 100644
--- a/consult.el
+++ b/consult.el
@@ -1050,12 +1050,14 @@ MARKER is the cursor position."
 
 (defun consult--temporary-files ()
   "Return a function to open files temporarily."
-  (let* ((new-buffers))
+  (let* ((new-buffers)
+         (dir default-directory))
     (lambda (&optional name)
       (if name
-          (or (get-file-buffer name)
-              (when-let (attrs (file-attributes name))
-                (let ((size (file-attribute-size attrs)))
+          (let ((default-directory dir))
+            (or (get-file-buffer name)
+                (when-let* ((attrs (file-attributes name))
+                            (size (file-attribute-size attrs)))
                   (if (> size consult-preview-max-size)
                       (prog1 nil
                         (message "File `%s' (%s) is too large for preview"