Mercurial > emacs
diff lisp/eshell/esh-util.el @ 65168:b93526432c17
*** empty log message ***
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Fri, 26 Aug 2005 22:51:28 +0000 |
parents | 4cc6dbdfa5af |
children | 067115a6e738 |
line wrap: on
line diff
--- a/lisp/eshell/esh-util.el Fri Aug 26 22:51:03 2005 +0000 +++ b/lisp/eshell/esh-util.el Fri Aug 26 22:51:28 2005 +0000 @@ -294,8 +294,7 @@ "Flatten any lists within ARGS, so that there are no sublists." (let ((new-list (list t))) (eshell-for a args - (if (and (not (eq a nil)) - (listp a) + (if (and (listp a) (listp (cdr a))) (nconc new-list (eshell-flatten-list a)) (nconc new-list (list a))))