Commit 8477cc7a authored by Michael Albinus's avatar Michael Albinus

* 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'
parent f58e0fd5
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).
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment