From a1706c30d64eb545f7510896e74a94ae1f5b7767 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 9 Jun 1995 01:14:45 +0000 Subject: [PATCH] (Fevent_convert_list): Renamed from convert_event_type_list. (syms_of_keyboard): defsubr it. --- src/keyboard.c | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 04ee068d454..fa8b1fad67a 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -3795,8 +3795,14 @@ modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist, such as (ctrl meta backspace), into the usual representation of that event type as a number or a symbol. */ -Lisp_Object -convert_event_type_list (event) +DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0, + "Convert the event description LIST to an event type.\n\ +LIST should contain one base event type (a character or symbol)\n\ +and zero or more modifier names (control, meta, hyper, super, shift, alt,\n\ +drag, down, double or triple).\n\ +The return value is an event type (a character or symbol) which\n\ +has the same base event type and all the specified modifiers.") + (event) Lisp_Object event; { Lisp_Object base; @@ -6866,6 +6872,7 @@ syms_of_keyboard () unread_switch_frame = Qnil; staticpro (&unread_switch_frame); + defsubr (&Sevent_convert_list); defsubr (&Sread_key_sequence); defsubr (&Srecursive_edit); #ifdef HAVE_MOUSE -- 2.39.2