diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-06-09 01:14:45 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-06-09 01:14:45 +0000 |
commit | d764539b39e2356bedb5cfb1fc3531db204b0f86 (patch) | |
tree | 830e2746482e1d16aa283f399d3ea28aa1577f39 /src/keyboard.c | |
parent | d8fa949e56a9d1674b7f6563a7883dd7c32de959 (diff) | |
download | emacs-d764539b39e2356bedb5cfb1fc3531db204b0f86.tar.gz |
(Fevent_convert_list): Renamed from convert_event_type_list.
(syms_of_keyboard): defsubr it.
Diffstat (limited to 'src/keyboard.c')
-rw-r--r-- | src/keyboard.c | 11 |
1 files 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 |