Commit 833cea36 authored by Michael Albinus's avatar Michael Albinus
Browse files

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

parent 40ae83c7
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
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment