2397 |
EMACS_SET_SECS_USECS (timeout, time_limit, microsecs); |
EMACS_SET_SECS_USECS (timeout, time_limit, microsecs); |
2398 |
EMACS_ADD_TIME (end_time, end_time, timeout); |
EMACS_ADD_TIME (end_time, end_time, timeout); |
2399 |
} |
} |
2400 |
#ifdef hpux |
#ifdef POLL_INTERRUPTED_SYS_CALL |
2401 |
/* AlainF 5-Jul-1996 |
/* AlainF 5-Jul-1996 |
2402 |
HP-UX 10.10 seem to have problems with signals coming in |
HP-UX 10.10 seem to have problems with signals coming in |
2403 |
Causes "poll: interrupted system call" messages when Emacs is run |
Causes "poll: interrupted system call" messages when Emacs is run |
2404 |
in an X window |
in an X window |
2405 |
Turn off periodic alarms (in case they are in use) */ |
Turn off periodic alarms (in case they are in use) */ |
2406 |
|
stop_polling (); |
2407 |
turn_on_atimers (0); |
turn_on_atimers (0); |
2408 |
#endif |
#endif /* POLL_INTERRUPTED_SYS_CALL */ |
2409 |
|
|
2410 |
while (1) |
while (1) |
2411 |
{ |
{ |
2852 |
clear_input_pending (); |
clear_input_pending (); |
2853 |
QUIT; |
QUIT; |
2854 |
} |
} |
2855 |
#ifdef hpux |
#ifdef POLL_INTERRUPTED_SYS_CALL |
2856 |
/* AlainF 5-Jul-1996 |
/* AlainF 5-Jul-1996 |
2857 |
HP-UX 10.10 seems to have problems with signals coming in |
HP-UX 10.10 seems to have problems with signals coming in |
2858 |
Causes "poll: interrupted system call" messages when Emacs is run |
Causes "poll: interrupted system call" messages when Emacs is run |
2859 |
in an X window |
in an X window |
2860 |
Turn periodic alarms back on */ |
Turn periodic alarms back on */ |
2861 |
start_polling (); |
start_polling (); |
2862 |
#endif |
#endif /* POLL_INTERRUPTED_SYS_CALL */ |
2863 |
|
|
2864 |
return got_some_input; |
return got_some_input; |
2865 |
} |
} |