branch: externals/el-job
commit 503aec418805544835a30d373b0897b0c7316a31
Author: Martin Edström <[email protected]>
Commit: Martin Edström <[email protected]>

    More specific assertions
---
 el-job-ng.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/el-job-ng.el b/el-job-ng.el
index ca05135001..331fd677e2 100644
--- a/el-job-ng.el
+++ b/el-job-ng.el
@@ -337,7 +337,6 @@ and run `el-job-ng--handle-finished-child'."
          (info+tip (concat info "\n"
                            (format "tip:         check the hidden buffer named 
(note leading space): \"%s\""
                                    (buffer-name (el-job-ng-stderr id))))))
-    (cl-assert job)
     (cond ((or (eq (process-status proc) 'run)
                (equal event "killed\n")
                (equal event "deleted\n"))
@@ -347,6 +346,8 @@ and run `el-job-ng--handle-finished-child'."
           ((and (eq (process-status proc) 'exit)
                 (eq (process-exit-status proc) 0)
                 (equal event "finished\n"))
+           (cl-assert (buffer-live-p buf))
+           (cl-assert (not (process-live-p proc)))
            ;; NOTE: No particular buffer should be current now, because this
            ;; may run the user-provided callback which should be free to do
            ;; whatever to the window configuration.

Reply via email to