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.

1 files changed, 0 insertions, 11 deletions

diff --git a/src/lread.c b/src/lread.c
index 05642f011b1..f5c79a8c0ea 100644
--- 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 ());
-}
-
-
 
 
 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);