branch: externals/el-job
commit 307d81fd1d1c96cc3a44d9492db0886a7dafe85c
Author: Martin Edström <meedstro...@gmail.com>
Commit: Martin Edström <meedstro...@gmail.com>
Simplify a bit
---
el-job-child.el | 4 +++-
el-job.el | 7 ++-----
2 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/el-job-child.el b/el-job-child.el
index 12f6212b24..138a24bf1e 100644
--- a/el-job-child.el
+++ b/el-job-child.el
@@ -89,10 +89,12 @@ add that information to the final return value."
(push (time-convert nil t) meta)
(let ((print-length nil)
(print-level nil)
+ ;; Even though we had set :coding 'utf-8-emacs-unix in the
+ ;; process buffer, this is still necessary.
+ ;; https://github.com/meedstrom/org-node/issues/70
(coding-system-for-write 'utf-8-emacs-unix)
(print-circle t)
(print-escape-newlines t)
- (print-escape-nonascii t)
(print-symbols-bare t))
(print (cons meta results)))))))
diff --git a/el-job.el b/el-job.el
index 485f894391..fd3bf658c9 100644
--- a/el-job.el
+++ b/el-job.el
@@ -517,7 +517,7 @@ For the rest of the arguments, see `el-job-launch'."
(print-circle t)
(print-symbols-bare t)
(print-escape-newlines t)
- (print-escape-nonascii t)
+ (print-escape-nonascii t) ;; Prolly unnecessary
(vars (prin1-to-string
(cl-loop for var in inject-vars
if (symbolp var)
@@ -548,10 +548,7 @@ For the rest of the arguments, see `el-job-launch'."
;; https://github.com/jwiegley/emacs-async/issues/165
:coding 'utf-8-emacs-unix
:stderr .stderr
- :buffer (with-current-buffer
- (get-buffer-create (format " *el-job-%s:%d*"
.id i) t)
- (set-buffer-multibyte t)
- (current-buffer))
+ :buffer (get-buffer-create (format " *el-job-%s:%d*" .id
i) t)
:command command
:sentinel #'ignore))
(when (string-suffix-p ">" (process-name proc))
