mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-24 11:58:10 +01:00
test: emacs: call accept-process-output in notmuch-test-wait
notmuch-test-wait called sleep-for in a loop to wait unconditionally 0.1 seconds while waiting for process to exit. accept-process-output returns as soon as there is any data available from process, so using it avoids unnecessary fixed delays. Both of these functions run process sentinels.
This commit is contained in:
parent
1f30f7d290
commit
f791cc9247
1 changed files with 1 additions and 1 deletions
|
@ -38,7 +38,7 @@
|
||||||
(defun notmuch-test-wait ()
|
(defun notmuch-test-wait ()
|
||||||
"Wait for process completion."
|
"Wait for process completion."
|
||||||
(while (get-buffer-process (current-buffer))
|
(while (get-buffer-process (current-buffer))
|
||||||
(sleep-for 0.1)))
|
(accept-process-output nil 0.1)))
|
||||||
|
|
||||||
(defun test-output (&optional filename)
|
(defun test-output (&optional filename)
|
||||||
"Save current buffer to file FILENAME. Default FILENAME is OUTPUT."
|
"Save current buffer to file FILENAME. Default FILENAME is OUTPUT."
|
||||||
|
|
Loading…
Reference in a new issue