[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el,v

[Glenn Morris]

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.