[elpa] externals/consult fd110782aa: consult--temporary-files: Fix let binding of non-essential (Fix #513)

[ELPA Syncer]

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

    consult--temporary-files: Fix let binding of non-essential (Fix #513)
---
 consult.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index 0dcc3ecd6d..5c8aaa87d2 100644
--- a/consult.el
+++ b/consult.el
@@ -1051,7 +1051,11 @@ MARKER is the cursor position."
          (dir default-directory))
     (lambda (&optional name)
       (if name
-          (let ((default-directory dir))
+          (let ((default-directory dir)
+                (inhibit-message t)
+                (enable-dir-local-variables nil)
+                (enable-local-variables (and enable-local-variables :safe))
+                (non-essential t))
             (or (get-file-buffer name)
                 ;; file-attributes may throw permission denied error
                 (when-let* ((attrs (ignore-errors (file-attributes name)))
@@ -1063,10 +1067,6 @@ MARKER is the cursor position."
                     (cl-letf* (((default-value 'find-file-hook)
                                 (seq-remove (lambda (x) (memq x 
consult-preview-excluded-hooks))
                                             (default-value 'find-file-hook)))
-                               (inhibit-message t)
-                               (non-essential t)
-                               (enable-dir-local-variables nil)
-                               (enable-local-variables (and 
enable-local-variables :safe))
                                (buf (find-file-noselect
                                      name 'nowarn
                                      (> size consult-preview-raw-size))))