[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