diff options
author | Stefan Monnier <[email protected]> | 2004-11-25 20:01:18 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2004-11-25 20:01:18 +0000 |
commit | 495bf63050e24ad68826f370bfa91ed8f26ccd89 (patch) | |
tree | dd0283d5d7ef4dd2b9c54a266f6e6ee75273ce32 /src | |
parent | cab27d048b313265bb98c613cf27385ba6c2d181 (diff) |
(readchar): Check QUIT when `getc' is interrupted.
Diffstat (limited to 'src')
-rw-r--r-- | src/lread.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 47512fd319..0834261876 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); } |