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