Mercurial > hg > xemacs-beta
diff src/event-Xt.c @ 189:489f57a838ef r20-3b21
Import from CVS: tag r20-3b21
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:57:07 +0200 |
| parents | b405438285a2 |
| children | acd284d43ca1 |
line wrap: on
line diff
--- a/src/event-Xt.c Mon Aug 13 09:56:30 2007 +0200 +++ b/src/event-Xt.c Mon Aug 13 09:57:07 2007 +0200 @@ -849,7 +849,7 @@ GCPRO2 (instream, fb_instream); while ((ch = Lstream_get_emchar (istr)) != EOF) { - Lisp_Object emacs_event = Fmake_event (); + Lisp_Object emacs_event = Fmake_event (Qnil, Qnil); struct Lisp_Event *ev = XEVENT (emacs_event); ev->channel = DEVICE_CONSOLE (d); ev->event_type = key_press_event; @@ -2149,7 +2149,7 @@ signal_special_Xt_user_event (Lisp_Object channel, Lisp_Object function, Lisp_Object object) { - Lisp_Object event = Fmake_event (); + Lisp_Object event = Fmake_event (Qnil, Qnil); XEVENT (event)->event_type = misc_user_event; XEVENT (event)->channel = channel; @@ -2242,7 +2242,7 @@ XEvent *event, Boolean *continue_to_dispatch /* unused */) { - Lisp_Object emacs_event = Fmake_event (); + Lisp_Object emacs_event = Fmake_event (Qnil, Qnil); #ifdef DEBUG_XEMACS if (x_debug_events > 0) @@ -2359,7 +2359,7 @@ if (!poll_fds_for_input (temp_mask)) return; - event = Fmake_event (); + event = Fmake_event (Qnil, Qnil); if (!read_event_from_tty_or_stream_desc (XEVENT (event), con, infd)) /* EOF, or something ... */ return;