branch: externals/el-job
commit a318aa0bc23a05f6d15cc21a712ab237d08c5a3f
Author: Martin Edström <meedst...@runbox.eu>
Commit: Martin Edström <meedst...@runbox.eu>
Change from while-progn to just while
---
el-job.el | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/el-job.el b/el-job.el
index 948663b821..723d395dcb 100644
--- a/el-job.el
+++ b/el-job.el
@@ -600,17 +600,16 @@ should trigger `el-job--handle-output'."
(print-symbols-bare t)
(print-escape-newlines t)
items proc)
- (while (progn
- (setq items (pop splits))
- (setq proc (pop .ready))
- (push proc .busy)
- (push (process-buffer proc) busy-bufs)
- (setf (alist-get proc .input-sets) items)
- (with-current-buffer (process-buffer proc)
- (erase-buffer)
- (process-send-string proc (prin1-to-string items))
- (process-send-string proc "\n"))
- splits)))
+ (while splits
+ (setq items (pop splits))
+ (setq proc (pop .ready))
+ (push proc .busy)
+ (push (process-buffer proc) busy-bufs)
+ (setf (alist-get proc .input-sets) items)
+ (with-current-buffer (process-buffer proc)
+ (erase-buffer)
+ (process-send-string proc (prin1-to-string items))
+ (process-send-string proc "\n"))))
(setf .queued-inputs nil)
(plist-put .timestamps :work-begun (current-time))
(setf .timer (run-with-timer .02 nil #'el-job--poll 1 busy-bufs)))))
