From: ueno <ueno>
Date: Sun, 14 Dec 2003 03:55:45 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-0_1_7~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e476a09b79f061436cd0a6d2c219f75c7b1500d6;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-async.el b/lisp/riece-async.el
index 0a1b371..c39ccbe 100644
--- a/lisp/riece-async.el
+++ b/lisp/riece-async.el
@@ -61,14 +61,14 @@ trap('TSTP', 'IGNORE')
 wfds_in = []
 buf = ''
 loop do
-  rfds, wfds = select([socket, $stdin], wfds_in)
-  if wfds.delete($stdout)
+  rfds, wfds, = select([socket, $stdin], wfds_in)
+  unless wfds.empty?
     begin
       until buf.empty?
         len = $stdout.syswrite(buf)
         buf.slice!(0 .. len)
       end
-      wfds_in.delete($stdout)
+      wfds_in = []
     rescue Errno::EAGAIN
     end
   end