[elpa] externals/async 2fa8184141 5/6: Merge pull request #171 from Fuco1/fix/kill-correct-buffer

[ELPA Syncer]

branch: externals/async
commit 2fa8184141061efc4bf5cc8a7d994a00a9e55bf9
Merge: 2fa4a8bfc4 6707395c1a
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: GitHub <noreply@github.com>

    Merge pull request #171 from Fuco1/fix/kill-correct-buffer
    
    fix: do not kill process buffer if it was already killed
---
 async.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/async.el b/async.el
index beb4375efd..e4a2854590 100644
--- a/async.el
+++ b/async.el
@@ -171,7 +171,10 @@ It is intended to be used as follows:
                     (prog1
                         (funcall async-callback proc)
                       (unless async-debug
-                        (kill-buffer (current-buffer))))
+                        ;; we need to check this because theoretically
+                        ;; `async-callback' could've killed it already
+                        (when (buffer-live-p (process-buffer proc))
+                          (kill-buffer (process-buffer proc)))))
                   (set (make-local-variable 'async-callback-value) proc)
                   (set (make-local-variable 'async-callback-value-set) t))
               ;; Maybe strip out unreadable "#"; They are replaced by