Mercurial > emacs

diff src/keymap.c @ 89626:e2d5f38e23b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefine_key): Fix handling of Lucid style event type list.
author Kenichi Handa <handa@m17n.org>
date Mon, 17 Nov 2003 01:06:37 +0000
parents 28a8f2be4414
children 99303f55a1b8
line wrap: on
line diff
--- 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))