From 495bf63050e24ad68826f370bfa91ed8f26ccd89 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 25 Nov 2004 20:01:18 +0000 Subject: [PATCH] (readchar): Check QUIT when `getc' is interrupted. --- src/lread.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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); } -- 2.39.5