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; ...@@ -234,6 +234,9 @@ Lisp_Object Qw32_charset_mac;
Lisp_Object Qw32_charset_unicode; Lisp_Object Qw32_charset_unicode;
#endif #endif
/* The ANSI codepage. */
Lisp_Object Vw32_ansi_code_page;
/* Prefix for system colors. */ /* Prefix for system colors. */
#define SYSTEM_COLOR_PREFIX "System" #define SYSTEM_COLOR_PREFIX "System"
#define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1) #define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1)
...@@ -8793,6 +8796,11 @@ void globals_of_w32fns () ...@@ -8793,6 +8796,11 @@ void globals_of_w32fns ()
/* ditto for GetClipboardSequenceNumber. */ /* ditto for GetClipboardSequenceNumber. */
clipboard_sequence_fn = (ClipboardSequence_Proc) clipboard_sequence_fn = (ClipboardSequence_Proc)
GetProcAddress (user32_lib, "GetClipboardSequenceNumber"); 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 #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