Mercurial > emacs
comparison src/lread.c @ 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 | bf78b5ea9b3a |
| children | 5d0837ebee9c |
comparison
equal
deleted
inserted
replaced
| 1091:3302f6e93ce5 | 1092:c2259db856ee |
|---|---|
| 168 () | 168 () |
| 169 { | 169 { |
| 170 register Lisp_Object val; | 170 register Lisp_Object val; |
| 171 | 171 |
| 172 #ifndef standalone | 172 #ifndef standalone |
| 173 val = read_char (0); | 173 val = read_char (0, 0, 0, Qnil, 0); |
| 174 if (XTYPE (val) != Lisp_Int) | 174 if (XTYPE (val) != Lisp_Int) |
| 175 { | 175 { |
| 176 unread_command_char = val; | 176 unread_command_char = val; |
| 177 error ("Object read was not a character"); | 177 error ("Object read was not a character"); |
| 178 } | 178 } |
| 187 "Read an event object from the input stream.") | 187 "Read an event object from the input stream.") |
| 188 () | 188 () |
| 189 { | 189 { |
| 190 register Lisp_Object val; | 190 register Lisp_Object val; |
| 191 | 191 |
| 192 val = read_char (0); | 192 val = read_char (0, 0, 0, Qnil, 0); |
| 193 return val; | 193 return val; |
| 194 } | 194 } |
| 195 | 195 |
| 196 DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 0, 0, | 196 DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 0, 0, |
| 197 "Read a character from the command input (keyboard or macro).\n\ | 197 "Read a character from the command input (keyboard or macro).\n\ |
| 201 register Lisp_Object val; | 201 register Lisp_Object val; |
| 202 | 202 |
| 203 #ifndef standalone | 203 #ifndef standalone |
| 204 do | 204 do |
| 205 { | 205 { |
| 206 val = read_char (0); | 206 val = read_char (0, 0, 0, Qnil, 0); |
| 207 } | 207 } |
| 208 while (XTYPE (val) != Lisp_Int); | 208 while (XTYPE (val) != Lisp_Int); |
| 209 #else | 209 #else |
| 210 val = getchar (); | 210 val = getchar (); |
| 211 #endif | 211 #endif |