diff options
| author | Jim Blandy | 1993-05-04 02:35:01 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-04 02:35:01 +0000 |
| commit | f42be754b2912c5ff0fbfe51fe7fb776165b1033 (patch) | |
| tree | 368cd48f27cdf30c7c9d021dba1e92bd0cb88933 /src/fns.c | |
| parent | 59b4254d5965ccab2526cf80494924f2b8f4a9f8 (diff) | |
| download | emacs-f42be754b2912c5ff0fbfe51fe7fb776165b1033.tar.gz emacs-f42be754b2912c5ff0fbfe51fe7fb776165b1033.zip | |
Arrange for Fy_or_n_p to put off switch-frame events.
* lread.c (read_filtered_char): New function, which contains the
code which used to be in Fread_char, Fread_event, and
Fread_char_exclusive; there was a lot of common code.
(Fread_char, Fread_event, Fread_char_exclusive): Rewrite in terms
of read_filtered_char.
* lisp.h (read_filtered_char): Declare this extern here.
* fns.c (Fy_or_n_p): Call read_filtered_char, arranging to delay
switch-frame events.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -1111,7 +1111,7 @@ Also accepts Space to mean yes, or Delete to mean no.") | |||
| 1111 | cursor_in_echo_area = 1; | 1111 | cursor_in_echo_area = 1; |
| 1112 | message ("%s(y or n) ", XSTRING (xprompt)->data); | 1112 | message ("%s(y or n) ", XSTRING (xprompt)->data); |
| 1113 | 1113 | ||
| 1114 | obj = read_char (0, 0, 0, Qnil, 0); | 1114 | obj = read_filtered_event (1, 0, 0); |
| 1115 | cursor_in_echo_area = 0; | 1115 | cursor_in_echo_area = 0; |
| 1116 | /* If we need to quit, quit with cursor_in_echo_area = 0. */ | 1116 | /* If we need to quit, quit with cursor_in_echo_area = 0. */ |
| 1117 | QUIT; | 1117 | QUIT; |