diff options
| author | Pierre Téchoueyres | 2015-08-18 14:24:16 +0200 |
|---|---|---|
| committer | Michael Albinus | 2015-08-18 14:24:16 +0200 |
| commit | 0e1711a0e29428173a743d38bfaba82fd56d77be (patch) | |
| tree | a42d85893b8f9de84f07753bce7986ab3f04308f | |
| parent | 07ebe42546abbc9823c9ce3c7b2e397b551838a1 (diff) | |
| download | emacs-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.el | 7 |
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) |