diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-12-10 01:49:24 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-12-10 01:49:24 +0000 |
| commit | f66c49cc1cae94b545762ad789f214d5bf459c20 (patch) | |
| tree | 6c157eb4032703265eed76fe836fbb48ab51f1b0 | |
| parent | dac5344bda6212378fe93780d27a00c840d87068 (diff) | |
| download | emacs-f66c49cc1cae94b545762ad789f214d5bf459c20.tar.gz emacs-f66c49cc1cae94b545762ad789f214d5bf459c20.tar.bz2 emacs-f66c49cc1cae94b545762ad789f214d5bf459c20.zip | |
(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.
| -rw-r--r-- | src/keyboard.c | 22 |
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"); |