Remove unused Fget_file_char

* src/lread.c (Fget_file_char): Remove.  It is unused, undocumented and
we actively tell users not to call it.

(cherry picked from commit 319e16550d665d1eae6f9e355c475ab668371cf3)

diff --git a/src/lread.c b/src/lread.c
index 05642f011b118cc8937b8ce21b34a949a379e5fb..f5c79a8c0ea1c60e0a6b2a6637bfb00975c7b76e 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -984,16 +984,6 @@ If `inhibit-interaction' is non-nil, this function will signal an
          : make_fixnum (char_resolve_modifier_mask (XFIXNUM (val))));
 }
 
-DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0,
-       doc: /* Don't use this yourself.  */)
-  (void)
-{
-  if (!infile)
-    error ("get-file-char misused");
-  return make_fixnum (readbyte_from_stdio ());
-}
-
-
 \f
 
 typedef enum {
@@ -5832,7 +5822,6 @@ syms_of_lread (void)
   defsubr (&Sread_char);
   defsubr (&Sread_char_exclusive);
   defsubr (&Sread_event);
-  defsubr (&Sget_file_char);
   defsubr (&Smapatoms);
   defsubr (&Slocate_file_internal);
   defsubr (&Sinternal__obarray_buckets);