Fix error in tramp-sh-handle-make-process

* lisp/net/tramp-sh.el (tramp-sh-handle-make-process): Don't use heredoc
script whent the argument contains a string.
This commit is contained in:
Michael Albinus 2020-10-23 16:31:56 +02:00
parent 49bc8586b7
commit 46f5d2867c

View file

@ -2850,8 +2850,10 @@ implementation will be used."
;; command.
(heredoc (and (stringp program)
(string-match-p "sh$" program)
(= (length args) 2)
(string-equal "-c" (car args))
(= (length args) 2)))
;; Don't if there is a string.
(not (string-match-p "'\\|\"" (cadr args)))))
;; When PROGRAM is nil, we just provide a tty.
(args (if (not heredoc) args
(let ((i 250))