diff options
| author | Jim Porter <jporterbugs@gmail.com> | 2022-07-09 16:26:55 -0700 |
|---|---|---|
| committer | Jim Porter <jporterbugs@gmail.com> | 2022-09-04 15:15:01 -0700 |
| commit | ab7e94fb1d9b794c9d199435d72f569fba6ab017 (patch) | |
| tree | bdb8f5d264c9377c519ccc61009a4d9ab9551be0 /lisp/eshell/esh-cmd.el | |
| parent | 3d6c013a27e0b72c8fbe2d47f752dd0dfd4ff47a (diff) | |
| download | emacs-ab7e94fb1d9b794c9d199435d72f569fba6ab017.tar.gz emacs-ab7e94fb1d9b794c9d199435d72f569fba6ab017.tar.bz2 emacs-ab7e94fb1d9b794c9d199435d72f569fba6ab017.zip | |
Add support for more kinds of redirect operators in Eshell
* lisp/eshell/esh-arg.el: Require cl-lib.
(eshell-finish-arg): Allow passing multiple ARGUMENTS.
(eshell-quote-argument): Handle the case when 'eshell-finish-arg' was
passed multiple arguments.
* lisp/eshell/esh-cmd.el (eshell-do-pipelines)
(eshell-do-pipelines-synchronously): Only set stdout output handle.
* lisp/eshell/esh-io.el (eshell-redirection-operators-alist): New
constant.
(eshell-io-initialize): Prefer sharp quotes for functions.
(eshell-parse-redirection, eshell-strip-redirections): Add support for
more redirection forms.
(eshell-copy-output-handle, eshell-set-all-output-handles): New
functions.
* test/lisp/eshell/esh-io-tests.el
(esh-io-test/redirect-all/overwrite, esh-io-test/redirect-all/append)
(esh-io-test/redirect-all/insert, esh-io-test/redirect-copy)
(esh-io-test/redirect-copy-first, esh-io-test/redirect-pipe): New
tests.
* doc/misc/eshell.texi (Redirection): Document new redirection syntax.
(Pipelines): Document '|&' syntax.
(Bugs and ideas): Update item about redirection syntax.
* etc/NEWS: Announce this change.
Diffstat (limited to 'lisp/eshell/esh-cmd.el')
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index a43ad77213d..413336e3eb5 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -810,8 +810,6 @@ This macro calls itself recursively, with NOTFIRST non-nil." `(let ((nextproc (eshell-do-pipelines (quote ,(cdr pipeline)) t))) (eshell-set-output-handle ,eshell-output-handle - 'append nextproc) - (eshell-set-output-handle ,eshell-error-handle 'append nextproc))) ,(let ((head (car pipeline))) (if (memq (car head) '(let progn)) @@ -842,8 +840,6 @@ This is used on systems where async subprocesses are not supported." ,(when (cdr pipeline) `(let ((output-marker ,(point-marker))) (eshell-set-output-handle ,eshell-output-handle - 'append output-marker) - (eshell-set-output-handle ,eshell-error-handle 'append output-marker))) ,(let ((head (car pipeline))) (if (memq (car head) '(let progn)) |