Mercurial > hg > xemacs-beta

comparison src/signal.c @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8d2a9b52c682
children cf808b4c4290
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
73 user-input when that process-filter was called. */ 73 user-input when that process-filter was called. */
74 static int waiting_for_user_input_p; 74 static int waiting_for_user_input_p;
75 75
76 static int interrupts_slowed_down; 76 static int interrupts_slowed_down;
77 77
78 #define SLOWED_DOWN_INTERRUPTS_SECS 15 78 #define SLOWED_DOWN_INTERRUPTS_SECS 5
79 #define NORMAL_QUIT_CHECK_TIMEOUT_MSECS 250 79 #define NORMAL_QUIT_CHECK_TIMEOUT_MSECS 250
80 #define NORMAL_SIGCHLD_CHECK_TIMEOUT_MSECS 250 80 #define NORMAL_SIGCHLD_CHECK_TIMEOUT_MSECS 250
81 81
82 /* Used so that signals can break out of system calls that aren't 82 /* Used so that signals can break out of system calls that aren't
83 naturally interruptible. */ 83 naturally interruptible. */
374 If quit-flag is already non-nil, it stops the job right away. */ 374 If quit-flag is already non-nil, it stops the job right away. */
375 375
376 static SIGTYPE 376 static SIGTYPE
377 interrupt_signal (int sig) 377 interrupt_signal (int sig)
378 { 378 {
379 /* This function can call lisp */ 379 /* This function can GC (?!) */
380 /* #### we should NOT be calling lisp from a signal handler, boys
381 and girls */
382 /* Must preserve main program's value of errno. */ 380 /* Must preserve main program's value of errno. */
383 int old_errno = errno; 381 int old_errno = errno;
384 382
385 EMACS_REESTABLISH_SIGNAL (sig, interrupt_signal); 383 EMACS_REESTABLISH_SIGNAL (sig, interrupt_signal);
386 384