[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 1cec376 030/187: Added async-sandbox
From: |
Michael Albinus |
Subject: |
[elpa] master 1cec376 030/187: Added async-sandbox |
Date: |
Wed, 30 Dec 2015 11:49:30 +0000 |
branch: master
commit 1cec376f579afc1dca784f95a5f98212acd590b5
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>
Added async-sandbox
---
async.el | 11 ++++++++---
1 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/async.el b/async.el
index e951b69..f20c9af 100644
--- a/async.el
+++ b/async.el
@@ -156,8 +156,9 @@ as follows:
(defun async-ready (future)
"Query a FUTURE to see if the ready is ready -- i.e., if no blocking
would result from a call to `async-get' on that FUTURE."
- (and (eq 'exit (process-status future))
- async-callback-value-set))
+ (with-current-buffer (process-buffer future)
+ (and (memq (process-status future) '(exit signal))
+ async-callback-value-set)))
(defun async-wait (future)
"Wait for FUTURE to become ready."
@@ -168,8 +169,8 @@ would result from a call to `async-get' on that FUTURE."
"Get the value from an asynchronously function when it is ready.
FUTURE is returned by `async-start' or `async-start-process' when
its FINISH-FUNC is nil."
- (async-wait future)
(with-current-buffer (process-buffer future)
+ (async-wait future)
(prog1
async-callback-value
(kill-buffer (current-buffer)))))
@@ -274,6 +275,10 @@ returns nil. It can still be useful, however, as an
argument to
`((async--transmit-sexp ,procvar (list 'quote sexp))))
,procvar)))
+(defmacro async-sandbox(func)
+ "Evaluate FUNC in a separate Emacs process, synchronously."
+ `(async-get (async-start ,func)))
+
(defun async-test-1 ()
(interactive)
(message "Starting async-test-1...")
- [elpa] master e08c251 017/187: Added `dired-async-use-native-commands', (continued)
- [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, 2015/12/30
- [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 <=
- [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
- [elpa] master c472c4a 036/187: * helm-async.el Return file errors in child Emacs., Michael Albinus, 2015/12/30
- [elpa] master eb26295 033/187: * helm-async.el: New, redefine dired-create-file to work with helm and dired., Michael Albinus, 2015/12/30