aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorKim F. Storm2002-02-24 00:24:37 +0000
committerKim F. Storm2002-02-24 00:24:37 +0000
commit5f245371188ff7793c3d5a79a0d38efd2e04bc57 (patch)
treef6854080641238dcb9b6fca4f0d883e8969d152f /src/keymap.c
parenta8959ac2a3b122f064c0aa575404c8a02b4ff74d (diff)
downloademacs-5f245371188ff7793c3d5a79a0d38efd2e04bc57.tar.gz
emacs-5f245371188ff7793c3d5a79a0d38efd2e04bc57.zip
(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.c4
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. */)
1142 if (XINT (c) & 0x80 && STRINGP (key)) 1142 if (XINT (c) & 0x80 && STRINGP (key))
1143 XSETINT (c, (XINT (c) | meta_modifier) & ~0x80); 1143 XSETINT (c, (XINT (c) | meta_modifier) & ~0x80);
1144 1144
1145 if (!INTEGERP (c) && !SYMBOLP (c) && !CONSP (c)) 1145 /* Allow string since binding for `menu-bar-select-buffer'
1146 includes the buffer name in the key sequence. */
1147 if (!INTEGERP (c) && !SYMBOLP (c) && !CONSP (c) && !STRINGP (c))
1146 error ("Key sequence contains invalid event"); 1148 error ("Key sequence contains invalid event");
1147 1149
1148 cmd = access_keymap (keymap, c, t_ok, 0, 1); 1150 cmd = access_keymap (keymap, c, t_ok, 0, 1);