# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1069031197 0
# Node ID e2d5f38e23b43fd1698d7e4de907d0c7af3746e6
# Parent  8dac60a36c4b54c08b86307f79b0b4f73a1a3ee4
(Fdefine_key): Fix handling of Lucid style event type list.

diff -r 8dac60a36c4b -r e2d5f38e23b4 src/keymap.c
--- a/src/keymap.c	Mon Nov 17 00:58:25 2003 +0000
+++ b/src/keymap.c	Mon Nov 17 01:06:37 2003 +0000
@@ -1103,12 +1103,12 @@
 
       if (CONSP (c))
 	{
-	  /* C may be a cons (FROM . TO) specifying a range of
-	     characters.  */
-	  if (CHARACTERP (XCAR (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);
-	  else if (lucid_event_type_list_p (c))
-	    c = Fevent_convert_list (c);
 	}
 
       if (SYMBOLP (c))