aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2012-08-31 13:11:06 +0200
committerMichael Albinus2012-08-31 13:11:06 +0200
commit7b2fbe3b46bf422f9fb9b21d001de58a4f904abd (patch)
tree95c26cf7d53db70b5dff7236e893bbec9e47cf27
parentc650a5dec69902c684c5333befd35da6c518c5e0 (diff)
downloademacs-7b2fbe3b46bf422f9fb9b21d001de58a4f904abd.tar.gz
emacs-7b2fbe3b46bf422f9fb9b21d001de58a4f904abd.zip
* eshell/esh-ext.el: Explain, why we suppress the check in
`eshell-external-command'.
-rw-r--r--lisp/eshell/esh-ext.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index f9f9b1a558f..e48213c54d6 100644
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -207,11 +207,12 @@ causing the user to wonder if anything's really going on..."
207(defun eshell-external-command (command args) 207(defun eshell-external-command (command args)
208 "Insert output from an external COMMAND, using ARGS." 208 "Insert output from an external COMMAND, using ARGS."
209 (setq args (eshell-stringify-list (eshell-flatten-list args))) 209 (setq args (eshell-stringify-list (eshell-flatten-list args)))
210 ;; (if (file-remote-p default-directory)
211 ;; (eshell-remote-command command args))
212 (let ((interp (eshell-find-interpreter 210 (let ((interp (eshell-find-interpreter
213 command 211 command
214 ;; Do not examine remote shell scripts. 212 ;; `eshell-find-interpreter' does not work correctly
213 ;; for Tramp file name syntax. But we don't need to
214 ;; know the interpreter in that case, therefore the
215 ;; check is suppressed.
215 (or (and (stringp command) (file-remote-p command)) 216 (or (and (stringp command) (file-remote-p command))
216 (file-remote-p default-directory))))) 217 (file-remote-p default-directory)))))
217 (cl-assert interp) 218 (cl-assert interp)