[elpa] externals/consult d96147a: consult-completing-read-multiple: Fix C-g on Emacs 28 (Fix #434)

[ELPA Syncer]

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

    consult-completing-read-multiple: Fix C-g on Emacs 28 (Fix #434)
    
    Thanks, @jakanakaevangeli!
---
 consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 6672276..ce285fe 100644
--- a/consult.el
+++ b/consult.el
@@ -2433,7 +2433,7 @@ See `completing-read-multiple' for the documentation of 
the arguments."
             (interactive)
             (pcase (catch 'exit
                      (call-interactively (setq this-command command))
-                     'continue)
+                     'consult--continue)
               ('nil
                (with-selected-window (active-minibuffer-window)
                  (let ((item (minibuffer-contents-no-properties)))
@@ -2454,7 +2454,8 @@ See `completing-read-multiple' for the documentation of 
the arguments."
                                     (format " (%s selected): " (length 
selected)))))
                    (delete-minibuffer-contents)
                    (run-hook-with-args 'consult--completion-refresh-hook 
'reset))))
-              ('t (throw 'exit t)))))
+              ('consult--continue nil)
+              (other (throw 'exit other)))))
     (fset hook (lambda ()
                  (when (and this-command (= depth (recursion-depth)))
                    (setq command this-command this-command wrapper))))