From 833cea36b9eb2f7c15f05a7de4c70d693353452c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 5 Sep 2014 16:12:48 +0200 Subject: [PATCH] * net/tramp-sh.el (tramp-sh-handle-start-file-process): Expand `default-directory'. --- 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 c6469006b81..9bfcdb631c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-09-05 Michael Albinus + + * net/tramp-sh.el (tramp-sh-handle-start-file-process): + Expand `default-directory'. + 2014-09-05 Martin Rudalics * scroll-bar.el (horizontal-scroll-bars-available-p): New diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 569d3473532..a01d173a783 100644 --- 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. -- 2.11.4.GIT