Index: emacs/lisp/eshell/esh-util.el
diff -c emacs/lisp/eshell/esh-util.el:1.23 emacs/lisp/eshell/esh-util.el:1.24
*** emacs/lisp/eshell/esh-util.el:1.23 Mon Aug 1 15:04:33 2005
--- emacs/lisp/eshell/esh-util.el Fri Aug 26 22:35:57 2005
***************
*** 294,300 ****
"Flatten any lists within ARGS, so that there are no sublists."
(let ((new-list (list t)))
(eshell-for a args
! (if (and (listp a)
(listp (cdr a)))
(nconc new-list (eshell-flatten-list a))
(nconc new-list (list a))))
--- 294,301 ----
"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)
(listp (cdr a)))
(nconc new-list (eshell-flatten-list a))
(nconc new-list (list a))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
