diff options
| author | Michael Albinus | 2021-12-07 16:20:13 +0100 |
|---|---|---|
| committer | Michael Albinus | 2021-12-07 16:20:13 +0100 |
| commit | 1d0a60113fd155c77ef5ea4ea44fcba3504adcbf (patch) | |
| tree | 8b312387a4dc4fed6ef0a445a082fbf30fb5d7e8 | |
| parent | 6e50d86ca20f4057208a1a19f2a6c6c19ea3ad03 (diff) | |
| download | emacs-1d0a60113fd155c77ef5ea4ea44fcba3504adcbf.tar.gz emacs-1d0a60113fd155c77ef5ea4ea44fcba3504adcbf.zip | |
Make a more robust check in Tramp using scripts
* lisp/net/tramp-sh.el (tramp-find-inline-encoding):
Check, whether scripts in `tramp-remote-coding-commands' are
expandable.
| -rw-r--r-- | lisp/net/tramp-sh.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index c2a02312474..72eb63d3929 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -4597,6 +4597,8 @@ Goes through the list `tramp-local-coding-commands' and | |||
| 4597 | (value (symbol-value rem-enc))) | 4597 | (value (symbol-value rem-enc))) |
| 4598 | (while (string-match "-" name) | 4598 | (while (string-match "-" name) |
| 4599 | (setq name (replace-match "_" nil t name))) | 4599 | (setq name (replace-match "_" nil t name))) |
| 4600 | (unless (tramp-expand-script vec value) | ||
| 4601 | (throw 'wont-work-remote nil)) | ||
| 4600 | (tramp-maybe-send-script vec value name) | 4602 | (tramp-maybe-send-script vec value name) |
| 4601 | (setq rem-enc name))) | 4603 | (setq rem-enc name))) |
| 4602 | (tramp-message | 4604 | (tramp-message |
| @@ -4614,6 +4616,8 @@ Goes through the list `tramp-local-coding-commands' and | |||
| 4614 | (value (symbol-value rem-dec))) | 4616 | (value (symbol-value rem-dec))) |
| 4615 | (while (string-match "-" name) | 4617 | (while (string-match "-" name) |
| 4616 | (setq name (replace-match "_" nil t name))) | 4618 | (setq name (replace-match "_" nil t name))) |
| 4619 | (unless (tramp-expand-script vec value) | ||
| 4620 | (throw 'wont-work-remote nil)) | ||
| 4617 | (tramp-maybe-send-script vec value name) | 4621 | (tramp-maybe-send-script vec value name) |
| 4618 | (setq rem-dec name))) | 4622 | (setq rem-dec name))) |
| 4619 | (tramp-message | 4623 | (tramp-message |