X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e3040f2aee768655198dd6f979a1ff3a72d17d16..5f46725992bf26f887483c14c63c03f5b5794f34:/src/keyboard.c?ds=sidebyside

diff --git a/src/keyboard.c b/src/keyboard.c
index d76a8fcb78..215b6ea3f7 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -369,6 +369,9 @@ static Lisp_Object Qsave_session;
 #ifdef HAVE_DBUS
 static Lisp_Object Qdbus_event;
 #endif
+#ifdef HAVE_XWIDGETS
+Lisp_Object Qxwidget_event;
+#endif
 #ifdef USE_FILE_NOTIFY
 static Lisp_Object Qfile_notify;
 #endif /* USE_FILE_NOTIFY */
@@ -4227,6 +4230,20 @@ kbd_buffer_get_event (KBOARD **kbp,
 	  obj = make_lispy_event (event);
 	  kbd_fetch_ptr = event + 1;
 	}
+#endif
+#ifdef HAVE_XWIDGETS      
+      else if (event->kind == XWIDGET_EVENT)
+	{
+	  obj = make_lispy_event (event);
+	  kbd_fetch_ptr = event + 1;
+	}
+#endif      
+#ifdef HAVE_INOTIFY
+      else if (event->kind == FILE_NOTIFY_EVENT)
+        {
+          obj = make_lispy_event (event);
+          kbd_fetch_ptr = event + 1;
+        }
 #endif
       else if (event->kind == CONFIG_CHANGED_EVENT)
 	{
@@ -6178,6 +6195,15 @@ make_lispy_event (struct input_event *event)
       }
 #endif /* HAVE_DBUS */
 
+#ifdef HAVE_XWIDGETS
+    case XWIDGET_EVENT:
+      {
+        printf("cool, an xwidget event arrived in make_lispy_event!\n");
+        return  Fcons (Qxwidget_event,event->arg);
+      }
+#endif /* HAVE_XWIDGETS */
+
+
 #if defined HAVE_GFILENOTIFY || defined HAVE_INOTIFY
     case FILE_NOTIFY_EVENT:
       {
@@ -11190,6 +11216,10 @@ syms_of_keyboard (void)
   DEFSYM (Qdbus_event, "dbus-event");
 #endif
 
+#ifdef HAVE_XWIDGETS
+  Qxwidget_event = intern ("xwidget-event");
+  staticpro (&Qxwidget_event);
+#endif /* HAVE_XWIDGETS */
 #ifdef USE_FILE_NOTIFY
   DEFSYM (Qfile_notify, "file-notify");
 #endif /* USE_FILE_NOTIFY */