Mercurial > emacs
diff lisp/eshell/esh-cmd.el @ 97483:3c44de892298
(eshell-do-pipelines): Indicate the last command in a pipeline.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 15 Aug 2008 06:55:11 +0000 |
parents | 5be4c494e1d5 |
children | f79ec7c34dc5 |
line wrap: on
line diff
--- a/lisp/eshell/esh-cmd.el Fri Aug 15 00:48:55 2008 +0000 +++ b/lisp/eshell/esh-cmd.el Fri Aug 15 06:55:11 2008 +0000 @@ -838,7 +838,11 @@ (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.