branch: externals/consult
commit d96147aaff3029bf36011603f55ff651791a43f8
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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))))
