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> 2012-07-10 Stefan Monnier <monnier@iro.umontreal.ca>
Reduce use of (require 'cl). Reduce use of (require 'cl).
......
...@@ -188,6 +188,7 @@ all the output from the remote command, and sends it all at once, ...@@ -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..." causing the user to wonder if anything's really going on..."
(let ((outbuf (generate-new-buffer " *eshell remote output*")) (let ((outbuf (generate-new-buffer " *eshell remote output*"))
(errbuf (generate-new-buffer " *eshell remote error*")) (errbuf (generate-new-buffer " *eshell remote error*"))
(command (or (file-remote-p command 'localname) command))
(exitcode 1)) (exitcode 1))
(unwind-protect (unwind-protect
(progn (progn
...@@ -205,8 +206,8 @@ causing the user to wonder if anything's really going on..." ...@@ -205,8 +206,8 @@ causing the user to wonder if anything's really going on..."
(defun eshell-external-command (command args) (defun eshell-external-command (command args)
"Insert output from an external COMMAND, using ARGS." "Insert output from an external COMMAND, using ARGS."
(setq args (eshell-stringify-list (eshell-flatten-list args))) (setq args (eshell-stringify-list (eshell-flatten-list args)))
(if (file-remote-p default-directory) ; (if (file-remote-p default-directory)
(eshell-remote-command command args)) ; (eshell-remote-command command args))
(let ((interp (eshell-find-interpreter command))) (let ((interp (eshell-find-interpreter command)))
(assert interp) (assert interp)
(if (functionp (car 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