Commit 882370ea authored by Michael Albinus's avatar Michael Albinus
Browse files

eshell/esh-ext.el: Expand relative remote file names.

Fixes: debbugs:18782

* eshell/esh-ext.el (eshell-find-interpreter): Expand relative
remote file names.
parent 9db3cded
2014-12-24 Michael Albinus <michael.albinus@gmx.de>
* eshell/esh-ext.el (eshell-find-interpreter): Expand relative
remote file names. (Bug#18782)
2014-12-23 Sam Steingold <sds@gnu.org> 2014-12-23 Sam Steingold <sds@gnu.org>
* shell.el (shell-display-buffer-actions): New user option. * shell.el (shell-display-buffer-actions): New user option.
......
...@@ -296,6 +296,11 @@ line of the form #!<interp>." ...@@ -296,6 +296,11 @@ line of the form #!<interp>."
(let ((fullname (if (file-name-directory file) file (let ((fullname (if (file-name-directory file) file
(eshell-search-path file))) (eshell-search-path file)))
(suffixes eshell-binary-suffixes)) (suffixes eshell-binary-suffixes))
(if (and fullname
(not (file-remote-p fullname))
(file-remote-p default-directory))
(setq fullname (expand-file-name
(concat "./" fullname) default-directory)))
(if (and fullname (not (or eshell-force-execution (if (and fullname (not (or eshell-force-execution
(file-executable-p fullname)))) (file-executable-p fullname))))
(while suffixes (while suffixes
......
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