From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 24 Dec 2014 08:52:18 +0000 (+0100)
Subject: eshell/esh-ext.el: Expand relative remote file names.
X-Git-Tag: emacs-25.0.90~2634^2~19^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=882370eaa4f7ad6a88396dfdc64f896c727f87f4;p=emacs.git

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

Fixes: debbugs:18782

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

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