[elpa] externals/consult 5b7cdb1902: Fix #599 - Preview was accidentially enabled even for consult-preview-key=nil

[ELPA Syncer]

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

    Fix #599 - Preview was accidentially enabled even for 
consult-preview-key=nil
    
    lookup-key returns a number if the key is not found.
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 0252ba775f..7750df5d74 100644
--- a/consult.el
+++ b/consult.el
@@ -1371,9 +1371,9 @@ FACE is the cursor face."
     (dolist (x (consult--preview-key-normalize preview-key))
       (if (eq (car x) 'any)
           (setq any (cdr x))
-        (define-key map (car x) (cdr x))))
+        (define-key map (car x) `(lambda () ,(cdr x)))))
     (setq keys (lookup-key map keys))
-    (if (numberp keys) keys any)))
+    (if (functionp keys) (funcall keys) any)))
 
 (defun consult--append-local-post-command-hook (fun)
   "Append FUN to local `post-command-hook' list."