* eshell/esh-ext.el (eshell-remote-command): Remove remote part of

command, just in case.  The function is not needed anymore.
(eshell-external-command): Do not call `eshell-remote-command'

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a82048617cf88ea185883b0c88615e3c1e193b31..149c75b1c753ad1c66a2f5bc2ef7faa3d117bb32 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-07-10  Michael Albinus  <michael.albinus@gmx.de>
+
+       * eshell/esh-ext.el (eshell-remote-command): Remove remote part of
+       command, just in case.  The function is not needed anymore.
+       (eshell-external-command): Do not call `eshell-remote-command'.
+
 2012-07-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        Reduce use of (require 'cl).

diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index f025c66df32a5b37ceb301fb11e950d64782218b..a411d3df06e388c5e181c9161fbc573ac7665ce4 100644 (file)
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -188,6 +188,7 @@ all the output from the remote command, and sends it all at once,
 causing the user to wonder if anything's really going on..."
   (let ((outbuf (generate-new-buffer " *eshell remote output*"))
        (errbuf (generate-new-buffer " *eshell remote error*"))
+       (command (or (file-remote-p command 'localname) command))
        (exitcode 1))
     (unwind-protect
        (progn
@@ -205,8 +206,8 @@ 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 (file-remote-p default-directory)
-      (eshell-remote-command command args))
+;  (if (file-remote-p default-directory)
+;      (eshell-remote-command command args))
   (let ((interp (eshell-find-interpreter command)))
     (assert interp)
     (if (functionp (car interp))