diff options
| author | John Wiegley <johnw@newartisans.com> | 2005-08-26 22:39:49 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2005-08-26 22:39:49 +0000 |
| commit | 35595517d23d675a509e843f988544930c2725c4 (patch) | |
| tree | 05575ab91e5aa774e5c637774a3ed7cb4c37ae7b /lisp/eshell/esh-util.el | |
| parent | b5306f79040c1e5cf9e98ce24eaefa5621b5b0ff (diff) | |
| download | emacs-35595517d23d675a509e843f988544930c2725c4.tar.gz | |
(eshell-flatten-list): Don't call eshell-flatten-list on a
sub-argument if it is eq to nil.
Diffstat (limited to 'lisp/eshell/esh-util.el')
| -rw-r--r-- | lisp/eshell/esh-util.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index c05f6abb23b..70179097d87 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -294,7 +294,8 @@ If N or M is nil, it means the end of the list." "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)))) |