(kbd_buffer_get_event) [WINDOWSNT]: Corrected

composing of language-change event.

src/ChangeLog

+2002-02-20  Kim F. Storm  <storm@cua.dk>
+
+	* keyboard.c (kbd_buffer_get_event) [WINDOWSNT]: Corrected
+	composing of language-change event.
+
 2002-02-20  Kim F. Storm  <storm@cua.dk>
 
 	* keyboard.c (menu_bar_items): Don't include keymap or local-map

src/keyboard.c

@@ -3721,7 +3721,7 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
 	{
 	  /* Make an event (language-change (FRAME CHARSET LCID)).  */
 	  obj = Fcons (event->modifiers, Qnil);
-	  obj = Fcons (event->code, Qnil);
+	  obj = Fcons (event->code, obj);
 	  obj = Fcons (event->frame_or_window, obj);
 	  obj = Fcons (Qlanguage_change, Fcons (obj, Qnil));
 	  kbd_fetch_ptr = event + 1;