diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2012-08-31 13:11:06 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2012-08-31 13:11:06 +0200 |
| commit | 7b2fbe3b46bf422f9fb9b21d001de58a4f904abd (patch) | |
| tree | 95c26cf7d53db70b5dff7236e893bbec9e47cf27 /lisp/eshell/esh-ext.el | |
| parent | c650a5dec69902c684c5333befd35da6c518c5e0 (diff) | |
| download | emacs-7b2fbe3b46bf422f9fb9b21d001de58a4f904abd.tar.gz emacs-7b2fbe3b46bf422f9fb9b21d001de58a4f904abd.tar.bz2 emacs-7b2fbe3b46bf422f9fb9b21d001de58a4f904abd.zip | |
* eshell/esh-ext.el: Explain, why we suppress the check in
`eshell-external-command'.
Diffstat (limited to 'lisp/eshell/esh-ext.el')
| -rw-r--r-- | lisp/eshell/esh-ext.el | 7 |
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..." (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)) (let ((interp (eshell-find-interpreter command - ;; Do not examine remote shell scripts. + ;; `eshell-find-interpreter' does not work correctly + ;; for Tramp file name syntax. But we don't need to + ;; know the interpreter in that case, therefore the + ;; check is suppressed. (or (and (stringp command) (file-remote-p command)) (file-remote-p default-directory))))) (cl-assert interp) |