[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b7ec203 021/187: Fix for when async.el is byte-compiled
From: |
Michael Albinus |
Subject: |
[elpa] master b7ec203 021/187: Fix for when async.el is byte-compiled |
Date: |
Wed, 30 Dec 2015 11:49:27 +0000 |
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 ()
- [elpa] master b80f1a5 018/187: Don't use pipes for communication just yet, (continued)
- [elpa] master b80f1a5 018/187: Don't use pipes for communication just yet, Michael Albinus, 2015/12/30
- [elpa] master 497e4da 024/187: Fix to dired-async for wdired-mode, Michael Albinus, 2015/12/30
- [elpa] master e08c251 017/187: Added `dired-async-use-native-commands', Michael Albinus, 2015/12/30
- [elpa] master 7ba4f40 022/187: Always base64 encode, Michael Albinus, 2015/12/30
- [elpa] master 1028235 023/187: Don't use lexical-binding in dired-async.el, Michael Albinus, 2015/12/30
- [elpa] master 12ca991 016/187: Made some macros into functions, added debug code, Michael Albinus, 2015/12/30
- [elpa] master 386a876 019/187: Some minor adjustments, Michael Albinus, 2015/12/30
- [elpa] master dfaddaa 025/187: Use pipes instead of variable passing, Michael Albinus, 2015/12/30
- [elpa] master d771dff 015/187: Added `async-start-process', Michael Albinus, 2015/12/30
- [elpa] master 66610f4 026/187: smtpmail-async: Report status to user when done, Michael Albinus, 2015/12/30
- [elpa] master b7ec203 021/187: Fix for when async.el is byte-compiled,
Michael Albinus <=
- [elpa] master 3f870f5 028/187: Show ops in progress `dired-async-in-process-face', Michael Albinus, 2015/12/30
- [elpa] master 1cec376 030/187: Added async-sandbox, Michael Albinus, 2015/12/30
- [elpa] master 24811ee 027/187: Show full backtraces if `async-debug' is non-nil, Michael Albinus, 2015/12/30
- [elpa] master 15f737f 032/187: Propagate non-zero exit codes as errors, Michael Albinus, 2015/12/30
- [elpa] master eda8d32 035/187: * helm-async.el (dired-create-file): Use quote., Michael Albinus, 2015/12/30
- [elpa] master ec1f0e8 034/187: * helm-async.el: let-bind dired-recursive-copies to 'always to avoid hanging on child., Michael Albinus, 2015/12/30
- [elpa] master acb0885 031/187: Several minor fixes, Michael Albinus, 2015/12/30
- [elpa] master 49f8b81 038/187: * helm-async.el: Update copyright, Michael Albinus, 2015/12/30
- [elpa] master 416c73a 037/187: * helm-async.el (helm-async-be-async): New, allow turning off async., Michael Albinus, 2015/12/30
- [elpa] master 2db438b 029/187: dired-async now shows progress using overlays, Michael Albinus, 2015/12/30