diff options
Diffstat (limited to 'src/w32proc.c')
| -rw-r--r-- | src/w32proc.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/w32proc.c b/src/w32proc.c index c571726d70f..26cfa2996d0 100644 --- a/src/w32proc.c +++ b/src/w32proc.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Process support for GNU Emacs on the Microsoft Windows API. | 1 | /* Process support for GNU Emacs on the Microsoft Windows API. |
| 2 | 2 | ||
| 3 | Copyright (C) 1992, 1995, 1999-2014 Free Software Foundation, Inc. | 3 | Copyright (C) 1992, 1995, 1999-2015 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -72,8 +72,6 @@ extern BOOL WINAPI IsValidLocale (LCID, DWORD); | |||
| 72 | + ((DWORD_PTR)(var) - (section)->VirtualAddress) \ | 72 | + ((DWORD_PTR)(var) - (section)->VirtualAddress) \ |
| 73 | + (filedata).file_base)) | 73 | + (filedata).file_base)) |
| 74 | 74 | ||
| 75 | Lisp_Object Qhigh, Qlow; | ||
| 76 | |||
| 77 | /* Signal handlers...SIG_DFL == 0 so this is initialized correctly. */ | 75 | /* Signal handlers...SIG_DFL == 0 so this is initialized correctly. */ |
| 78 | static signal_handler sig_handlers[NSIG]; | 76 | static signal_handler sig_handlers[NSIG]; |
| 79 | 77 | ||
| @@ -3070,7 +3068,12 @@ If successful, the new CP is returned, otherwise nil. */) | |||
| 3070 | DEFUN ("w32-get-codepage-charset", Fw32_get_codepage_charset, | 3068 | DEFUN ("w32-get-codepage-charset", Fw32_get_codepage_charset, |
| 3071 | Sw32_get_codepage_charset, 1, 1, 0, | 3069 | Sw32_get_codepage_charset, 1, 1, 0, |
| 3072 | doc: /* Return charset ID corresponding to codepage CP. | 3070 | doc: /* Return charset ID corresponding to codepage CP. |
| 3073 | Returns nil if the codepage is not valid. */) | 3071 | Returns nil if the codepage is not valid or its charset ID could |
| 3072 | not be determined. | ||
| 3073 | |||
| 3074 | Note that this function is only guaranteed to work with ANSI | ||
| 3075 | codepages; most console codepages are not supported and will | ||
| 3076 | yield nil. */) | ||
| 3074 | (Lisp_Object cp) | 3077 | (Lisp_Object cp) |
| 3075 | { | 3078 | { |
| 3076 | CHARSETINFO info; | 3079 | CHARSETINFO info; |