aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2021-12-07 16:20:13 +0100
committerMichael Albinus2021-12-07 16:20:13 +0100
commit1d0a60113fd155c77ef5ea4ea44fcba3504adcbf (patch)
tree8b312387a4dc4fed6ef0a445a082fbf30fb5d7e8
parent6e50d86ca20f4057208a1a19f2a6c6c19ea3ad03 (diff)
downloademacs-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.el4
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