Mercurial > emacs
changeset 55468:f13a7f45ce0f
(Vw32_ansi_code_page): New Lisp variable.
(globals_of_w32fns): Set it.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sun, 09 May 2004 15:02:14 +0000 |
| parents | 5410afb1fc03 |
| children | df6db683f4f1 |
| files | src/w32fns.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/w32fns.c Sun May 09 15:01:17 2004 +0000 +++ b/src/w32fns.c Sun May 09 15:02:14 2004 +0000 @@ -234,6 +234,9 @@ 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 @@ /* 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