diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-05-15 13:37:45 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-05-15 13:37:45 +0000 |
| commit | 2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d (patch) | |
| tree | 6ea09318bee581498d3a42c0ec718db14a9ce20c | |
| parent | 5925bb84c9a548c4bbe7f41e2e7e011fac701160 (diff) | |
| download | emacs-2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d.tar.gz emacs-2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d.tar.bz2 emacs-2cf066c38e0b6aecdb601fcd3753aeaa32ee4c0d.zip | |
(read_key_sequence): Prevent generating a fake
prefix key twice.
| -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, window = POSN_WINDOW (EVENT_START (key)); posn = POSN_BUFFER_POSN (EVENT_START (key)); - if (CONSP (posn)) + if (CONSP (posn) + || (!NILP (fake_prefixed_keys) + && !NILP (Fmemq (key, fake_prefixed_keys)))) { - /* We're looking at the second event of a - sequence which we expanded before. Set + /* We're looking a second time at an event for which + we generated a fake prefix key. Set last_real_key_start appropriately. */ if (t > 0) last_real_key_start = t - 1; |