# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 919677943 0
# Node ID 2b4cdb028ea9d78a8c67d9cf40b825ecbbf023fa
# Parent  80d0a3294c24efb8d3afd5181709d09f8229abcc
(Qusr1_signal, Qusr2_signal): New variables.
(syms_of_keyboard): Initialize them.
(lispy_user_signals): New variable.
(make_lispy_event): Handle user_signal event type.

diff -r 80d0a3294c24 -r 2b4cdb028ea9 src/keyboard.c
--- a/src/keyboard.c	Mon Feb 22 10:04:28 1999 +0000
+++ b/src/keyboard.c	Mon Feb 22 10:05:43 1999 +0000
@@ -3954,6 +3954,14 @@
   &Qup, &Qdown,
 };
 
+/* User signal events.  */
+Lisp_Object Qusr1_signal, Qusr2_signal;
+
+Lisp_Object *lispy_user_signals[] =
+{
+  &Qusr1_signal, &Qusr2_signal
+};
+
 
 /* A vector, indexed by button number, giving the down-going location
    of currently depressed buttons, both scroll bar and non-scroll bar.
@@ -4518,6 +4526,10 @@
       return XCONS (event->frame_or_window)->cdr;
 #endif
 
+    case user_signal:
+      /* A user signal.  */
+      return *lispy_user_signals[event->code];
+      
       /* The 'kind' field of the event is something we don't recognize.  */
     default:
       abort ();
@@ -8977,6 +8989,11 @@
   Qdrag_n_drop = intern ("drag-n-drop");
   staticpro (&Qdrag_n_drop);
 
+  Qusr1_signal = intern ("usr1-signal");
+  staticpro (&Qusr1_signal);
+  Qusr2_signal = intern ("usr2-signal");
+  staticpro (&Qusr2_signal);
+
   Qmenu_enable = intern ("menu-enable");
   staticpro (&Qmenu_enable);
   Qmenu_alias = intern ("menu-alias");