diff options
| author | Michael Albinus | 2011-02-22 06:50:25 +0100 |
|---|---|---|
| committer | Michael Albinus | 2011-02-22 06:50:25 +0100 |
| commit | ca41d1175fc9319fcf58baecf98f27fc892a73aa (patch) | |
| tree | 669d9578ee53d14ad2ab24ef1f93d995a75939a5 | |
| parent | 9c9ba4ba2021d1f610202403416b5e071e1ae57d (diff) | |
| download | emacs-ca41d1175fc9319fcf58baecf98f27fc892a73aa.tar.gz emacs-ca41d1175fc9319fcf58baecf98f27fc892a73aa.zip | |
* eshell/esh-ext.el (eshell-external-command): Do not restrict
remote check to "ftp". (Bug#8089)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/eshell/esh-ext.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e4b30dfa310..994846847b7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-02-22 Seppo Sade <sepposade1@gmail.com> (tiny change) | ||
| 2 | |||
| 3 | * eshell/esh-ext.el (eshell-external-command): Do not restrict | ||
| 4 | remote check to "ftp". (Bug#8089) | ||
| 5 | |||
| 1 | 2011-02-21 Alan Mackenzie <acm@muc.de> | 6 | 2011-02-21 Alan Mackenzie <acm@muc.de> |
| 2 | 7 | ||
| 3 | Fix bug #7930. | 8 | Fix bug #7930. |
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index f0b9a5eb083..7128d7e4749 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el | |||
| @@ -202,7 +202,7 @@ causing the user to wonder if anything's really going on..." | |||
| 202 | (defun eshell-external-command (command args) | 202 | (defun eshell-external-command (command args) |
| 203 | "Insert output from an external COMMAND, using ARGS." | 203 | "Insert output from an external COMMAND, using ARGS." |
| 204 | (setq args (eshell-stringify-list (eshell-flatten-list args))) | 204 | (setq args (eshell-stringify-list (eshell-flatten-list args))) |
| 205 | (if (string-equal (file-remote-p default-directory 'method) "ftp") | 205 | (if (file-remote-p default-directory) |
| 206 | (eshell-remote-command command args)) | 206 | (eshell-remote-command command args)) |
| 207 | (let ((interp (eshell-find-interpreter command))) | 207 | (let ((interp (eshell-find-interpreter command))) |
| 208 | (assert interp) | 208 | (assert interp) |