# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 716254262 0
# Node ID d79192bacdced98c91e318a65cdae9ebde00b9c2
# Parent  6578f07e9eb839e4b03f3fc7293c34dc021bdf4a
(Fx_track_pointer): Pass new args to read_char.
(Fx_select_region, Fx_horizontal_line): Likewise.

diff -r 6578f07e9eb8 -r d79192bacdce src/xfns.c
--- a/src/xfns.c	Fri Sep 11 23:30:25 1992 +0000
+++ b/src/xfns.c	Fri Sep 11 23:31:02 1992 +0000
@@ -3511,7 +3511,7 @@
 
  while (1)
    {
-     obj = read_char (-1);
+     obj = read_char (-1, 0, 0, Qnil, 0);
      if (XTYPE (obj) != Lisp_Cons)
        break;
 
@@ -3643,7 +3643,7 @@
 
       do
 	{
-	  obj = read_char (-1);
+	  obj = read_char (-1, 0, 0, Qnil, 0);
 	  if ((XTYPE (obj) != Lisp_Cons)
 	      || (! EQ (Fcar (Fcdr (Fcdr (obj))),
 		       Qvertical_scroll_bar))
@@ -3859,7 +3859,7 @@
       XFlush (x_current_display);
       UNBLOCK_INPUT;
 
-      obj = read_char (-1);
+      obj = read_char (-1, 0, 0, Qnil, 0);
       BLOCK_INPUT;
     }
   while (XTYPE (obj) == Lisp_Cons		   /* Mouse event */