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 2cb94881b8889325d760cdb73db9bf37c7e946d6..24db2a1e7b9b4e1403891f081a673f50ec56e03f 100644 (file)
--- 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)