diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-08-19 13:59:28 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-08-19 13:59:28 +0000 |
| commit | bb41f093dde33efca8a7d5baf6eb1c364ea684c4 (patch) | |
| tree | 0db113834c43767ef2f213cbf6e5081b131aa054 /src/dispnew.c | |
| parent | b89a415ab18b6ed14f70518d8bd336d1f3364c9c (diff) | |
| download | emacs-bb41f093dde33efca8a7d5baf6eb1c364ea684c4.tar.gz emacs-bb41f093dde33efca8a7d5baf6eb1c364ea684c4.tar.bz2 emacs-bb41f093dde33efca8a7d5baf6eb1c364ea684c4.zip | |
Adapt to new wait_reading_process_input args.
Diffstat (limited to 'src/dispnew.c')
| -rw-r--r-- | src/dispnew.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 8a713857273..0d2ce118e0f 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -6331,12 +6331,7 @@ Emacs was built without floating point support. if (sec < 0 || (sec == 0 && usec == 0)) return Qnil; - { - Lisp_Object zero; - - XSETFASTINT (zero, 0); - wait_reading_process_input (sec, usec, zero, 0); - } + wait_reading_process_input (sec, usec, 0, 0, Qnil, NULL, 0); /* We should always have wait_reading_process_input; we have a dummy implementation for systems which don't support subprocesses. */ @@ -6386,8 +6381,6 @@ Lisp_Object sit_for (sec, usec, reading, display, initial_display) int sec, usec, reading, display, initial_display; { - Lisp_Object read_kbd; - swallow_events (display); if (detect_input_pending_run_timers (display) || !NILP (Vexecuting_macro)) @@ -6403,8 +6396,8 @@ sit_for (sec, usec, reading, display, initial_display) gobble_input (0); #endif - XSETINT (read_kbd, reading ? -1 : 1); - wait_reading_process_input (sec, usec, read_kbd, display); + wait_reading_process_input (sec, usec, reading ? -1 : 1, display, + Qnil, NULL, 0); return detect_input_pending () ? Qnil : Qt; } |