[elpa] master 9e186e9 1/2: Properly handle unibyte strings and circular data

[Andreas Schwab]

branch: master
commit 9e186e95bd891b5718701723c0f7ce48c823d3e5
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>

    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)