[elpa] externals/consult fd1848b73c: consult--find-file-temporarily: Do not preview buffers with hexl-mode

[ELPA Syncer]

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

    consult--find-file-temporarily: Do not preview buffers with hexl-mode
---
 consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 2308cd8c9c..1d3b75769b 100644
--- a/consult.el
+++ b/consult.el
@@ -1302,8 +1302,9 @@ ORIG is the original function, HOOKS the arguments."
       (when (bound-and-true-p so-long-detected-p)
         (kill-buffer)
         (error "File `%s' with long lines not previewed" name))
-      (when (and (memq major-mode '(fundamental-mode hexl-mode))
-                 (save-excursion (search-forward "\0" nil 'noerror)))
+      (when (or (eq major-mode 'hexl-mode)
+                (and (eq major-mode 'fundamental-mode)
+                     (save-excursion (search-forward "\0" nil 'noerror))))
         (kill-buffer)
         (error "Binary file `%s' not previewed" name))
       (current-buffer))))