branch: externals/consult
commit 576a54fced02bbddc9b09bf41752b3371e8ca829
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Unset set-message-function during with-delayed-message (bug#63253)
---
consult.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/consult.el b/consult.el
index 35f2edf8f4..b912c83f9d 100644
--- a/consult.el
+++ b/consult.el
@@ -894,12 +894,10 @@ When no project is found and MAY-PROMPT is non-nil ask
the user."
"Show delayed MESSAGE if BODY takes too long.
Also temporarily increase the GC limit via `consult--with-increased-gc'."
(declare (indent 1))
- ;; FIXME `with-delayed-message' is broken in combination with
- ;; `inhibit-message'. Report this as a bug.
- (ignore message)
- `(progn ;; with-delayed-message (1 ,message)
- (consult--with-increased-gc
- ,@body)))
+ `(let (set-message-function) ;; bug#63253: Broken `with-delayed-message'
+ (with-delayed-message (1 ,message)
+ (consult--with-increased-gc
+ ,@body))))
(defun consult--count-lines (pos)
"Move to position POS and return number of lines."
