# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1035310944 0
# Node ID 526a8d279adb707868c8c8f2a9c32b588091fb78
# Parent  739a7a89fa55a70150cbf7f77ca5f672bcadce1d
Bob Halley <halley@play-bow.org>: (eshell-set-output-handle): Fix so
that multiple redirection can work.

diff -r 739a7a89fa55 -r 526a8d279adb lisp/eshell/esh-io.el
--- a/lisp/eshell/esh-io.el	Tue Oct 22 18:21:36 2002 +0000
+++ b/lisp/eshell/esh-io.el	Tue Oct 22 18:22:24 2002 +0000
@@ -396,7 +396,7 @@
 	(if (and (listp current)
 		 (not (member where current)))
 	    (setq current (append current (list where)))
-	  (setq current where))
+	  (setq current (list where)))
 	(if (not (aref eshell-current-handles index))
 	    (aset eshell-current-handles index (cons nil 1)))
 	(setcar (aref eshell-current-handles index) current)))))