* net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not

quote `tramp-end-of-heredoc'.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a2cdabc1f1..06d710e2094 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-10  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not
+        quote `tramp-end-of-heredoc'.
+
 2014-02-10  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * 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 8d3c4c2c58b..2a792d786df 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"