- return;
-
- timeout.tv_sec = 0;
- timeout.tv_usec = 500000;
- FD_ZERO(&readset);
- FD_SET(fileno(rl_instream), &readset);
-
- if(rl_point > 1) {
- tmp = rl_point;
- rl_point = find_matching_paren(k);
- if(rl_point > -1) {
- rl_redisplay();
- // scm_internal_select(1, &readset, NULL, NULL, &timeout);
+ return 0;
+
+ tmp = 500000;
+ timeout.tv_sec = tmp / 1000000;
+ timeout.tv_usec = tmp % 1000000;
+ FD_ZERO (&readset);
+ fno = fileno (rl_instream);
+ FD_SET (fno, &readset);
+
+ if (rl_point > 1)
+ {
+ tmp = rl_point;
+ rl_point = find_matching_paren (k);
+ if (rl_point > -1)
+ {
+ rl_redisplay ();
+ scm_std_select (fno + 1, &readset, NULL, NULL, &timeout);
+ }
+ rl_point = tmp;