Mercurial > hg > xemacs-beta

comparison src/signal.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
341 /* Never return zero if there was a timer outstanding. */ 341 /* Never return zero if there was a timer outstanding. */
342 return old_it.it_value.tv_sec + (old_it.it_value.tv_usec > 0 ? 1 : 0); 342 return old_it.it_value.tv_sec + (old_it.it_value.tv_usec > 0 ? 1 : 0);
343 } 343 }
344 #endif 344 #endif
345 345
346 DEFUN ("waiting-for-user-input-p", Fwaiting_for_user_input_p, 346 DEFUN ("waiting-for-user-input-p", Fwaiting_for_user_input_p, 0, 0, 0, /*
347 Swaiting_for_user_input_p,
348 0, 0, 0 /*
349 Return non-nil if XEmacs is waiting for input from the user. 347 Return non-nil if XEmacs is waiting for input from the user.
350 This is intended for use by asynchronous timeout callbacks and by 348 This is intended for use by asynchronous timeout callbacks and by
351 asynchronous process output filters and sentinels (not yet implemented 349 asynchronous process output filters and sentinels (not yet implemented
352 in XEmacs). It will always be nil if XEmacs is not inside of 350 in XEmacs). It will always be nil if XEmacs is not inside of
353 an asynchronout timeout or process callback. 351 an asynchronout timeout or process callback.
354 */ ) 352 */
355 () 353 ())
356 { 354 {
357 return ((waiting_for_user_input_p) ? Qt : Qnil); 355 return ((waiting_for_user_input_p) ? Qt : Qnil);
358 } 356 }
359 357
360 358
738 } 736 }
739 737
740 void 738 void
741 syms_of_signal (void) 739 syms_of_signal (void)
742 { 740 {
743 defsubr (&Swaiting_for_user_input_p); 741 DEFSUBR (Fwaiting_for_user_input_p);
744 } 742 }
745 743
746 void 744 void
747 init_interrupts_late (void) 745 init_interrupts_late (void)
748 { 746 {