[elpa] externals/consult aadb912e12: Fix bookmark preview (Fix #798)

[ELPA Syncer]

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

    Fix bookmark preview (Fix #798)
---
 CHANGELOG.org | 1 +
 consult.el    | 7 +++----
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index fd05a27336..228b5a8158 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -4,6 +4,7 @@
 
 * Development
 
+- Bugfixes.
 - =consult--read= now accepts programmable completion tables as argument, e.g.,
   =completion-table-dynamic= or =completion--file-name-table=. This allows you 
to
   reuse existing completion tables to write completion commands enhanced with
diff --git a/consult.el b/consult.el
index 64c10455dd..d7e4a812c9 100644
--- a/consult.el
+++ b/consult.el
@@ -3945,10 +3945,9 @@ There exists no equivalent of this command in Emacs 28."
        preview action
        ;; Only preview bookmarks with the default handler.
        (when-let ((bm (and cand (eq action 'preview) (assoc cand 
bookmark-alist)))
-                  (handler (bookmark-get-handler bm))
-                  (file (and (or (not handler)
-                                 (eq handler #'bookmark-default-handler))
-                             (bookmark-get-filename bm)))
+                  (handler (or (bookmark-get-handler bm) 
#'bookmark-default-handler))
+                  ((eq handler #'bookmark-default-handler))
+                  (file (bookmark-get-filename bm))
                   (pos (bookmark-get-position bm))
                   (buf (funcall open file)))
          (set-marker (make-marker) pos buf))))))