From: Kim F. Storm <storm@cua.dk>
Date: Wed, 20 Feb 2002 23:01:48 +0000 (+0000)
Subject: (kbd_buffer_get_event) [WINDOWSNT]: Corrected
X-Git-Tag: ttn-vms-21-2-B4~16551
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15fdc2e38b2a87a1a454c2e258faaa7a6bff6bc8;p=emacs.git

(kbd_buffer_get_event) [WINDOWSNT]: Corrected
composing of language-change event.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index c3ba2dedef7..04348f4fe19 100644
--- 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 1ea807618d2..dcb11d75c28 100644
--- 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;