Mercurial > emacs
changeset 67455:9bf079216f0e
(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.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Sat, 10 Dec 2005 01:49:24 +0000 |
| parents | 939281029286 |
| children | 2efa50cbb7cd |
| files | src/keyboard.c |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Sat Dec 10 01:49:15 2005 +0000 +++ b/src/keyboard.c Sat Dec 10 01:49:24 2005 +0000 @@ -527,6 +527,9 @@ #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 @@ 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 @@ 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");