From 91ea763a41db16daf454afa118c7540d2b97c0af Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 10 Feb 2014 11:06:07 +0100 Subject: [PATCH] * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not quote `tramp-end-of-heredoc'. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp-sh.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6a2cdabc1f..06d710e209 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-10 Michael Albinus + + * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not + quote `tramp-end-of-heredoc'. + 2014-02-10 Lars Ingebrigtsen * dired.el (dired-get-marked-files): Doc fix (bug#11534). diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 8d3c4c2c58..2a792d786d 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -2713,7 +2713,7 @@ the result will be a local, non-Tramp, filename." (when (stringp program) (format "cd %s && exec %s env PS1=%s %s" (tramp-shell-quote-argument localname) - (if heredoc (format "<<'%s'" tramp-end-of-heredoc) "") + (if heredoc (format "<<%s" tramp-end-of-heredoc) "") ;; Use a human-friendly prompt, for example for `shell'. (tramp-shell-quote-argument (format "%s %s" -- 2.20.1