branch: externals/el-job
commit 6c5173a11737a3a8e5d4fa9a7395031e0e2c5676
Author: Martin Edström <[email protected]>
Commit: Martin Edström <[email protected]>
Fixes
---
el-job-ng.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/el-job-ng.el b/el-job-ng.el
index 14bb7513ba..1f3db3e8f3 100644
--- a/el-job-ng.el
+++ b/el-job-ng.el
@@ -411,14 +411,14 @@ A typical TEST would check if something in the
environment has changed."
(defun el-job-ng-await-or-die (id max-secs &optional message)
"Like `el-job-ng-await', but kill the job on timeout or any signal.
Otherwise, a keyboard quit would let it continue in the background."
- (condition-case signal
+ (condition-case sig
(if (el-job-ng-await id max-secs message)
t
(el-job-ng-kill-keep-bufs id)
nil)
(t
(el-job-ng-kill id)
- (apply #'signal signal)
+ (signal (car sig) (cdr sig))
nil)))
(defun el-job-ng-ready-p (id)
@@ -427,7 +427,7 @@ Otherwise, a keyboard quit would let it continue in the
background."
(defun el-job-ng-busy-p (id)
"Return list of busy processes for job ID, if any."
- (seq-find #'process-live-p (el-job-ng-processes id)))
+ (seq-filter #'process-live-p (el-job-ng-processes id)))
(defun el-job-ng-kill (id)
"Kill processes for job ID and their buffers."
