Mercurial > emacs
comparison src/lread.c @ 90796:4ef881a120fe
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 675-697)
- Update from CVS
- Merge from gnus--rel--5.10
- Release ERC 5.2.
* gnus--rel--5.10 (patch 211-215)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-189
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 11 Apr 2007 00:17:47 +0000 |
| parents | c0409ee15cee 846cbca78bc8 |
| children | e33fffaa9534 |
comparison
equal
deleted
inserted
replaced
| 90795:b9182b6a90c9 | 90796:4ef881a120fe |
|---|---|
| 496 return 0; | 496 return 0; |
| 497 } | 497 } |
| 498 | 498 |
| 499 BLOCK_INPUT; | 499 BLOCK_INPUT; |
| 500 c = getc (instream); | 500 c = getc (instream); |
| 501 UNBLOCK_INPUT; | |
| 502 | 501 |
| 503 #ifdef EINTR | 502 #ifdef EINTR |
| 504 /* Interrupted reads have been observed while reading over the network */ | 503 /* Interrupted reads have been observed while reading over the network */ |
| 505 while (c == EOF && ferror (instream) && errno == EINTR) | 504 while (c == EOF && ferror (instream) && errno == EINTR) |
| 506 { | 505 { |
| 506 UNBLOCK_INPUT; | |
| 507 QUIT; | 507 QUIT; |
| 508 BLOCK_INPUT; | |
| 508 clearerr (instream); | 509 clearerr (instream); |
| 509 BLOCK_INPUT; | |
| 510 c = getc (instream); | 510 c = getc (instream); |
| 511 UNBLOCK_INPUT; | |
| 512 } | 511 } |
| 513 #endif | 512 #endif |
| 513 | |
| 514 UNBLOCK_INPUT; | |
| 514 | 515 |
| 515 return (c == EOF ? -1 : c); | 516 return (c == EOF ? -1 : c); |
| 516 } | 517 } |
| 517 | 518 |
| 518 static int | 519 static int |