branch: elpa/el-job
commit 94be19d3bb4bbcd5e9bcd9886758a2af1c11f294
Author: Martin Edström <meedstro...@gmail.com>
Commit: Martin Edström <meedstro...@gmail.com>
Remove kill-quietly
---
el-job.el | 12 ++----------
1 file changed, 2 insertions(+), 10 deletions(-)
diff --git a/el-job.el b/el-job.el
index 586e79c1dd..b1c4d2c28f 100644
--- a/el-job.el
+++ b/el-job.el
@@ -619,7 +619,7 @@ more input in the queue."
(dolist (proc (append (el-job:busy job)
(el-job:ready job)))
(el-job--unhide-buffer (process-buffer proc))
- (el-job--kill-quietly proc))
+ (delete-process proc))
(error "In buffer %s: problems reading child output: %S"
(current-buffer) err)))
(when results
@@ -664,20 +664,12 @@ same ID still has the benchmarks table and possibly
queued input."
(let ((preserve (and .id (> el-job--debug-level 0))))
(dolist (proc (append .busy .ready))
(let ((buf (process-buffer proc)))
- (el-job--kill-quietly proc)
+ (delete-process proc)
(and (buffer-live-p buf) (not preserve) (kill-buffer buf))))
(setf .busy nil)
(setf .ready nil)
(and (buffer-live-p .stderr) (not preserve) (kill-buffer .stderr)))))
-;; TODO Maybe now we can use only `delete-process' since sentinel is always
-;; ignore.
-(defun el-job--kill-quietly (proc)
- "Kill PROC while disabling its sentinel and filter."
- (set-process-filter proc #'ignore)
- (set-process-sentinel proc #'ignore)
- (delete-process proc))
-
(defun el-job--unhide-buffer (buffer)
"Rename BUFFER to omit initial space, and return the new name."
(with-current-buffer buffer
