diff options
| author | Michael Albinus | 2012-08-31 13:11:06 +0200 |
|---|---|---|
| committer | Michael Albinus | 2012-08-31 13:11:06 +0200 |
| commit | 7b2fbe3b46bf422f9fb9b21d001de58a4f904abd (patch) | |
| tree | 95c26cf7d53db70b5dff7236e893bbec9e47cf27 | |
| parent | c650a5dec69902c684c5333befd35da6c518c5e0 (diff) | |
| download | emacs-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.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..." | |||
| 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) |