comparison src/keyboard.c @ 10533:52b954844444

(read_key_sequence): Don't wait for a possible key translation sequence if we already have a binding. Add missing break statement.
author Karl Heuer <kwzh@gnu.org>
date Tue, 24 Jan 1995 03:16:34 +0000
parents 2ab3bd0288a9
children ffef84d4d8a8
comparison
equal deleted inserted replaced
10532:7ad0be09805c 10533:52b954844444
1 /* Keyboard and mouse input; editor command loop. 1 /* Keyboard and mouse input; editor command loop.
2 Copyright (C) 1985,86,87,88,89,93,94 Free Software Foundation, Inc. 2 Copyright (C) 1985,86,87,88,89,93,94,95 Free Software Foundation, Inc.
3 3
4 This file is part of GNU Emacs. 4 This file is part of GNU Emacs.
5 5
6 GNU Emacs is free software; you can redistribute it and/or modify 6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 7 it under the terms of the GNU General Public License as published by
4664 while ((first_binding < nmaps && ! NILP (submaps[first_binding])) 4664 while ((first_binding < nmaps && ! NILP (submaps[first_binding]))
4665 || (first_binding >= nmaps 4665 || (first_binding >= nmaps
4666 && fkey_start < t 4666 && fkey_start < t
4667 /* mock input is never part of a function key's sequence. */ 4667 /* mock input is never part of a function key's sequence. */
4668 && mock_input <= fkey_start) 4668 && mock_input <= fkey_start)
4669 || (keytran_start < t && key_translation_possible) 4669 || (first_binding >= nmaps
4670 && keytran_start < t && key_translation_possible)
4670 /* Don't return in the middle of a possible function key sequence, 4671 /* Don't return in the middle of a possible function key sequence,
4671 if the only bindings we found were via case conversion. 4672 if the only bindings we found were via case conversion.
4672 Thus, if ESC O a has a function-key-map translation 4673 Thus, if ESC O a has a function-key-map translation
4673 and ESC o has a binding, don't return after ESC O, 4674 and ESC o has a binding, don't return after ESC O,
4674 so that we can translate ESC O plus the next character. */ 4675 so that we can translate ESC O plus the next character. */
4947 keybuf[t++] = key; 4948 keybuf[t++] = key;
4948 last_nonmenu_event = key; 4949 last_nonmenu_event = key;
4949 /* The Microsoft C compiler can't handle the goto that 4950 /* The Microsoft C compiler can't handle the goto that
4950 would go here. */ 4951 would go here. */
4951 dummyFlag = 1; 4952 dummyFlag = 1;
4953 break;
4952 } 4954 }
4953 4955
4954 if (SYMBOLP (head)) 4956 if (SYMBOLP (head))
4955 { 4957 {
4956 Lisp_Object breakdown; 4958 Lisp_Object breakdown;