mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(eshell-do-pipelines): Indicate the last command in a pipeline.

Browse source
This commit is contained in:
Glenn Morris 2008-08-15 06:55:11 +00:00
parent 4e5a8be947
commit 3fe3fd2c6d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/eshell/esh-cmd.el
View file

@ -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.