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

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

[elpa] externals/consult 436752bfdc 2/5: Reduce messages


From: ELPA Syncer
Subject: [elpa] externals/consult 436752bfdc 2/5: Reduce messages
Date: Sun, 8 Dec 2024 03:57:38 -0500 (EST)

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

    Reduce messages
---
 consult.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index 38f4cce904..4ad701b127 100644
--- a/consult.el
+++ b/consult.el
@@ -1294,11 +1294,10 @@ ORIG is the original function, HOOKS the arguments."
 
 (defun consult--find-file-temporarily-1 (name)
   "Open file NAME, helper function for `consult--find-file-temporarily'."
-  (when (seq-find (lambda (x) (string-match-p x name))
-                  consult-preview-excluded-files)
-    (error "File excluded from preview"))
-  ;; file-attributes may throw permission denied error
-  (when-let ((attrs (ignore-errors (file-attributes name)))
+  (when-let (((not (seq-find (lambda (x) (string-match-p x name))
+                             consult-preview-excluded-files)))
+             ;; file-attributes may throw permission denied error
+             (attrs (ignore-errors (file-attributes name)))
              (size (file-attribute-size attrs)))
     (let* ((partial (>= size consult-preview-partial-size))
            (buffer (if partial



reply via email to

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