Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 943:345b7d75cab4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
942:d90decf21e71 943:345b7d75cab4
1070 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil); 1070 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
1071 Lisp_Event *ev = XEVENT (emacs_event); 1071 Lisp_Event *ev = XEVENT (emacs_event);
1072 ev->channel = DEVICE_CONSOLE (d); 1072 ev->channel = DEVICE_CONSOLE (d);
1073 ev->event_type = key_press_event; 1073 ev->event_type = key_press_event;
1074 ev->timestamp = event->time; 1074 ev->timestamp = event->time;
1075 #ifdef USE_KKCC
1076 SET_KEY_DATA_MODIFIERS (XKEY_DATA (emacs_event), 0);
1077 SET_KEY_DATA_KEYSYM (XKEY_DATA (emacs_event), make_char (ch));
1078 #else
1075 ev->event.key.modifiers = 0; 1079 ev->event.key.modifiers = 0;
1076 ev->event.key.keysym = make_char (ch); 1080 ev->event.key.keysym = make_char (ch);
1081 #endif
1077 enqueue_Xt_dispatch_event (emacs_event); 1082 enqueue_Xt_dispatch_event (emacs_event);
1078 } 1083 }
1079 Lstream_close (istr); 1084 Lstream_close (istr);
1080 UNGCPRO; 1085 UNGCPRO;
1081 Lstream_delete (istr); 1086 Lstream_delete (istr);