From: Kenichi Handa <handa@m17n.org>
Date: Mon, 17 Nov 2003 01:06:37 +0000 (+0000)
Subject: (Fdefine_key): Fix handling of Lucid style event type list.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1722
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a10f36d88e0f959807f7f8c757098d432421623;p=emacs.git

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

diff --git a/src/keymap.c b/src/keymap.c
index 76431a516aa..dd5bea45f59 100644
--- 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))