diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2014-09-05 16:12:48 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2014-09-05 16:12:48 +0200 |
| commit | 833cea36b9eb2f7c15f05a7de4c70d693353452c (patch) | |
| tree | c1b6c93d62871f4ce3bb05dea1591ee75b558026 /lisp | |
| parent | 40ae83c7c62bc0e424d828fcac852f1ca8dc3d24 (diff) | |
| download | emacs-833cea36b9eb2f7c15f05a7de4c70d693353452c.tar.gz | |
* net/tramp-sh.el (tramp-sh-handle-start-file-process): Expand `default-directory'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 2 |
2 files changed, 6 insertions, 1 deletions
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 <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 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. |