From: Glenn Morris <rgm@gnu.org>
Date: Fri, 15 Aug 2008 06:55:11 +0000 (+0000)
Subject: (eshell-do-pipelines): Indicate the last command in a pipeline.
X-Git-Tag: emacs-pretest-23.0.90~3475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fe3fd2c6db8c97243f52aba2c10b547fdeb60a8;p=emacs.git

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

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 17ae50d1f50..82677aec8aa 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -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.