[Emacs-diffs] trunk r117825: * net/tramp-sh.el (tramp-sh-handle-start-file-process): Expand `default-directory'.

[Michael Albinus]

------------------------------------------------------------
revno: 117825
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2014-09-05 16:12:48 +0200
message:
  * net/tramp-sh.el (tramp-sh-handle-start-file-process): Expand 
`default-directory'.
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-09-05 10:29:34 +0000
+++ b/lisp/ChangeLog    2014-09-05 14:12:48 +0000
@@ -1,3 +1,8 @@
+2014-09-05  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-sh-handle-start-file-process):
+       Expand `default-directory'.
+
 2014-09-05  Martin Rudalics  <address@hidden>
 
        * scroll-bar.el (horizontal-scroll-bars-available-p): New

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-08-07 09:13:54 +0000
+++ b/lisp/net/tramp-sh.el      2014-09-05 14:12:48 +0000
@@ -2811,7 +2811,7 @@
 ;; connection has been setup.
 (defun tramp-sh-handle-start-file-process (name buffer program &rest args)
   "Like `start-file-process' for Tramp files."
-  (with-parsed-tramp-file-name default-directory nil
+  (with-parsed-tramp-file-name (expand-file-name default-directory) nil
     (let* (;; When PROGRAM matches "*sh", and the first arg is "-c",
           ;; it might be that the arguments exceed the command line
           ;; length.  Therefore, we modify the command.