Mercurial > hg > xemacs-beta
diff src/event-Xt.c @ 943:345b7d75cab4
[xemacs-hg @ 2002-08-01 08:28:18 by michaels]
2002-08-01 Mike Sperber <mike@xemacs.org>
* event-stream.c:
* event-Xt.c:
* events.h:
* events.c:
* alloc.c: Fix various kkcc-related nits that show up in MULE and
union-type builds.
| author | michaels |
|---|---|
| date | Thu, 01 Aug 2002 08:28:38 +0000 |
| parents | c925bacdda60 |
| children | 5b372a329b97 |
line wrap: on
line diff
--- a/src/event-Xt.c Wed Jul 31 20:26:41 2002 +0000 +++ b/src/event-Xt.c Thu Aug 01 08:28:38 2002 +0000 @@ -1072,8 +1072,13 @@ ev->channel = DEVICE_CONSOLE (d); ev->event_type = key_press_event; ev->timestamp = event->time; +#ifdef USE_KKCC + SET_KEY_DATA_MODIFIERS (XKEY_DATA (emacs_event), 0); + SET_KEY_DATA_KEYSYM (XKEY_DATA (emacs_event), make_char (ch)); +#else ev->event.key.modifiers = 0; ev->event.key.keysym = make_char (ch); +#endif enqueue_Xt_dispatch_event (emacs_event); } Lstream_close (istr);