[elpa] master b7ec203 021/187: Fix for when async.el is byte-compiled

[Michael Albinus]

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

    Fix for when async.el is byte-compiled
---
 async.el |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/async.el b/async.el
index 20322f6..698a044 100644
--- a/async.el
+++ b/async.el
@@ -131,7 +131,7 @@ as follows:
         (goto-char (point-min)) (insert ?\")
         (goto-char (point-max)) (insert ?\" ?\n))
     (let ((print-escape-newlines t))
-      (prin1 (list 'quote ,start-func) (current-buffer)))
+      (prin1 sexp (current-buffer)))
     (insert ?\n)))
 
 (defun async--transmit-sexp (process sexp)
@@ -264,12 +264,12 @@ returns nil.  It can still be useful, however, as an 
argument to
               ,finish-func
               "-Q" "-l" ,(find-library-name "async")
               "-batch" "-f" "async-batch-invoke"
-              ,(and async-send-over-pipe
-                    '(with-temp-buffer
-                       (async--insert-sexp (list 'quote sexp))
-                       (buffer-string))))))
-       ,(if async-send-over-pipe
-            `(async--transmit-sexp ,procvar (list 'quote sexp)))
+              ,@(unless async-send-over-pipe
+                  '((with-temp-buffer
+                      (async--insert-sexp (list 'quote sexp))
+                      (buffer-string)))))))
+       ,@(if async-send-over-pipe
+             `((async--transmit-sexp ,procvar (list 'quote sexp))))
        ,procvar)))
 
 (defun async-test-1 ()