From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Jul 1995 22:24:37 +0000 (+0000)
Subject: (Fread): Rename arg READCHARFUN to STREAM.
X-Git-Tag: emacs-19.34~3314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5be02dffe84c76883514514a2cdddfffd5b0992f;p=emacs.git

(Fread): Rename arg READCHARFUN to STREAM.
---

diff --git a/src/lread.c b/src/lread.c
index 65b4b665c19..6995274de5e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -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,