[elpa] master 15f737f 032/187: Propagate non-zero exit codes as errors

[Michael Albinus]

branch: master
commit 15f737f4ffe5802a4c55805ef5a052172dc5f826
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>

    Propagate non-zero exit codes as errors
---
 async.el |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/async.el b/async.el
index b7825c7..8b942b4 100644
--- a/async.el
+++ b/async.el
@@ -111,10 +111,11 @@ as follows:
               (backward-sexp)
               (async-handle-result async-callback (read (current-buffer))
                                    (current-buffer)))
-          (set (make-local-variable 'async-callback-value) 'error)
-          (set (make-local-variable 'async-callback-value-set) t)
-          (error "Async process '%s' failed with exit code %d"
-                 (process-name proc) (process-exit-status proc)))))))
+          (set (make-local-variable 'async-callback-value)
+               (list 'error
+                     (format "Async process '%s' failed with exit code %d"
+                             (process-name proc) (process-exit-status proc))))
+          (set (make-local-variable 'async-callback-value-set) t))))))
 
 (defun async--receive-sexp (&optional stream)
   (let ((sexp (base64-decode-string (read stream))))