[elpa] master 2143217 159/187: Bind print-level and print-length (#48).

[Michael Albinus]

branch: master
commit 21432170e4e4695ded35c98ae91132079789806e
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Bind print-level and print-length (#48).
    
    * async.el (async--insert-sexp): Do it.
---
 async.el |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/async.el b/async.el
index be9c04e..67d60ce 100644
--- a/async.el
+++ b/async.el
@@ -128,12 +128,13 @@ as follows:
     (eval sexp)))
 
 (defun async--insert-sexp (sexp)
-  (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)
-  (base64-encode-region (point-min) (point-max) t)
-  (goto-char (point-min)) (insert ?\")
-  (goto-char (point-max)) (insert ?\" ?\n))
+  (let (print-level print-length)
+    (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)
+    (base64-encode-region (point-min) (point-max) t)
+    (goto-char (point-min)) (insert ?\")
+    (goto-char (point-max)) (insert ?\" ?\n)))
 
 (defun async--transmit-sexp (process sexp)
   (with-temp-buffer