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

diff --git a/src/ChangeLog b/src/ChangeLog
index ee7457789510d39eba939d61d5346c869a370819..8043e118c64685aaf1c797189841070389e31277 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/src/keymap.c b/src/keymap.c
index a92c085793fea8cde952ab790f3613b8b23e8f5f..5e884ae137ec6f1679e6b5d7596cd41dc1453281 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -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)