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

Fixes: debbugs:18782

* eshell/esh-ext.el (eshell-find-interpreter): Expand relative
remote file names.

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b93d7673f9..0882a519f86 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
         * shell.el (shell-display-buffer-actions): New user option.
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