1
0
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:
Karl Heuer 1995-06-09 01:15:14 +00:00
parent a1706c30d6
commit 41015a196c

View File

@ -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)