aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorMichael Albinus2012-07-10 14:16:40 +0200
committerMichael Albinus2012-07-10 14:16:40 +0200
commit8477cc7a0a14ad39ee13e4045a85df1ff2cfcd67 (patch)
tree9e8e05e78f5e6be7933735ad9516a65da19a69ff /lisp/eshell
parentf58e0fd503567288bb30e243595acaa589034929 (diff)
downloademacs-8477cc7a0a14ad39ee13e4045a85df1ff2cfcd67.tar.gz
emacs-8477cc7a0a14ad39ee13e4045a85df1ff2cfcd67.zip
* 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'
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-ext.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index f025c66df32..a411d3df06e 100644
--- 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,
188causing the user to wonder if anything's really going on..." 188causing the user to wonder if anything's really going on..."
189 (let ((outbuf (generate-new-buffer " *eshell remote output*")) 189 (let ((outbuf (generate-new-buffer " *eshell remote output*"))
190 (errbuf (generate-new-buffer " *eshell remote error*")) 190 (errbuf (generate-new-buffer " *eshell remote error*"))
191 (command (or (file-remote-p command 'localname) command))
191 (exitcode 1)) 192 (exitcode 1))
192 (unwind-protect 193 (unwind-protect
193 (progn 194 (progn
@@ -205,8 +206,8 @@ causing the user to wonder if anything's really going on..."
205(defun eshell-external-command (command args) 206(defun eshell-external-command (command args)
206 "Insert output from an external COMMAND, using ARGS." 207 "Insert output from an external COMMAND, using ARGS."
207 (setq args (eshell-stringify-list (eshell-flatten-list args))) 208 (setq args (eshell-stringify-list (eshell-flatten-list args)))
208 (if (file-remote-p default-directory) 209; (if (file-remote-p default-directory)
209 (eshell-remote-command command args)) 210; (eshell-remote-command command args))
210 (let ((interp (eshell-find-interpreter command))) 211 (let ((interp (eshell-find-interpreter command)))
211 (assert interp) 212 (assert interp)
212 (if (functionp (car interp)) 213 (if (functionp (car interp))