From f66c49cc1cae94b545762ad789f214d5bf459c20 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Sat, 10 Dec 2005 01:49:24 +0000 Subject: [PATCH] (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. --- src/keyboard.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) 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"); -- 2.39.5