changeset 56717:f95a8f5985be

Adapt to new wait_reading_process_input args.

--- a/src/dispnew.c	Thu Aug 19 13:57:17 2004 +0000
+++ b/src/dispnew.c	Thu Aug 19 13:59:28 2004 +0000
@@ -6331,12 +6331,7 @@
   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 @@
 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 @@
   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;
 }

--- a/src/keyboard.c	Thu Aug 19 13:57:17 2004 +0000
+++ b/src/keyboard.c	Thu Aug 19 13:59:28 2004 +0000
@@ -3899,10 +3899,7 @@
 	break;
 #endif
       {
-	Lisp_Object minus_one;
-
-	XSETINT (minus_one, -1);
-	wait_reading_process_input (0, 0, minus_one, 1);
+	wait_reading_process_input (0, 0, -1, 1, Qnil, NULL, 0);
 
 	if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr)
 	  /* Pass 1 for EXPECT since we just waited to have input.  */

--- a/src/lisp.h	Thu Aug 19 13:57:17 2004 +0000
+++ b/src/lisp.h	Thu Aug 19 13:59:28 2004 +0000
@@ -2964,7 +2964,10 @@
 EXFUN (Fwaiting_for_user_input_p, 0);
 extern Lisp_Object Qprocessp;
 extern void kill_buffer_processes P_ ((Lisp_Object));
-extern int wait_reading_process_input P_ ((int, int, Lisp_Object, int));
+extern int wait_reading_process_input P_ ((int, int, int, int,
+					   Lisp_Object,
+					   struct Lisp_Process *,
+					   int));
 extern void deactivate_process P_ ((Lisp_Object));
 extern void add_keyboard_wait_descriptor P_ ((int));
 extern void delete_keyboard_wait_descriptor P_ ((int));

--- a/src/xselect.c	Thu Aug 19 13:57:17 2004 +0000
+++ b/src/xselect.c	Thu Aug 19 13:59:28 2004 +0000
@@ -1109,7 +1109,8 @@
       secs = x_selection_timeout / 1000;
       usecs = (x_selection_timeout % 1000) * 1000;
       TRACE2 ("  Waiting %d secs, %d usecs", secs, usecs);
-      wait_reading_process_input (secs, usecs, property_change_reply, 0);
+      wait_reading_process_input (secs, usecs, 0, 0,
+				  property_change_reply, NULL, 0);
 
       if (NILP (XCAR (property_change_reply)))
 	{
@@ -1288,7 +1289,8 @@
   secs = x_selection_timeout / 1000;
   usecs = (x_selection_timeout % 1000) * 1000;
   TRACE1 ("  Start waiting %d secs for SelectionNotify", secs);
-  wait_reading_process_input (secs, usecs, reading_selection_reply, 0);
+  wait_reading_process_input (secs, usecs, 0, 0,
+			      reading_selection_reply, NULL, 0);
   TRACE1 ("  Got event = %d", !NILP (XCAR (reading_selection_reply)));
 
   BLOCK_INPUT;