Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 65167:2980740e3f1c | 65168:b93526432c17 |
|---|---|
| 292 | 292 |
| 293 (defun eshell-flatten-list (args) | 293 (defun eshell-flatten-list (args) |
| 294 "Flatten any lists within ARGS, so that there are no sublists." | 294 "Flatten any lists within ARGS, so that there are no sublists." |
| 295 (let ((new-list (list t))) | 295 (let ((new-list (list t))) |
| 296 (eshell-for a args | 296 (eshell-for a args |
| 297 (if (and (not (eq a nil)) | 297 (if (and (listp a) |
| 298 (listp a) | |
| 299 (listp (cdr a))) | 298 (listp (cdr a))) |
| 300 (nconc new-list (eshell-flatten-list a)) | 299 (nconc new-list (eshell-flatten-list a)) |
| 301 (nconc new-list (list a)))) | 300 (nconc new-list (list a)))) |
| 302 (cdr new-list))) | 301 (cdr new-list))) |
| 303 | 302 |