branch: master
commit 21432170e4e4695ded35c98ae91132079789806e
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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
