(Qmac_apple_event) [MAC_OS]: New variable.

(syms_of_keyboard) [MAC_OS]: Initialize it.
(make_lispy_event) [MAC_OS]: Build lisp event for MAC_APPLE_EVENT.

1 files changed, 22 insertions, 0 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 833a96ca874..a09bebf6089 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -527,6 +527,9 @@ Lisp_Object Qlanguage_change;
 #endif
 Lisp_Object Qdrag_n_drop;
 Lisp_Object Qsave_session;
+#ifdef MAC_OS
+Lisp_Object Qmac_apple_event;
+#endif
 
 /* Lisp_Object Qmouse_movement; - also an event header */
 
@@ -5864,6 +5867,20 @@ make_lispy_event (event)
     case SAVE_SESSION_EVENT:
       return Qsave_session;
 
+#ifdef MAC_OS
+    case MAC_APPLE_EVENT:
+      {
+        Lisp_Object spec[2];
+
+        spec[0] = event->x;
+        spec[1] = event->y;
+        return Fcons (Qmac_apple_event,
+                      Fcons (Fvector (2, spec),
+                             Fcons (mac_make_lispy_event_code (event->code),
+                                    Qnil)));
+      }
+#endif
+
       /* The 'kind' field of the event is something we don't recognize.  */
     default:
       abort ();
@@ -10879,6 +10896,11 @@ syms_of_keyboard ()
   Qsave_session = intern ("save-session");
   staticpro (&Qsave_session);
 
+#ifdef MAC_OS
+  Qmac_apple_event = intern ("mac-apple-event");
+  staticpro (&Qmac_apple_event);
+#endif
+
   Qusr1_signal = intern ("usr1-signal");
   staticpro (&Qusr1_signal);
   Qusr2_signal = intern ("usr2-signal");