Mercurial > emacs
changeset 12150:64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
(syms_of_keyboard): defsubr it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 09 Jun 1995 01:14:45 +0000 |
| parents | f1585a0ecd0c |
| children | 43b030e896eb |
| files | src/keyboard.c |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Fri Jun 09 01:11:36 1995 +0000 +++ b/src/keyboard.c Fri Jun 09 01:14:45 1995 +0000 @@ -3795,8 +3795,14 @@ 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 @@ unread_switch_frame = Qnil; staticpro (&unread_switch_frame); + defsubr (&Sevent_convert_list); defsubr (&Sread_key_sequence); defsubr (&Srecursive_edit); #ifdef HAVE_MOUSE