changeset 1092:c2259db856ee

(Fread_char): Pass new args to read_char.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Sep 1992 23:27:12 +0000
parents 3302f6e93ce5
children 64d7858e7b48
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Fri Sep 11 09:04:24 1992 +0000
+++ b/src/lread.c	Fri Sep 11 23:27:12 1992 +0000
@@ -170,7 +170,7 @@
   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 @@
 {
   register Lisp_Object val;
 
-  val = read_char (0);
+  val = read_char (0, 0, 0, Qnil, 0);
   return val;
 }
 
@@ -203,7 +203,7 @@
 #ifndef standalone
   do
     {
-      val = read_char (0);
+      val = read_char (0, 0, 0, Qnil, 0);
     }
   while (XTYPE (val) != Lisp_Int);
 #else