(Fdefine_key): Fix handling of Lucid style event type list.

diff --git a/src/keymap.c b/src/keymap.c
index 76431a516aa6b9d0faf4605f18a7a58104e1b6fc..dd5bea45f59d907a0d5c49b3fb20d230bb344e94 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1103,12 +1103,12 @@ binding KEY to DEF is added at the front of KEYMAP.  */)
 
       if (CONSP (c))
        {
-         /* C may be a cons (FROM . TO) specifying a range of
-            characters.  */
-         if (CHARACTERP (XCAR (c)))
-           CHECK_CHARACTER_CDR (c);
-         else if (lucid_event_type_list_p (c))
+         /* C may be a Lucid style event type list or a cons (FROM .
+            TO) specifying a range of characters.  */
+         if (lucid_event_type_list_p (c))
            c = Fevent_convert_list (c);
+         else if (CHARACTERP (XCAR (c)))
+           CHECK_CHARACTER_CDR (c);
        }
 
       if (SYMBOLP (c))