diff options
| author | John Wiegley | 2002-10-22 18:22:24 +0000 |
|---|---|---|
| committer | John Wiegley | 2002-10-22 18:22:24 +0000 |
| commit | 2c762cee38dfa162d5de5e78e1c7d4880ccec057 (patch) | |
| tree | e0199bc9433ee805b424a64a5e5ce50d2bdc0075 | |
| parent | 44f4a515d0826828a86c99d2b579bb79fcc3610c (diff) | |
| download | emacs-2c762cee38dfa162d5de5e78e1c7d4880ccec057.tar.gz emacs-2c762cee38dfa162d5de5e78e1c7d4880ccec057.zip | |
Bob Halley <halley@play-bow.org>: (eshell-set-output-handle): Fix so
that multiple redirection can work.
| -rw-r--r-- | lisp/eshell/esh-io.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 396 | (if (and (listp current) | 396 | (if (and (listp current) |
| 397 | (not (member where current))) | 397 | (not (member where current))) |
| 398 | (setq current (append current (list where))) | 398 | (setq current (append current (list where))) |
| 399 | (setq current where)) | 399 | (setq current (list where))) |
| 400 | (if (not (aref eshell-current-handles index)) | 400 | (if (not (aref eshell-current-handles index)) |
| 401 | (aset eshell-current-handles index (cons nil 1))) | 401 | (aset eshell-current-handles index (cons nil 1))) |
| 402 | (setcar (aref eshell-current-handles index) current))))) | 402 | (setcar (aref eshell-current-handles index) current))))) |