[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el,v |
Date: |
Fri, 15 Aug 2008 06:55:12 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/08/15 06:55:11
Index: esh-cmd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-cmd.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- esh-cmd.el 13 Aug 2008 03:12:36 -0000 1.42
+++ esh-cmd.el 15 Aug 2008 06:55:11 -0000 1.43
@@ -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.