From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 25 Nov 2004 20:01:18 +0000 (+0000)
Subject: (readchar): Check QUIT when `getc' is interrupted.
X-Git-Tag: ttn-vms-21-2-B4~3662
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=495bf63050e24ad68826f370bfa91ed8f26ccd89;p=emacs.git

(readchar): Check QUIT when `getc' is interrupted.
---

diff --git a/src/lread.c b/src/lread.c
index 47512fd3197..08342618766 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1,6 +1,6 @@
 /* Lisp parsing and input streams.
-   Copyright (C) 1985,86,87,88,89,93,94,95,97,98,99,2000,01,03,2004
-      Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998,
+     1999, 2000, 2001, 2003, 2004  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -322,6 +322,7 @@ readchar (readcharfun)
       /* Interrupted reads have been observed while reading over the network */
       while (c == EOF && ferror (instream) && errno == EINTR)
 	{
+	  QUIT;
 	  clearerr (instream);
 	  c = getc (instream);
 	}