mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 21:11:18 -07:00
Code Issues Projects Releases Wiki Activity

(Fread): Rename arg READCHARFUN to STREAM.

Browse source
This commit is contained in:
Karl Heuer 1995-07-17 22:24:37 +00:00
parent 0e7078f5c8
commit 5be02dffe8
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/lread.c
View file

@ -889,27 +889,27 @@ STREAM or the value of `standard-input' may be:\n\
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,