Mercurial > hg > xemacs-beta
comparison src/intl-win32.c @ 5438:8d29f1c4bb98
Merge with 21.5 trunk.
author | Mats Lidell <matsl@xemacs.org> |
---|---|
date | Fri, 26 Nov 2010 06:43:36 +0100 |
parents | 308d34e9f07d c096d8051f89 |
children | 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
5437:002cb5224e4f | 5438:8d29f1c4bb98 |
---|---|
1788 data->cp_type = MULTIBYTE_EBCDIC; | 1788 data->cp_type = MULTIBYTE_EBCDIC; |
1789 else if (EQ (value, Qmac)) | 1789 else if (EQ (value, Qmac)) |
1790 data->cp_type = MULTIBYTE_MAC; | 1790 data->cp_type = MULTIBYTE_MAC; |
1791 else | 1791 else |
1792 { | 1792 { |
1793 CHECK_NATNUM (value); | |
1794 data->locale_type = MULTIBYTE_SPECIFIED_CODE_PAGE; | 1793 data->locale_type = MULTIBYTE_SPECIFIED_CODE_PAGE; |
1795 data->cp = XINT (value); | 1794 #ifdef HAVE_BIGNUM |
1795 check_integer_range (value, Qzero, make_integer (INT_MAX)); | |
1796 data->cp = BIGNUMP (value) ? bignum_to_int (XBIGNUM_DATA (value)) : XINT (value); | |
1797 #else | |
1798 CHECK_NATNUM (value); | |
1799 data->cp = XINT (value); | |
1800 #endif | |
1796 } | 1801 } |
1797 } | 1802 } |
1798 else if (EQ (key, Qlocale)) | 1803 else if (EQ (key, Qlocale)) |
1799 { | 1804 { |
1800 if (EQ (value, Qcurrent)) | 1805 if (EQ (value, Qcurrent)) |