/[emacs]/emacs/src/dispnew.c
ViewVC logotype

Diff of /emacs/src/dispnew.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.333 by kfstorm, Wed Jul 21 21:08:23 2004 UTC revision 1.334 by kfstorm, Thu Aug 19 13:59:28 2004 UTC
# Line 6331  Emacs was built without floating point s Line 6331  Emacs was built without floating point s
6331    if (sec < 0 || (sec == 0 && usec == 0))    if (sec < 0 || (sec == 0 && usec == 0))
6332      return Qnil;      return Qnil;
6333    
6334    {    wait_reading_process_input (sec, usec, 0, 0, Qnil, NULL, 0);
     Lisp_Object zero;  
   
     XSETFASTINT (zero, 0);  
     wait_reading_process_input (sec, usec, zero, 0);  
   }  
6335    
6336    /* We should always have wait_reading_process_input; we have a dummy    /* We should always have wait_reading_process_input; we have a dummy
6337       implementation for systems which don't support subprocesses.  */       implementation for systems which don't support subprocesses.  */
# Line 6386  Lisp_Object Line 6381  Lisp_Object
6381  sit_for (sec, usec, reading, display, initial_display)  sit_for (sec, usec, reading, display, initial_display)
6382       int sec, usec, reading, display, initial_display;       int sec, usec, reading, display, initial_display;
6383  {  {
   Lisp_Object read_kbd;  
   
6384    swallow_events (display);    swallow_events (display);
6385    
6386    if (detect_input_pending_run_timers (display) || !NILP (Vexecuting_macro))    if (detect_input_pending_run_timers (display) || !NILP (Vexecuting_macro))
# Line 6403  sit_for (sec, usec, reading, display, in Line 6396  sit_for (sec, usec, reading, display, in
6396    gobble_input (0);    gobble_input (0);
6397  #endif  #endif
6398    
6399    XSETINT (read_kbd, reading ? -1 : 1);    wait_reading_process_input (sec, usec, reading ? -1 : 1, display,
6400    wait_reading_process_input (sec, usec, read_kbd, display);                                Qnil, NULL, 0);
6401    
6402    return detect_input_pending () ? Qnil : Qt;    return detect_input_pending () ? Qnil : Qt;
6403  }  }

Legend:
Removed from v.1.333  
changed lines
  Added in v.1.334

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26