Commit 76417ef4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* src/keymap.c (Fdefine_key, Flookup_key): Say what event is invalid.

parent 16041401
2010-08-01 Stefan Monnier <monnier@iro.umontreal.ca>
* keymap.c (Fdefine_key, Flookup_key): Say what event is invalid.
2010-07-31 Chong Yidong <cyd@stupidchicken.com>
 
* xselect.c (x_own_selection): Use list4.
......
......@@ -1226,7 +1226,7 @@ binding KEY to DEF is added at the front of KEYMAP. */)
&& (!CONSP (c)
/* If C is a range, it must be a leaf. */
|| (INTEGERP (XCAR (c)) && idx != length)))
error ("Key sequence contains invalid event");
message_with_string ("Key sequence contains invalid event %s", c, 1);
if (idx == length)
RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
......@@ -1340,7 +1340,7 @@ recognize the default bindings, just as `read-key-sequence' does. */)
/* 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");
message_with_string ("Key sequence contains invalid event %s", c, 1);
cmd = access_keymap (keymap, c, t_ok, 0, 1);
if (idx == length)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment