comparison src/dispnew.c @ 17895:e6f543c1cea5

(sit_for): Delete #if 0.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 May 1997 05:58:25 +0000
parents 3dd1b4cc865b
children 86ae1679df19
comparison
equal deleted inserted replaced
17894:488536bc29c2 17895:e6f543c1cea5
2401 gobble_input (0); 2401 gobble_input (0);
2402 #endif 2402 #endif
2403 2403
2404 XSETINT (read_kbd, reading ? -1 : 1); 2404 XSETINT (read_kbd, reading ? -1 : 1);
2405 wait_reading_process_input (sec, usec, read_kbd, display); 2405 wait_reading_process_input (sec, usec, read_kbd, display);
2406
2407
2408 /* wait_reading_process_input should always be available now; it is
2409 simulated in a simple way on systems that don't support
2410 subprocesses. */
2411 #if 0
2412 /* No wait_reading_process_input available. */
2413 immediate_quit = 1;
2414 QUIT;
2415
2416 waitchannels = 1;
2417 #ifdef VMS
2418 input_wait_timeout (XINT (arg));
2419 #else /* not VMS */
2420 #ifndef HAVE_TIMEVAL
2421 timeout_sec = sec;
2422 select (1, &waitchannels, 0, 0, &timeout_sec);
2423 #else /* HAVE_TIMEVAL */
2424 timeout.tv_sec = sec;
2425 timeout.tv_usec = usec;
2426 select (1, &waitchannels, 0, 0, &timeout);
2427 #endif /* HAVE_TIMEVAL */
2428 #endif /* not VMS */
2429
2430 immediate_quit = 0;
2431 #endif
2432 2406
2433 return detect_input_pending () ? Qnil : Qt; 2407 return detect_input_pending () ? Qnil : Qt;
2434 } 2408 }
2435 2409
2436 DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0, 2410 DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0,