[elpa] externals/consult ecd36de 3/5: consult--async-process: Do not consume input

[ELPA Syncer]

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

    consult--async-process: Do not consume input
    
    The refresher should ignore the input.
---
 consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index ca6ec7c..a5e5735 100644
--- a/consult.el
+++ b/consult.el
@@ -1430,6 +1430,7 @@ PROPS are optional properties passed to `make-process'."
            (setq proc nil))
          (setq last-args nil))
         ((pred stringp)
+         (funcall async action)
          (let* ((args (funcall cmd action))
                 (stderr-buffer (generate-new-buffer " *consult-async-stderr*"))
                 (flush t)
@@ -1539,7 +1540,7 @@ The DEBOUNCE delay defaults to 
`consult-async-input-debounce'."
 The refresh happens immediately when candidates are pushed."
   (lambda (action)
     (pcase action
-      ((or (pred consp) (pred stringp) 'flush)
+      ((or (pred consp) 'flush)
        (prog1 (funcall async action)
          (funcall async 'refresh)))
       (_ (funcall async action)))))
@@ -1552,7 +1553,7 @@ The refresh happens after a DELAY, defaulting to 
`consult-async-refresh-delay'."
     (lambda (action)
       (prog1 (funcall async action)
         (pcase action
-          ((or (pred consp) (pred stringp) 'flush)
+          ((or (pred consp) 'flush)
            (setq refresh t)
            (unless timer
              (setq timer (run-at-time