[Emacs-diffs] /srv/bzr/emacs/trunk r108999: * eshell/esh-ext.el (eshell-remote-command): Remove remote part of

[Michael Albinus]

------------------------------------------------------------
revno: 108999
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Tue 2012-07-10 14:16:40 +0200
message:
  * 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'
modified:
  lisp/ChangeLog
  lisp/eshell/esh-ext.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-10 11:51:54 +0000
+++ b/lisp/ChangeLog    2012-07-10 12:16:40 +0000
@@ -1,3 +1,9 @@
+2012-07-10  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        Reduce use of (require 'cl).

=== modified file 'lisp/eshell/esh-ext.el'
--- a/lisp/eshell/esh-ext.el    2012-02-04 09:57:09 +0000
+++ b/lisp/eshell/esh-ext.el    2012-07-10 12:16:40 +0000
@@ -188,6 +188,7 @@
 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 @@
 (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))