# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 802660485 0
# Node ID 64b16f71a15cfa12bdf540b982a248c6c9ecaa50
# Parent  f1585a0ecd0cce4d2855a40ccbf9db42c0fb7da0
(Fevent_convert_list): Renamed from convert_event_type_list.
(syms_of_keyboard): defsubr it.

diff -r f1585a0ecd0c -r 64b16f71a15c src/keyboard.c
--- 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