Mercurial > emacs

changeset 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 a8900d9693c5
children ed4b73533ff6
files lisp/eshell/esh-cmd.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
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.