-static void
-match_paren2 (int x, int k)
-{
- int tmp;
- fd_set readset;
- struct timeval timeout;
-
- rl_insert (x, k);
-
- /* Did we just insert a quoted paren? If so, then don't bounce. */
- if (rl_point - 1 >= 1
- && rl_line_buffer[rl_point - 2] == '\\')
- 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);
- }
- //rl_point = tmp;
- }
-}
-