procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2014-09-05 16:12:48 +02:00
parent 40ae83c7c6
commit 833cea36b9
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

2
lisp/net/tramp-sh.el
View file

@ -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.