[elpa] externals/consult 821df5e: Use append for the minibuffer setup hook

[ELPA Syncer]

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

    Use append for the minibuffer setup hook
    
    This should ensure that the consult-crm-map takes precendence
---
 consult.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index c0d5fcc..b8c363a 100644
--- a/consult.el
+++ b/consult.el
@@ -2307,12 +2307,13 @@ See `completing-read-multiple' for the documentation of 
the arguments."
                  (when (and this-command (= depth (recursion-depth)))
                    (setq command this-command this-command wrapper))))
     (consult--minibuffer-with-setup-hook
-        (lambda ()
-          (when-let (pos (string-match-p "\\(?: (default[^)]+)\\)?: \\'" 
prompt))
-            (setq overlay (make-overlay (+ (point-min) pos) (+ (point-min) 
(length prompt))))
-            (when selected
-              (overlay-put overlay 'display (format " (%s selected): " (length 
selected)))))
-          (use-local-map (make-composed-keymap (list consult-crm-map) 
(current-local-map))))
+        (:append
+         (lambda ()
+           (when-let (pos (string-match-p "\\(?: (default[^)]+)\\)?: \\'" 
prompt))
+             (setq overlay (make-overlay (+ (point-min) pos) (+ (point-min) 
(length prompt))))
+             (when selected
+               (overlay-put overlay 'display (format " (%s selected): " 
(length selected)))))
+           (use-local-map (make-composed-keymap (list consult-crm-map) 
(current-local-map)))))
       (unwind-protect
           (progn
             (add-hook 'pre-command-hook hook 90)