Commit 4bf91535 authored by Jason Rumney's avatar Jason Rumney

(Vw32_ansi_code_page): New Lisp variable.

(globals_of_w32fns): Set it.
parent b0efcd2e
......@@ -234,6 +234,9 @@ Lisp_Object Qw32_charset_mac;
Lisp_Object Qw32_charset_unicode;
#endif
/* The ANSI codepage. */
Lisp_Object Vw32_ansi_code_page;
/* Prefix for system colors. */
#define SYSTEM_COLOR_PREFIX "System"
#define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1)
......@@ -8793,6 +8796,11 @@ void globals_of_w32fns ()
/* ditto for GetClipboardSequenceNumber. */
clipboard_sequence_fn = (ClipboardSequence_Proc)
GetProcAddress (user32_lib, "GetClipboardSequenceNumber");
DEFVAR_INT ("w32-ansi-code-page",
&Vw32_ansi_code_page,
doc: /* The ANSI code page used by the system. */);
XSETINT (Vw32_ansi_code_page, GetACP ());
}
#undef abort
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment