[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 1794ea4 182/187: async-start is now a function (#43).
From: |
Michael Albinus |
Subject: |
[elpa] master 1794ea4 182/187: async-start is now a function (#43). |
Date: |
Wed, 30 Dec 2015 11:50:33 +0000 |
branch: master
commit 1794ea4955c6eeb62471b232a2d4fd6a6925a2c9
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>
async-start is now a function (#43).
* async.el (async--procvar): New internal var.
(async-start): Use it to move async-start to a function.
---
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 a97aa4c 166/187: Don't call package-activate-1 in package--compile., (continued)
- [elpa] master a97aa4c 166/187: Don't call package-activate-1 in package--compile., Michael Albinus, 2015/12/30
- [elpa] master 7616e0c 165/187: Check if pkg is member of package-archive-contents (#51)., Michael Albinus, 2015/12/30
- [elpa] master ee727e1 168/187: Add async to load-path when recompiling itself., Michael Albinus, 2015/12/30
- [elpa] master 40814ea 173/187: Correct package headers, Michael Albinus, 2015/12/30
- [elpa] master 3499a32 176/187: Only rename buffers on rename operation (#56)., Michael Albinus, 2015/12/30
- [elpa] master d98799c 172/187: Add epg to inject variables in smtpmail (#54)., Michael Albinus, 2015/12/30
- [elpa] master 062c609 158/187: Add more helm packages to compile async., Michael Albinus, 2015/12/30
- [elpa] master cbd8d9a 164/187: Update version number., Michael Albinus, 2015/12/30
- [elpa] master 8c0cc0f 160/187: Add magit to async-bytecomp-allowed-package., Michael Albinus, 2015/12/30
- [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 <=
- [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, 2015/12/30
- [elpa] master 4319ab6 177/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30