diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-02-24 00:24:37 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-02-24 00:24:37 +0000 |
| commit | 5f245371188ff7793c3d5a79a0d38efd2e04bc57 (patch) | |
| tree | f6854080641238dcb9b6fca4f0d883e8969d152f /src/keymap.c | |
| parent | a8959ac2a3b122f064c0aa575404c8a02b4ff74d (diff) | |
| download | emacs-5f245371188ff7793c3d5a79a0d38efd2e04bc57.tar.gz | |
(Flookup_key): Fixed problem in 2001-12-28 patch:
The validation of the event type was too strict as it didn't
allow string events; buffer names are used in bindings for
menu-bar-select-buffer (see `menu-bar-update-buffers').
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c index fcb56bd44ae..e56a21a735a 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1142,7 +1142,9 @@ recognize the default bindings, just as `read-key-sequence' does. */) if (XINT (c) & 0x80 && STRINGP (key)) XSETINT (c, (XINT (c) | meta_modifier) & ~0x80); - if (!INTEGERP (c) && !SYMBOLP (c) && !CONSP (c)) + /* Allow string since binding for `menu-bar-select-buffer' + includes the buffer name in the key sequence. */ + if (!INTEGERP (c) && !SYMBOLP (c) && !CONSP (c) && !STRINGP (c)) error ("Key sequence contains invalid event"); cmd = access_keymap (keymap, c, t_ok, 0, 1); |