Mercurial > emacs
changeset 15091:e05dd165b889
(close_load_descs) [WINDOWS_NT]: Don't actually do anything.
(read_escape): Detect READCHAR reporting eof.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Apr 1996 19:54:49 +0000 |
| parents | c07a2c3e141d |
| children | 5372670fbe59 |
| files | src/lread.c |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Fri Apr 26 19:53:20 1996 +0000 +++ b/src/lread.c Fri Apr 26 19:54:49 1996 +0000 @@ -516,9 +516,11 @@ 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 @@ register int c = READCHAR; switch (c) { + case -1: + error ("End of file"); + case 'a': return '\007'; case 'b':