(Fread_char): Pass new args to read_char.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/lread.c b/src/lread.c
index 60e060644b3..e3459f8a6ea 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -170,7 +170,7 @@ or `read-char-exclusive' instead.")
   register Lisp_Object val;
 
 #ifndef standalone
-  val = read_char (0);
+  val = read_char (0, 0, 0, Qnil, 0);
   if (XTYPE (val) != Lisp_Int)
     {
       unread_command_char = val;
@@ -189,7 +189,7 @@ DEFUN ("read-event", Fread_event, Sread_event, 0, 0, 0,
 {
   register Lisp_Object val;
 
-  val = read_char (0);
+  val = read_char (0, 0, 0, Qnil, 0);
   return val;
 }
 
@@ -203,7 +203,7 @@ It is returned as a number.  Non character events are ignored.")
 #ifndef standalone
   do
     {
-      val = read_char (0);
+      val = read_char (0, 0, 0, Qnil, 0);
     }
   while (XTYPE (val) != Lisp_Int);
 #else