[elpa] master 4889339: Remove subtree async, make it a regular package
branch: master
commit 4889339ef908c7f887269beee651b08413696593
Author: Michael Albinus
Commit: Michael Albinus
Remove subtree async, make it a regular package
* externals-list: Remove subtree async.
* packages/async/async-pkg.el: Remove, it is a generated file.
---
externals-list |1 -
1 files changed, 0 insertions(+), 1 deletions(-)
diff --git a/externals-list b/externals-list
index b7ec880..d024f97 100644
--- a/externals-list
+++ b/externals-list
@@ -32,7 +32,6 @@
(("ack":subtree "https://github.com/leoliu/ack-el";)
("aggressive-indent" :subtree
"https://github.com/Malabarba/aggressive-indent-mode";)
- ("async" :subtree "https://github.com/jwiegley/emacs-async";)
("auctex" :external "git://git.sv.gnu.org/auctex.git")
("bug-hunter" :subtree "https://github.com/Malabarba/elisp-bug-hunter";)
;;FIXME:("cedet" :external "??")
[elpa] master fc7faa2: Don't rely on UTF-8 locale when talking to subordinate Emacs
branch: master
commit fc7faa28a563521cc086f239d2e3aa4b726c6d51
Author: Eli Zaretskii
Commit: Eli Zaretskii
Don't rely on UTF-8 locale when talking to subordinate Emacs
* packages/async/async.el (async--receive-sexp)
(async-batch-invoke): Bind coding-system-for-write to utf-8-unix.
(async-start): Bind coding-system-for-read to utf-8-unix.
---
packages/async/async.el | 35 +--
1 files changed, 21 insertions(+), 14 deletions(-)
diff --git a/packages/async/async.el b/packages/async/async.el
index 20a2f17..2cb9488 100644
--- a/packages/async/async.el
+++ b/packages/async/async.el
@@ -121,7 +121,9 @@ as follows:
(defun async--receive-sexp (&optional stream)
(let ((sexp (decode-coding-string (base64-decode-string
- (read stream)) 'utf-8-unix)))
+ (read stream)) 'utf-8-unix))
+ ;; Parent expects UTF-8 encoded text.
+ (coding-system-for-write 'utf-8-unix))
(if async-debug
(message "Received sexp {{{%s}}}" (pp-to-string sexp)))
(setq sexp (read sexp))
@@ -147,18 +149,21 @@ as follows:
(defun async-batch-invoke ()
"Called from the child Emacs process' command-line."
- (setq async-in-child-emacs t
-debug-on-error async-debug)
- (if debug-on-error
- (prin1 (funcall
- (async--receive-sexp (unless async-send-over-pipe
- command-line-args-left
-(condition-case err
-(prin1 (funcall
-(async--receive-sexp (unless async-send-over-pipe
- command-line-args-left
- (error
- (prin1 (list 'async-signal err))
+ ;; Make sure 'message' and 'prin1' encode stuff in UTF-8, as parent
+ ;; process expects.
+ (let ((coding-system-for-write 'utf-8-unix))
+(setq async-in-child-emacs t
+ debug-on-error async-debug)
+(if debug-on-error
+ (prin1 (funcall
+ (async--receive-sexp (unless async-send-over-pipe
+ command-line-args-left
+ (condition-case err
+ (prin1 (funcall
+ (async--receive-sexp (unless async-send-over-pipe
+command-line-args-left
+ (error
+(prin1 (list 'async-signal err)))
(defun async-ready (future)
"Query a FUTURE to see if the ready is ready -- i.e., if no blocking
@@ -263,7 +268,9 @@ returned except that it yields no value (since the value is
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'."
- (let ((sexp start-func))
+ (let ((sexp start-func)
+ ;; Subordinate Emacs will send text encoded in UTF-8.
+ (coding-system-for-read 'utf-8-unix))
(setq async--procvar
(async-start-process
"emacs" (file-truename
[elpa] master b514121 2/2: Remove packages/async/async-pkg.el
branch: master
commit b5141214ed9aabd7b1cce7bcf828bb2f252dfb38
Author: Andreas Schwab
Commit: Andreas Schwab
Remove packages/async/async-pkg.el
---
packages/async/async-pkg.el |2 --
1 files changed, 0 insertions(+), 2 deletions(-)
diff --git a/packages/async/async-pkg.el b/packages/async/async-pkg.el
deleted file mode 100644
index 984fbf4..000
--- a/packages/async/async-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;; Generated package description from async.el
-(define-package "async" "1.6" "Asynchronous processing in Emacs" 'nil :url
"http://elpa.gnu.org/packages/async.html"; :keywords '("async"))
[elpa] master updated (fc7faa2 -> b514121)
schwab pushed a change to branch master. from fc7faa2 Don't rely on UTF-8 locale when talking to subordinate Emacs new 9e186e9 Properly handle unibyte strings and circular data new b514121 Remove packages/async/async-pkg.el Summary of changes: packages/async/async-pkg.el |2 -- packages/async/async.el |5 - 2 files changed, 4 insertions(+), 3 deletions(-) delete mode 100644 packages/async/async-pkg.el
[elpa] master 9e186e9 1/2: Properly handle unibyte strings and circular data
branch: master commit 9e186e95bd891b5718701723c0f7ce48c823d3e5 Author: Andreas Schwab Commit: Andreas Schwab Properly handle unibyte strings and circular data * packages/async/async.el (async--insert-sexp): Bind print-escape-nonascii and print-circle. --- packages/async/async.el |5 - 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/packages/async/async.el b/packages/async/async.el index 2cb9488..24db2a1 100644 --- a/packages/async/async.el +++ b/packages/async/async.el @@ -132,7 +132,10 @@ as follows: (eval sexp))) (defun async--insert-sexp (sexp) - (let (print-level print-length) + (let (print-level + print-length + (print-escape-nonascii t) + (print-circle t)) (prin1 sexp (current-buffer)) ;; Just in case the string we're sending might contain EOF (encode-coding-region (point-min) (point-max) 'utf-8-unix)
