branch: externals/el-job commit 850391b0e1ea7cebb222f318ba4e9f1f5a5284a5 Author: Martin Edström <meedst...@runbox.eu> Commit: Martin Edström <meedst...@runbox.eu>
Satisfy linters --- .github/workflows/test.yml | 1 - el-job-test.el | 2 +- el-job.el | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index 2b389b99f0..475158b5a5 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -43,7 +43,6 @@ jobs: emacs_version: - 29.1 - 30.1 - - snapshot steps: - uses: purcell/setup-emacs@master with: diff --git a/el-job-test.el b/el-job-test.el index f9885dd52a..943d445ec5 100644 --- a/el-job-test.el +++ b/el-job-test.el @@ -77,7 +77,7 @@ (should (string-suffix-p ".elc" (el-job--ensure-compiled-lib 'el-job-child))) (when (let ((procs (hash-table-values comp-async-compilations))) - (not (el-job--sit-until-nil-p + (not (el-job--sit-until-not (cl-some #'process-live-p procs) 10))) (should (string-suffix-p ".eln" (el-job--ensure-compiled-lib 'el-job-child)))))))) diff --git a/el-job.el b/el-job.el index d1b6dd9f0e..b0b359d6f4 100644 --- a/el-job.el +++ b/el-job.el @@ -845,7 +845,7 @@ Safely return nil otherwise, whether or not ID is known." ;; Accelerate the timeframe until we can clean the namespace (defvar el-jobs :obsolete) (let ((complainer - (lambda (_) (error "el-job had renames in 2.3.0, update your code")))) + (lambda (_) (error "Some renames in el-job 2.3.0, update your code")))) (fset 'el-job:id complainer) (fset 'el-job:callback complainer) (fset 'el-job:n-cores-to-use complainer)