# HG changeset patch
# User Andrew Choi <akochoi@shaw.ca>
# Date 1020519116 0
# Node ID cb1679526984bc802a3c1ff9ca292a9c1a37303c
# Parent  5935deeffab628d6fba20e8c70d3320736c2e5f4
2002-05-04  Andrew Choi  <akochoi@shaw.ca>

        * macterm.c (XTread_socket): Call WaitNextEvent once instead of
        repeatedly.

diff -r 5935deeffab6 -r cb1679526984 src/ChangeLog
--- a/src/ChangeLog	Sat May 04 13:28:22 2002 +0000
+++ b/src/ChangeLog	Sat May 04 13:31:56 2002 +0000
@@ -1,3 +1,8 @@
+2002-05-04  Andrew Choi  <akochoi@shaw.ca>
+
+	* macterm.c (XTread_socket): Call WaitNextEvent once instead of
+	repeatedly.
+
 2002-05-03  Jason Rumney  <jasonr@gnu.org>
 
 	* process.c (Fmake_network_process): Only support server sockets
diff -r 5935deeffab6 -r cb1679526984 src/macterm.c
--- a/src/macterm.c	Sat May 04 13:28:22 2002 +0000
+++ b/src/macterm.c	Sat May 04 13:31:56 2002 +0000
@@ -12301,7 +12301,7 @@
   if (NILP (Fboundp (Qmac_ready_for_drag_n_drop)))
     event_mask -= highLevelEventMask;
 
-  while (WaitNextEvent (event_mask, &er, 0L, NULL) && numchars > 0)
+  if (WaitNextEvent (event_mask, &er, (expected ? app_sleep_time : 0L), NULL))
     switch (er.what)
       {
       case mouseDown:
@@ -12339,8 +12339,6 @@
               mouse_tracking_in_progress = mouse_tracking_none;
               tracked_scroll_bar = NULL;
               count++;
-	      bufp++;
-	      numchars--;
               break;
             }
 
@@ -12356,8 +12354,6 @@
                 bufp->kind = menu_bar_activate_event;
                 XSETFRAME (bufp->frame_or_window, f);
                 count++;
-		bufp++;
-		numchars--;
               }
 	      break;
 
@@ -12437,8 +12433,6 @@
 		    }
 								
 	          count++;
-		  bufp++;
-		  numchars--;
 	        }
 	      break;
 
@@ -12462,8 +12456,6 @@
 	          XSETFRAME (bufp->frame_or_window,
 			     ((mac_output *) GetWRefCon (window_ptr))->mFP);
  	          count++;
-		  bufp++;
-		  numchars--;
 	        }
 	      break;
 
@@ -12603,8 +12595,6 @@
 	bufp->timestamp = er.when * (1000 / 60);  /* ticks to milliseconds */
 
 	count++;
-	bufp++;
-	numchars--;
 	break;
 
       case kHighLevelEvent:
@@ -12655,8 +12645,6 @@
 #endif /* not TARGET_API_MAC_CARBON */
             
             count++;
-	    bufp++;
-	    numchars--;
           }
         
       default: