Mercurial > emacs
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; |