Improve and document the language-change event on MS-Windows.

 src/keyboard.c (kbd_buffer_get_event): Include the codepage and the
 language ID in the event parameters.
 src/w32term.c (w32_read_socket): Put the new keyboard codepage into
 event.code, not the obscure "character set ID".
 doc/lispref/commands.texi (Misc Events): Document the language-change event.

3 files changed, 16 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 2266ccc49ef..a01a93f86e9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
+2012-06-23  Eli Zaretskii  <eliz@gnu.org>
+
+        * keyboard.c (kbd_buffer_get_event): Include the codepage and the
+        language ID in the event parameters.
+
+        * w32term.c (w32_read_socket): Put the new keyboard codepage into
+        event.code, not the obscure "character set ID".
+
 2012-06-23  Chong Yidong  <cyd@gnu.org>
 
         * xmenu.c (x_menu_wait_for_event): Adapt GTK3 to new xg_select.
diff --git a/src/keyboard.c b/src/keyboard.c
index 9b80c5c7019..0e8d22c2b1c 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3982,9 +3982,11 @@ kbd_buffer_get_event (KBOARD **kbp,
 #if defined (WINDOWSNT)
       else if (event->kind == LANGUAGE_CHANGE_EVENT)
         {
-          /* Make an event (language-change (FRAME CHARSET LCID)).  */
-          obj = Fcons (event->frame_or_window, Qnil);
-          obj = Fcons (Qlanguage_change, Fcons (obj, Qnil));
+          /* Make an event (language-change (FRAME CODEPAGE LANGUAGE-ID)).  */
+          obj = Fcons (Qlanguage_change,
+                       list3 (event->frame_or_window,
+                              make_number (event->code),
+                              make_number (event->modifiers)));
           kbd_fetch_ptr = event + 1;
         }
 #endif
diff --git a/src/w32term.c b/src/w32term.c
index 6a4b3ca4afb..4f4fa220a7b 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -4234,8 +4234,8 @@ w32_read_socket (struct terminal *terminal, int expected,
           /* Generate a language change event.  */
           f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
 
-          /* lParam contains the input lang ID.  Use it to update our
-             record of the keyboard codepage.  */
+          /* lParam contains the input language ID in its low 16 bits.
+             Use it to update our record of the keyboard codepage.  */
           keyboard_codepage = codepage_for_locale ((LCID)(msg.msg.lParam
                                                           & 0xffff));
 
@@ -4243,7 +4243,7 @@ w32_read_socket (struct terminal *terminal, int expected,
             {
               inev.kind = LANGUAGE_CHANGE_EVENT;
               XSETFRAME (inev.frame_or_window, f);
-              inev.code = msg.msg.wParam;
+              inev.code = keyboard_codepage;
               inev.modifiers = msg.msg.lParam & 0xffff;
             }
           break;