Commit 3fe3fd2c authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 4e5a8be9
......@@ -838,7 +838,11 @@ this grossness will be made to disappear by using `call/cc'..."
(setcar head
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment