branch: externals/el-job
commit 1e8392dd321a6f7b1417d6f1fd91bc8093678408
Author: Martin Edström <[email protected]>
Commit: Martin Edström <[email protected]>
Add job id to the debug info
---
el-job-ng.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/el-job-ng.el b/el-job-ng.el
index 49527d9146..23292845b6 100644
--- a/el-job-ng.el
+++ b/el-job-ng.el
@@ -326,12 +326,14 @@ ID can also be passed to these helpers:
If PROC and EVENT look like the process is done,
assume the process buffer contains a readable Lisp expression
and run `el-job-ng--handle-finished-child'."
- (let* ((info (concat (format "Process %s" event)
+ (let* ((buf (process-buffer proc))
+ (job (el-job-ng-get-job proc))
+ (id (el-job-ng--job-id job))
+ (info (concat (format "Process %s" event)
(format "status: '%S\n" (process-status proc))
(format "exit status: %d\n" (process-exit-status proc))
- (format "buffer: %S" (process-buffer proc))))
- (buf (process-buffer proc))
- (job (el-job-ng-get-job proc)))
+ (format "buffer: %S\n" buf)
+ (format "el-job id: %S" id))))
(cl-assert job)
(cond ((or (eq (process-status proc) 'run)
(equal event "killed\n")
