mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source 
command, just in case.  The function is not needed anymore.
(eshell-external-command): Do not call `eshell-remote-command'
This commit is contained in:
Michael Albinus 2012-07-10 14:16:40 +02:00
parent f58e0fd503
commit 8477cc7a0a
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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).

5
lisp/eshell/esh-ext.el
View File

@ -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))