Mercurial > emacs
comparison src/lread.c @ 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 | a6889b33d21c |
children | b2be450a8da4 |
comparison
equal
deleted
inserted
replaced
15090:c07a2c3e141d | 15091:e05dd165b889 |
---|---|
514 This is used when starting a subprocess. */ | 514 This is used when starting a subprocess. */ |
515 | 515 |
516 void | 516 void |
517 close_load_descs () | 517 close_load_descs () |
518 { | 518 { |
519 #ifndef WINDOWSNT | |
519 Lisp_Object tail; | 520 Lisp_Object tail; |
520 for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr) | 521 for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr) |
521 close (XFASTINT (XCONS (tail)->car)); | 522 close (XFASTINT (XCONS (tail)->car)); |
523 #endif | |
522 } | 524 } |
523 | 525 |
524 static int | 526 static int |
525 complete_filename_p (pathname) | 527 complete_filename_p (pathname) |
526 Lisp_Object pathname; | 528 Lisp_Object pathname; |
1001 Lisp_Object readcharfun; | 1003 Lisp_Object readcharfun; |
1002 { | 1004 { |
1003 register int c = READCHAR; | 1005 register int c = READCHAR; |
1004 switch (c) | 1006 switch (c) |
1005 { | 1007 { |
1008 case -1: | |
1009 error ("End of file"); | |
1010 | |
1006 case 'a': | 1011 case 'a': |
1007 return '\007'; | 1012 return '\007'; |
1008 case 'b': | 1013 case 'b': |
1009 return '\b'; | 1014 return '\b'; |
1010 case 'd': | 1015 case 'd': |