* net/tramp-sh.el (tramp-sh-handle-start-file-process): Expand `default-directory'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6469006b813d5c39aa6a7c7d27ac233e44f8570..9bfcdb631c35b2393a9b85ad497e4f60c9f51c5f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-05  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-sh-handle-start-file-process):
+       Expand `default-directory'.
+
 2014-09-05  Martin Rudalics  <rudalics@gmx.at>
 
        * scroll-bar.el (horizontal-scroll-bars-available-p): New

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 569d347353262a71af299827eb068e83b7d871f2..a01d173a783022e10625dcb581fc884aed932c2d 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2811,7 +2811,7 @@ the result will be a local, non-Tramp, file name."
 ;; 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.