(Fx_track_pointer): Pass new args to read_char.

(Fx_select_region, Fx_horizontal_line): Likewise.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/xfns.c b/src/xfns.c
index d6db6e68747..d12f3038729 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3511,7 +3511,7 @@ DEFUN ("x-select-region", Fx_select_region, Sx_select_region, 1, 1, "e",
 
  while (1)
    {
-     obj = read_char (-1);
+     obj = read_char (-1, 0, 0, Qnil, 0);
      if (XTYPE (obj) != Lisp_Cons)
        break;
 
@@ -3643,7 +3643,7 @@ DEFUN ("x-horizontal-line", Fx_horizontal_line, Sx_horizontal_line, 1, 1, "e",
 
       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 @@ DEFUN ("x-track-pointer", Fx_track_pointer, Sx_track_pointer, 1, 1, "e",
       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 */