branch: master
commit dfaddaa28203a0d467177dcce46595db2ea84fbb
Author: John Wiegley <[email protected]>
Commit: John Wiegley <[email protected]>
Use pipes instead of variable passing
---
async.el | 10 +++++++---
1 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/async.el b/async.el
index f9c561c..11ee5c2 100644
--- a/async.el
+++ b/async.el
@@ -35,7 +35,7 @@
:group 'emacs)
(defvar async-debug nil)
-(defvar async-send-over-pipe nil)
+(defvar async-send-over-pipe t)
(defvar async-in-child-emacs nil)
(defvar async-callback nil)
(defvar async-callback-for-process nil)
@@ -115,9 +115,12 @@ as follows:
(process-name proc) (process-exit-status proc)))))))
(defun async--receive-sexp (&optional stream)
- (let ((sexp (read (base64-decode-string (read stream)))))
+ (let ((sexp (base64-decode-string (read stream))))
(if async-debug
(message "Received sexp {{{%s}}}" (pp-to-string sexp)))
+ (setq sexp (read sexp))
+ (if async-debug
+ (message "Read sexp {{{%s}}}" (pp-to-string sexp)))
(eval sexp)))
(defun async--insert-sexp (sexp)
@@ -191,7 +194,8 @@ process object when done. If FINISH-FUNC is nil, the future
object will return the process object when the program is
finished."
(let* ((buf (generate-new-buffer (concat "*" name "*")))
- (proc (apply #'start-process name buf program program-args)))
+ (proc (let ((process-connection-type nil))
+ (apply #'start-process name buf program program-args))))
(with-current-buffer buf
(set (make-local-variable 'async-callback) finish-func)
(set-process-sentinel proc #'async-when-done)
