diff options
| author | Karl Heuer | 1994-02-11 01:29:24 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-11 01:29:24 +0000 |
| commit | 6c82d689cf98eff0b9456ca89b54973686431709 (patch) | |
| tree | 870637519a042933f4bfd41732053fbb36246571 /src | |
| parent | 7b260679d0e8b58e1d1c6e778b193a342266a7c0 (diff) | |
| download | emacs-6c82d689cf98eff0b9456ca89b54973686431709.tar.gz emacs-6c82d689cf98eff0b9456ca89b54973686431709.zip | |
(read_filtered_event): Retry read_char after a buffer change.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index d74febcf339..32ee6885ac3 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -216,6 +216,9 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii) | |||
| 216 | retry: | 216 | retry: |
| 217 | val = read_char (0, 0, 0, Qnil, 0); | 217 | val = read_char (0, 0, 0, Qnil, 0); |
| 218 | 218 | ||
| 219 | if (XTYPE (val) == Lisp_Buffer) | ||
| 220 | goto retry; | ||
| 221 | |||
| 219 | /* switch-frame events are put off until after the next ASCII | 222 | /* switch-frame events are put off until after the next ASCII |
| 220 | character. This is better than signalling an error just because | 223 | character. This is better than signalling an error just because |
| 221 | the last characters were typed to a separate minibuffer frame, | 224 | the last characters were typed to a separate minibuffer frame, |