1103 |
|
|
1104 |
if (CONSP (c)) |
if (CONSP (c)) |
1105 |
{ |
{ |
1106 |
/* C may be a cons (FROM . TO) specifying a range of |
/* C may be a Lucid style event type list or a cons (FROM . |
1107 |
characters. */ |
TO) specifying a range of characters. */ |
1108 |
if (CHARACTERP (XCAR (c))) |
if (lucid_event_type_list_p (c)) |
|
CHECK_CHARACTER_CDR (c); |
|
|
else if (lucid_event_type_list_p (c)) |
|
1109 |
c = Fevent_convert_list (c); |
c = Fevent_convert_list (c); |
1110 |
|
else if (CHARACTERP (XCAR (c))) |
1111 |
|
CHECK_CHARACTER_CDR (c); |
1112 |
} |
} |
1113 |
|
|
1114 |
if (SYMBOLP (c)) |
if (SYMBOLP (c)) |