Mercurial > emacs
changeset 12545:ccc20d466150
(Fread): Rename arg READCHARFUN to STREAM.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 17 Jul 1995 22:24:37 +0000 |
| parents | 8f17bdb409cf |
| children | f4fb791df099 |
| files | src/lread.c |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Mon Jul 17 22:23:14 1995 +0000 +++ b/src/lread.c Mon Jul 17 22:24:37 1995 +0000 @@ -889,27 +889,27 @@ call it with a char as argument to push a char back)\n\ a string (takes text from string, starting at the beginning)\n\ t (read text line using minibuffer and use it).") - (readcharfun) - Lisp_Object readcharfun; + (stream) + Lisp_Object stream; { extern Lisp_Object Fread_minibuffer (); - if (NILP (readcharfun)) - readcharfun = Vstandard_input; - if (EQ (readcharfun, Qt)) - readcharfun = Qread_char; + if (NILP (stream)) + stream = Vstandard_input; + if (EQ (stream, Qt)) + stream = Qread_char; new_backquote_flag = 0; #ifndef standalone - if (EQ (readcharfun, Qread_char)) + if (EQ (stream, Qread_char)) return Fread_minibuffer (build_string ("Lisp expression: "), Qnil); #endif - if (STRINGP (readcharfun)) - return Fcar (Fread_from_string (readcharfun, Qnil, Qnil)); + if (STRINGP (stream)) + return Fcar (Fread_from_string (stream, Qnil, Qnil)); - return read0 (readcharfun); + return read0 (stream); } DEFUN ("read-from-string", Fread_from_string, Sread_from_string, 1, 3, 0,