From f3849f257d7cb157c861cec9557e775b26a74e49 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 26 Apr 1996 19:54:49 +0000
Subject: [PATCH] (close_load_descs) [WINDOWS_NT]: Don't actually do anything.

(read_escape): Detect READCHAR reporting eof.
---
 src/lread.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index f90bdb2ef2d..be43d7f2959 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -516,9 +516,11 @@ load_descriptor_unwind (oldlist)
 void
 close_load_descs ()
 {
+#ifndef WINDOWSNT
   Lisp_Object tail;
   for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr)
     close (XFASTINT (XCONS (tail)->car));
+#endif
 }
 
 static int
@@ -1003,6 +1005,9 @@ read_escape (readcharfun)
   register int c = READCHAR;
   switch (c)
     {
+    case -1:
+      error ("End of file");
+
     case 'a':
       return '\007';
     case 'b':
-- 
2.39.2