Commit 974e187b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fread_char): Pass new args to read_char.

parent c9d59fc2
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment