diff options
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 04d65df4f33..14139896dd4 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -764,8 +764,7 @@ This macro calls itself recursively, with NOTFIRST non-nil." | |||
| 764 | (eshell-set-output-handle ,eshell-output-handle | 764 | (eshell-set-output-handle ,eshell-output-handle |
| 765 | 'append nextproc) | 765 | 'append nextproc) |
| 766 | (eshell-set-output-handle ,eshell-error-handle | 766 | (eshell-set-output-handle ,eshell-error-handle |
| 767 | 'append nextproc) | 767 | 'append nextproc))) |
| 768 | (setq tailproc (or tailproc nextproc)))) | ||
| 769 | ,(let ((head (car pipeline))) | 768 | ,(let ((head (car pipeline))) |
| 770 | (if (memq (car head) '(let progn)) | 769 | (if (memq (car head) '(let progn)) |
| 771 | (setq head (car (last head)))) | 770 | (setq head (car (last head)))) |
| @@ -781,7 +780,9 @@ This macro calls itself recursively, with NOTFIRST non-nil." | |||
| 781 | ,(cond ((not notfirst) (quote 'first)) | 780 | ,(cond ((not notfirst) (quote 'first)) |
| 782 | ((cdr pipeline) t) | 781 | ((cdr pipeline) t) |
| 783 | (t (quote 'last))))) | 782 | (t (quote 'last))))) |
| 784 | ,(car pipeline)))))) | 783 | (let ((proc ,(car pipeline))) |
| 784 | (setq tailproc (or tailproc proc)) | ||
| 785 | proc)))))) | ||
| 785 | 786 | ||
| 786 | (defmacro eshell-do-pipelines-synchronously (pipeline) | 787 | (defmacro eshell-do-pipelines-synchronously (pipeline) |
| 787 | "Execute the commands in PIPELINE in sequence synchronously. | 788 | "Execute the commands in PIPELINE in sequence synchronously. |