diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-08-15 06:55:11 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-08-15 06:55:11 +0000 |
| commit | 3fe3fd2c6db8c97243f52aba2c10b547fdeb60a8 (patch) | |
| tree | 613e14219c5b5d3bd89c27b4a78bd503451fef13 /lisp/eshell/esh-cmd.el | |
| parent | 4e5a8be947d1f79c91c484bcb4317bc86b165164 (diff) | |
| download | emacs-3fe3fd2c6db8c97243f52aba2c10b547fdeb60a8.tar.gz | |
(eshell-do-pipelines): Indicate the last command in a pipeline.
Diffstat (limited to 'lisp/eshell/esh-cmd.el')
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 17ae50d1f50..82677aec8aa 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -838,7 +838,11 @@ this grossness will be made to disappear by using `call/cc'..." (setcar head (intern-soft (concat (symbol-name (car head)) "*")))))) - ,(car pipeline))))) + ;; Indicate to the command if it is the last in the pipeline. + ;; Currently only used by eshell-ls-files. + ;; Perhaps nil, rather than 'last, would be OK? + (let ((eshell-in-pipeline-p ,(if (cdr pipeline) t (quote 'last)))) + ,(car pipeline)))))) (defmacro eshell-do-pipelines-synchronously (pipeline) "Execute the commands in PIPELINE in sequence synchronously. |