Mercurial > emacs

comparison lisp/eshell/esh-cmd.el @ 97483:3c44de892298

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
97482:a8900d9693c5 97483:3c44de892298
836 (when (memq (car head) eshell-deferrable-commands) 836 (when (memq (car head) eshell-deferrable-commands)
837 (ignore 837 (ignore
838 (setcar head 838 (setcar head
839 (intern-soft 839 (intern-soft
840 (concat (symbol-name (car head)) "*")))))) 840 (concat (symbol-name (car head)) "*"))))))
841 ,(car pipeline))))) 841 ;; Indicate to the command if it is the last in the pipeline.
842 ;; Currently only used by eshell-ls-files.
843 ;; Perhaps nil, rather than 'last, would be OK?
844 (let ((eshell-in-pipeline-p ,(if (cdr pipeline) t (quote 'last))))
845 ,(car pipeline))))))
842 846
843 (defmacro eshell-do-pipelines-synchronously (pipeline) 847 (defmacro eshell-do-pipelines-synchronously (pipeline)
844 "Execute the commands in PIPELINE in sequence synchronously. 848 "Execute the commands in PIPELINE in sequence synchronously.
845 Output of each command is passed as input to the next one in the pipeline. 849 Output of each command is passed as input to the next one in the pipeline.
846 This is used on systems where `start-process' is not supported." 850 This is used on systems where `start-process' is not supported."