branch: externals/consult
commit 3636b9a9f8c2e7cf83ea587d291822a59443dff8
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult-completion-in-region: Let-bind completion-auto-help
Ensure that no *Completions* buffer is shown even if
`completion-eager-display'
is non-nil. New on Emacs 31.
---
consult.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index a49d3f1af2..1628d62ce2 100644
--- a/consult.el
+++ b/consult.el
@@ -3355,7 +3355,8 @@ expected return value are as specified for
`completion-in-region'."
(setcdr last nil))
(if (or (eq threshold t) (length< all (1+ (or threshold 1)))
(and completion-cycling completion-all-sorted-completions))
- (completion--in-region start end table predicate)
+ (let (completion-auto-help)
+ (completion--in-region start end table predicate))
;; Wrap all annotation functions to ensure that they are executed
;; in the original buffer.
(let* ((exit-fun (plist-get completion-extra-properties :exit-function))
