From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sat, 2 Jan 2016 12:53:34 +0000 (+0100)
Subject: Properly handle unibyte strings and circular data
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/9e186e95bd891b5718701723c0f7ce48c823d3e5?ds=sidebyside

Properly handle unibyte strings and circular data

	* packages/async/async.el (async--insert-sexp): Bind
	print-escape-nonascii and print-circle.
---

diff --git a/packages/async/async.el b/packages/async/async.el
index 2cb94881b..24db2a1e7 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)