[elpa] externals/consult 8c8520c303 3/3: consult--with-async: Immediately start asynchronous computation

[ELPA Syncer]

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

    consult--with-async: Immediately start asynchronous computation
---
 consult.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index b5130a5f3c..c819269410 100644
--- a/consult.el
+++ b/consult.el
@@ -2054,7 +2054,10 @@ BIND is the asynchronous function binding."
                   ;; asynchronous search right before exiting the minibuffer.
                   (fset hook (lambda (&rest _) (run-at-time 0 nil fun)))
                   (add-hook 'after-change-functions hook nil 'local)
-                  (funcall hook)))))
+                  ;; Immediately start asynchronous computation. This may lead
+                  ;; to problems unnecessary work if content is inserted 
shortly
+                  ;; afterwards.
+                  (funcall fun)))))
          (let ((,async (if (consult--async-p ,async) ,async (lambda (_) 
,async))))
            (unwind-protect
                ,(macroexp-progn body)