From 9a10f36d88e0f959807f7f8c757098d432421623 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 17 Nov 2003 01:06:37 +0000 Subject: [PATCH] (Fdefine_key): Fix handling of Lucid style event type list. --- src/keymap.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)) -- 2.39.5