From fde6e6c99587a6189a9ffa0470b1bc1dea75a6c3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Thu, 30 May 2024 18:10:02 +0200
Subject: [PATCH] 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)
---
 src/lread.c | 11 -----------
 1 file changed, 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);
-- 
2.39.2