branch: master
commit 9e186e95bd891b5718701723c0f7ce48c823d3e5
Author: Andreas Schwab <sch...@linux-m68k.org>
Commit: Andreas Schwab <sch...@linux-m68k.org>
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)
