* async.el: Issue #7 Apply sabof patch from github; Fix processing non--latin chars.

[gnu-emacs-elpa] / async.el

diff --git a/async.el b/async.el
index 87fec2f81e139788dbc9c59eef1c743a2160bce5..7eb7568570f0fcdb0457a07577b029b01da4d090 100644 (file)
--- a/async.el
+++ b/async.el
@@ -118,7 +118,8 @@ as follows:
           (set (make-local-variable 'async-callback-value-set) t))))))
 
 (defun async--receive-sexp (&optional stream)
-  (let ((sexp (base64-decode-string (read stream))))
+  (let ((sexp (decode-coding-string (base64-decode-string
+                                     (read stream)) 'utf-8-unix)))
     (if async-debug
         (message "Received sexp {{{%s}}}" (pp-to-string sexp)))
     (setq sexp (read sexp))
@@ -129,6 +130,7 @@ as follows:
 (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))