From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 22 Feb 2011 05:50:25 +0000 (+0100)
Subject: * eshell/esh-ext.el (eshell-external-command): Do not restrict
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~769
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca41d1175fc9319fcf58baecf98f27fc892a73aa;p=emacs.git

* eshell/esh-ext.el (eshell-external-command): Do not restrict
remote check to "ftp".  (Bug#8089)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4b30dfa310..994846847b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-22  Seppo Sade <sepposade1@gmail.com>  (tiny change)
+
+	* eshell/esh-ext.el (eshell-external-command): Do not restrict
+	remote check to "ftp".  (Bug#8089)
+
 2011-02-21  Alan Mackenzie  <acm@muc.de>
 
 	Fix bug #7930.
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index f0b9a5eb083..7128d7e4749 100644
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -202,7 +202,7 @@ causing the user to wonder if anything's really going on..."
 (defun eshell-external-command (command args)
   "Insert output from an external COMMAND, using ARGS."
   (setq args (eshell-stringify-list (eshell-flatten-list args)))
-  (if (string-equal (file-remote-p default-directory 'method) "ftp")
+  (if (file-remote-p default-directory)
       (eshell-remote-command command args))
   (let ((interp (eshell-find-interpreter command)))
     (assert interp)