From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 26 Apr 1996 19:54:49 +0000 (+0000)
Subject: (close_load_descs) [WINDOWS_NT]: Don't actually do anything.
X-Git-Tag: emacs-19.34~770
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3849f257d7cb157c861cec9557e775b26a74e49;p=emacs.git

(close_load_descs) [WINDOWS_NT]: Don't actually do anything.

(read_escape): Detect READCHAR reporting eof.
---

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':