diff options
| author | Gerd Moellmann | 2001-05-15 13:37:45 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-05-15 13:37:45 +0000 |
| commit | 2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d (patch) | |
| tree | 6ea09318bee581498d3a42c0ec718db14a9ce20c /src | |
| parent | 5925bb84c9a548c4bbe7f41e2e7e011fac701160 (diff) | |
| download | emacs-2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d.tar.gz emacs-2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d.zip | |
(read_key_sequence): Prevent generating a fake
prefix key twice.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 2a7216f3975..18c1f3e1e3a 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -8221,10 +8221,12 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, | |||
| 8221 | window = POSN_WINDOW (EVENT_START (key)); | 8221 | window = POSN_WINDOW (EVENT_START (key)); |
| 8222 | posn = POSN_BUFFER_POSN (EVENT_START (key)); | 8222 | posn = POSN_BUFFER_POSN (EVENT_START (key)); |
| 8223 | 8223 | ||
| 8224 | if (CONSP (posn)) | 8224 | if (CONSP (posn) |
| 8225 | || (!NILP (fake_prefixed_keys) | ||
| 8226 | && !NILP (Fmemq (key, fake_prefixed_keys)))) | ||
| 8225 | { | 8227 | { |
| 8226 | /* We're looking at the second event of a | 8228 | /* We're looking a second time at an event for which |
| 8227 | sequence which we expanded before. Set | 8229 | we generated a fake prefix key. Set |
| 8228 | last_real_key_start appropriately. */ | 8230 | last_real_key_start appropriately. */ |
| 8229 | if (t > 0) | 8231 | if (t > 0) |
| 8230 | last_real_key_start = t - 1; | 8232 | last_real_key_start = t - 1; |