From: Andreas Schwab <schwab@suse.de>
Date: Mon, 22 Feb 1999 10:05:43 +0000 (+0000)
Subject: (Qusr1_signal, Qusr2_signal): New variables.
X-Git-Tag: emacs-20.4~574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bf68f6e3431736c198474667e13b79f04087783;p=emacs.git

(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 --git a/src/keyboard.c b/src/keyboard.c
index 9b6c076558f..b1a41d106a4 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3954,6 +3954,14 @@ Lisp_Object *scroll_bar_parts[] = {
   &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 @@ make_lispy_event (event)
       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 @@ syms_of_keyboard ()
   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");