Propagate non-zero exit codes as errors

diff --git a/async.el b/async.el
index b7825c7b1eaaf2170cabe83078f1196d3f83cb5c..8b942b49ab04687977d904c3cc8c67183e0a63e8 100644 (file)
--- 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))))