diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-26 19:54:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-26 19:54:49 +0000 |
| commit | 724e86313b6985f83351d8ad7219c699c4e436f1 (patch) | |
| tree | d50286a917c410cb5097b1c37e60af8682bc7500 /src/lread.c | |
| parent | e0d6375ccd2a93803760113a9a17fa2c808fd463 (diff) | |
| download | emacs-724e86313b6985f83351d8ad7219c699c4e436f1.tar.gz | |
(close_load_descs) [WINDOWS_NT]: Don't actually do anything.
(read_escape): Detect READCHAR reporting eof.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 5 insertions, 0 deletions
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': |