aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPierre Téchoueyres2015-08-18 14:24:16 +0200
committerMichael Albinus2015-08-18 14:24:16 +0200
commit0e1711a0e29428173a743d38bfaba82fd56d77be (patch)
treea42d85893b8f9de84f07753bce7986ab3f04308f
parent07ebe42546abbc9823c9ce3c7b2e397b551838a1 (diff)
downloademacs-0e1711a0e29428173a743d38bfaba82fd56d77be.tar.gz
emacs-0e1711a0e29428173a743d38bfaba82fd56d77be.zip
* lisp/net/tramp-cmds.el (tramp-reporter-dump-variable):
Encode/decode string. Copyright-paperwork-exempt: yes
-rw-r--r--lisp/net/tramp-cmds.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index fee74eedec2..22c139859f9 100644
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -236,8 +236,11 @@ buffer in your bug report.
236 (string-match 236 (string-match
237 (concat "[^" (symbol-value 'mm-7bit-chars) "]") val)) 237 (concat "[^" (symbol-value 'mm-7bit-chars) "]") val))
238 (with-current-buffer reporter-eval-buffer 238 (with-current-buffer reporter-eval-buffer
239 (set varsym (format "(base64-decode-string \"%s\")" 239 (set
240 (base64-encode-string val)))))) 240 varsym
241 (format
242 "(decode-coding-string (base64-decode-string \"%s\") 'raw-text)"
243 (base64-encode-string (encode-coding-string val 'raw-text)))))))
241 244
242 ;; Dump variable. 245 ;; Dump variable.
243 (tramp-compat-funcall 'reporter-dump-variable varsym mailbuf) 246 (tramp-compat-funcall 'reporter-dump-variable varsym mailbuf)