diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2014-12-24 09:52:18 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2014-12-24 09:52:18 +0100 |
| commit | 882370eaa4f7ad6a88396dfdc64f896c727f87f4 (patch) | |
| tree | aaf2d07686c7acad927daa660dfd18c33c793428 /lisp/eshell/esh-ext.el | |
| parent | 9db3cdedae422ad8fe9012e16ac3510be15eb77c (diff) | |
| download | emacs-882370eaa4f7ad6a88396dfdc64f896c727f87f4.tar.gz | |
eshell/esh-ext.el: Expand relative remote file names.
Fixes: debbugs:18782
* eshell/esh-ext.el (eshell-find-interpreter): Expand relative
remote file names.
Diffstat (limited to 'lisp/eshell/esh-ext.el')
| -rw-r--r-- | lisp/eshell/esh-ext.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 2654bf21e6a..d7fea47601c 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el @@ -296,6 +296,11 @@ line of the form #!<interp>." (let ((fullname (if (file-name-directory file) file (eshell-search-path file))) (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 (file-executable-p fullname)))) (while suffixes |