branch: externals/el-job
commit 6f6e9aa064610abf75552864f95062ec45b44151
Author: Martin Edström <meedstro...@gmail.com>
Commit: Martin Edström <meedstro...@gmail.com>
Prevent killing random buffer (fix #1)
---
el-job.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/el-job.el b/el-job.el
index 8fab934296..2c9664ee4b 100644
--- a/el-job.el
+++ b/el-job.el
@@ -666,8 +666,13 @@ same ID still has the benchmarks table and possibly queued
input."
(dolist (proc (append .busy .ready))
(let ((buf (process-buffer proc)))
(delete-process proc)
- (when (= 0 el-job--debug-level) (kill-buffer buf))))
- (when (= 0 el-job--debug-level) (kill-buffer .stderr))
+ (and (= 0 el-job--debug-level)
+ ;; Why can BUF be nil?
+ (buffer-live-p buf)
+ (kill-buffer buf))))
+ (and (= 0 el-job--debug-level)
+ (buffer-live-p buf)
+ (kill-buffer .stderr))
(setf .busy nil)
(setf .ready nil)))
