mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(Fread_char): Pass new args to read_char.

Browse Source
This commit is contained in:
Richard M. Stallman 1992-09-11 23:27:12 +00:00
parent c9d59fc21a
commit 974e187b41
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lread.c
View File

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