mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-02-01 20:06:00 +00:00
(Flookup_key, Fdefine_key): Use Fevent_convert_list.
This commit is contained in:
parent
a1706c30d6
commit
41015a196c
@ -607,7 +607,7 @@ the front of KEYMAP.")
|
||||
c = Faref (key, make_number (idx));
|
||||
|
||||
if (CONSP (c) && lucid_event_type_list_p (c))
|
||||
c = convert_event_type_list (c);
|
||||
c = Fevent_convert_list (c);
|
||||
|
||||
if (INTEGERP (c)
|
||||
&& (XINT (c) & meta_bit)
|
||||
@ -701,7 +701,7 @@ recognize the default bindings, just as `read-key-sequence' does.")
|
||||
c = Faref (key, make_number (idx));
|
||||
|
||||
if (CONSP (c) && lucid_event_type_list_p (c))
|
||||
c = convert_event_type_list (c);
|
||||
c = Fevent_convert_list (c);
|
||||
|
||||
if (INTEGERP (c)
|
||||
&& (XINT (c) & meta_bit)
|
||||
|
Loading…
x
Reference in New Issue
Block a user