aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-11 16:02:12 -0600
committerColin Okay <okay@toyful.space>2022-02-11 16:02:12 -0600
commitb05761610ebe7f31f172cc421c22738295f99931 (patch)
tree746dd4cb7fa4cdc8c8fd1d073044b22712b1d4fb /src
parenteec2a595bfc0c5ef7c0b215e446dc7cc33b9fcb6 (diff)
emacs completion-borne typo
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main.lisp b/src/main.lisp
index c7a2421..ce73d78 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -36,15 +36,15 @@ have passed or CHECK returns non-nil."
(command
&key
(shell-name (parent-process-name))
- (await-output-p 0.5)
+ (await-output-p 0.8)
(output-stream *standard-output*))
(let ((shell
(uiop:launch-program shell-name :input :stream :output :stream)))
(write-line command (uiop:process-info-input shell))
(finish-output (uiop:process-info-input shell))
(when await-output-p
- (wait-until (:timeout await-output-p)
- (listen (uiop:process-alive-p shell)))
+ (wait-until (:timeout await-output-p :poll-every 0.005)
+ (listen (uiop:process-info-output shell)))
(loop while (listen (uiop:process-info-output shell))
do (princ (read-line (uiop:process-info-output shell)) output-stream)
(terpri output-stream)))))