[Emacs-diffs] trunk r116397: * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not

[Michael Albinus]

------------------------------------------------------------
revno: 116397
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2014-02-10 11:06:07 +0100
message:
  * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not
  quote `tramp-end-of-heredoc'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-10 07:13:14 +0000
+++ b/lisp/ChangeLog    2014-02-10 10:06:07 +0000
@@ -1,3 +1,8 @@
+2014-02-10  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-sh-handle-start-file-process): Do not
+       quote `tramp-end-of-heredoc'.
+
 2014-02-10  Lars Ingebrigtsen  <address@hidden>
 
        * dired.el (dired-get-marked-files): Doc fix (bug#11534).

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-02-08 13:35:15 +0000
+++ b/lisp/net/tramp-sh.el      2014-02-10 10:06:07 +0000
@@ -2713,7 +2713,7 @@
            (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"