# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1125095757 0
# Node ID 4cc6dbdfa5afabc592f1f438e18663b55a920a2a
# Parent  ef138cf4be94f50d0a5b86ec5c81851ff2d347fb
(eshell-flatten-list): Don't call eshell-flatten-list on a
sub-argument if it is eq to nil.

diff -r ef138cf4be94 -r 4cc6dbdfa5af lisp/eshell/esh-util.el
--- a/lisp/eshell/esh-util.el	Fri Aug 26 22:35:48 2005 +0000
+++ b/lisp/eshell/esh-util.el	Fri Aug 26 22:35:57 2005 +0000
@@ -294,7 +294,8 @@
   "Flatten any lists within ARGS, so that there are no sublists."
   (let ((new-list (list t)))
     (eshell-for a args
-      (if (and (listp a)
+      (if (and (not (eq a nil))
+	       (listp a)
 	       (listp (cdr a)))
 	  (nconc new-list (eshell-flatten-list a))
 	(nconc new-list (list a))))