[Emacs-diffs] Changes to emacs/src/lread.c,v

[YAMAMOTO Mitsuharu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   07/03/28 08:16:20

Index: lread.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/lread.c,v
retrieving revision 1.368
retrieving revision 1.369
diff -u -b -r1.368 -r1.369
--- lread.c     20 Mar 2007 08:50:31 -0000      1.368
+++ lread.c     28 Mar 2007 08:16:19 -0000      1.369
@@ -327,18 +327,18 @@
     {
       BLOCK_INPUT;
       c = getc (instream);
-      UNBLOCK_INPUT;
 #ifdef EINTR
       /* Interrupted reads have been observed while reading over the network */
       while (c == EOF && ferror (instream) && errno == EINTR)
        {
+         UNBLOCK_INPUT;
          QUIT;
-         clearerr (instream);
          BLOCK_INPUT;
+         clearerr (instream);
          c = getc (instream);
-         UNBLOCK_INPUT;
        }
 #endif
+      UNBLOCK_INPUT;
       return c;
     }