140 |
|
|
141 |
(defcustom tramp-encoding-shell |
(defcustom tramp-encoding-shell |
142 |
(if (memq system-type '(windows-nt)) |
(if (memq system-type '(windows-nt)) |
143 |
"cmd.exe" |
(getenv "COMSPEC") |
144 |
"/bin/sh") |
"/bin/sh") |
145 |
"*Use this program for encoding and decoding commands on the local host. |
"*Use this program for encoding and decoding commands on the local host. |
146 |
This shell is used to execute the encoding and decoding command on the |
This shell is used to execute the encoding and decoding command on the |
3247 |
(newline))) |
(newline))) |
3248 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
3249 |
multi-method method user host |
multi-method method user host |
3250 |
6 "Encoding region using command...") |
6 "Encoding region using command `%s'..." loc-enc) |
3251 |
(unless (equal 0 (tramp-call-local-coding-command |
(unless (equal 0 (tramp-call-local-coding-command |
3252 |
loc-enc tmpfil t)) |
loc-enc tmpfil t)) |
3253 |
(pop-to-buffer trampbuf) |
(pop-to-buffer trampbuf) |
5280 |
(rem-dec (nth 1 found)) |
(rem-dec (nth 1 found)) |
5281 |
(loc-enc (nth 2 found)) |
(loc-enc (nth 2 found)) |
5282 |
(loc-dec (nth 3 found))) |
(loc-dec (nth 3 found))) |
5283 |
|
(tramp-message 10 "Using remote encoding %s" rem-enc) |
5284 |
(tramp-set-remote-encoding multi-method method user host rem-enc) |
(tramp-set-remote-encoding multi-method method user host rem-enc) |
5285 |
|
(tramp-message 10 "Using remote decoding %s" rem-dec) |
5286 |
(tramp-set-remote-decoding multi-method method user host rem-dec) |
(tramp-set-remote-decoding multi-method method user host rem-dec) |
5287 |
|
(tramp-message 10 "Using local encoding %s" loc-enc) |
5288 |
(tramp-set-local-encoding multi-method method user host loc-enc) |
(tramp-set-local-encoding multi-method method user host loc-enc) |
5289 |
|
(tramp-message 10 "Using local decoding %s" loc-dec) |
5290 |
(tramp-set-local-decoding multi-method method user host loc-dec)))) |
(tramp-set-local-decoding multi-method method user host loc-dec)))) |
5291 |
|
|
5292 |
(defun tramp-call-local-coding-command (cmd input output) |
(defun tramp-call-local-coding-command (cmd input output) |