From: John Wiegley <johnw@newartisans.com>
Date: Tue, 22 Oct 2002 18:22:24 +0000 (+0000)
Subject: Bob Halley <halley@play-bow.org>: (eshell-set-output-handle): Fix so
X-Git-Tag: ttn-vms-21-2-B4~12751
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c762cee38dfa162d5de5e78e1c7d4880ccec057;p=emacs.git

Bob Halley <halley@play-bow.org>: (eshell-set-output-handle): Fix so
that multiple redirection can work.
---

diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index d458bad0665..fad9df29bbc 100644
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -396,7 +396,7 @@ it defaults to `insert'."
 	(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)))))