(kbd_buffer_get_event) [WINDOWSNT]: Corrected

composing of language-change event.

diff --git a/src/ChangeLog b/src/ChangeLog
index c3ba2dedef7379a5a8b3b335fd219aa818feb305..04348f4fe191c902d45fa3f69adae8c0ea0a69cb 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/src/keyboard.c b/src/keyboard.c
index 1ea807618d2607a7077622cccb879e7d70881e1f..dcb11d75c286bca6bbc62c4cc505a0404c8f7ef2 100644 (file)
--- a/src/keyboard.c
+++ b/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;