branch: externals/el-job
commit f38e5c59c5043c8d37cbd25ac99183083fc1b9ad
Author: Martin Edström <[email protected]>
Commit: Martin Edström <[email protected]>
Potential fix
Ref: https://github.com/meedstrom/org-mem/issues/31
---
el-job-ng.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/el-job-ng.el b/el-job-ng.el
index ffe253d2f6..958bc271c2 100644
--- a/el-job-ng.el
+++ b/el-job-ng.el
@@ -480,13 +480,15 @@ ID, MAX-SECS and MESSAGE as in `el-job-ng-await'."
(delete-process proc))))
(let ((stderr (el-job-ng-stderr id)))
(when (buffer-live-p stderr)
- (kill-buffer stderr))))
+ (kill-buffer stderr)))
+ (oset (el-job-ng-get-job id) process-outputs nil))
(defun el-job-ng-kill-keep-bufs (id)
"Kill processes for job ID."
(dolist (proc (el-job-ng-processes id))
(set-process-sentinel proc #'ignore)
- (delete-process proc)))
+ (delete-process proc))
+ (oset (el-job-ng-get-job id) process-outputs nil))
(defun el-job-ng-stderr (id)
"Get the stderr buffer for ID."
