[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ca73877 183/187: Merge pull request #57 from jwiegley/HEAD
From: |
Michael Albinus |
Subject: |
[elpa] master ca73877 183/187: Merge pull request #57 from jwiegley/HEAD |
Date: |
Wed, 30 Dec 2015 11:50:33 +0000 |
branch: master
commit ca738772446eb5f6d36ec9273dd6f273abe4e8c3
Merge: 36a21eb 1794ea4
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>
Merge pull request #57 from jwiegley/HEAD
async-start is now a function (#43).
---
async.el | 44 ++++++++++++++++++++++----------------------
1 files changed, 22 insertions(+), 22 deletions(-)
diff --git a/async.el b/async.el
index e41b39d..ee03c46 100644
--- a/async.el
+++ b/async.el
@@ -42,6 +42,7 @@
(defvar async-callback-value nil)
(defvar async-callback-value-set nil)
(defvar async-current-process nil)
+(defvar async--procvar nil)
(defun async-inject-variables
(include-regexp &optional predicate exclude-regexp)
@@ -214,7 +215,7 @@ working directory."
proc)))
;;;###autoload
-(defmacro async-start (start-func &optional finish-func)
+(defun async-start (start-func &optional finish-func)
"Execute START-FUNC (often a lambda) in a subordinate Emacs process.
When done, the return value is passed to FINISH-FUNC. Example:
@@ -262,27 +263,26 @@ passed to FINISH-FUNC). Call `async-get' on such a
future always
returns nil. It can still be useful, however, as an argument to
`async-ready' or `async-wait'."
(require 'find-func)
- (let ((procvar (make-symbol "proc")))
- `(let* ((sexp ,start-func)
- (,procvar
- (async-start-process
- "emacs" (file-truename
- (expand-file-name invocation-name
- invocation-directory))
- ,finish-func
- "-Q" "-l"
- ;; Using `locate-library' ensure we use the right file
- ;; when the .elc have been deleted.
- ,(locate-library "async")
- "-batch" "-f" "async-batch-invoke"
- (if async-send-over-pipe
- "<none>"
- (with-temp-buffer
- (async--insert-sexp (list 'quote sexp))
- (buffer-string))))))
- (if async-send-over-pipe
- (async--transmit-sexp ,procvar (list 'quote sexp)))
- ,procvar)))
+ (let ((sexp start-func))
+ (setq async--procvar
+ (async-start-process
+ "emacs" (file-truename
+ (expand-file-name invocation-name
+ invocation-directory))
+ finish-func
+ "-Q" "-l"
+ ;; Using `locate-library' ensure we use the right file
+ ;; when the .elc have been deleted.
+ (locate-library "async")
+ "-batch" "-f" "async-batch-invoke"
+ (if async-send-over-pipe
+ "<none>"
+ (with-temp-buffer
+ (async--insert-sexp (list 'quote sexp))
+ (buffer-string)))))
+ (if async-send-over-pipe
+ (async--transmit-sexp async--procvar (list 'quote sexp)))
+ async--procvar))
(defmacro async-sandbox(func)
"Evaluate FUNC in a separate Emacs process, synchronously."
- [elpa] master 0b60259 163/187: Check if package-archive-contents is populated (#51)., (continued)
- [elpa] master 0b60259 163/187: Check if package-archive-contents is populated (#51)., Michael Albinus, 2015/12/30
- [elpa] master 1794ea4 182/187: async-start is now a function (#43)., Michael Albinus, 2015/12/30
- [elpa] master 8bb464f 170/187: Add melpa badges to README., Michael Albinus, 2015/12/30
- [elpa] master 1ddb3a0 169/187: Add to load-path and load only async., Michael Albinus, 2015/12/30
- [elpa] master 3248303 174/187: Merge pull request #55 from syohex/correct-header, Michael Albinus, 2015/12/30
- [elpa] master 5c61408 179/187: Update version in *pkg.el file., Michael Albinus, 2015/12/30
- [elpa] master 1f12717 178/187: Don't recompute length fn-list, ensure operation is downcased for safety (#57)., Michael Albinus, 2015/12/30
- [elpa] master 57257f0 167/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 128eb83 171/187: Fix pkg file and instructions in dired-async., Michael Albinus, 2015/12/30
- [elpa] master 53fccc5 175/187: Rename buffers after renaming (#56)., Michael Albinus, 2015/12/30
- [elpa] master ca73877 183/187: Merge pull request #57 from jwiegley/HEAD,
Michael Albinus <=
- [elpa] master 4319ab6 177/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 2a40355 184/187: No need to require find-func., Michael Albinus, 2015/12/30
- [elpa] master c25bf17 180/187: Document async compilation of packages in README., Michael Albinus, 2015/12/30
- [elpa] master ef4a542 187/187: Merge branch 'master' of git://bzr.sv.gnu.org/emacs/elpa, Michael Albinus, 2015/12/30
- [elpa] master 36a21eb 181/187: Remove old require in test file., Michael Albinus, 2015/12/30
- [elpa] master b375440 186/187: Add subtree package async, Michael Albinus, 2015/12/30
- [elpa] master 4e44885 185/187: Add 'packages/async/' from commit '2a40355c3328e57102a9648c9108e19d67727dc1', Michael Albinus, 2015/12/30