308 |
Lisp_Object Qdefault_char; |
Lisp_Object Qdefault_char; |
309 |
Lisp_Object Qno_conversion, Qundecided; |
Lisp_Object Qno_conversion, Qundecided; |
310 |
Lisp_Object Qcharset, Qiso_2022, Qutf_8, Qutf_16, Qshift_jis, Qbig5; |
Lisp_Object Qcharset, Qiso_2022, Qutf_8, Qutf_16, Qshift_jis, Qbig5; |
|
Lisp_Object Qutf_16_be_nosig, Qutf_16_be, Qutf_16_le_nosig, Qutf_16_le; |
|
311 |
Lisp_Object Qsignature, Qendian, Qbig, Qlittle; |
Lisp_Object Qsignature, Qendian, Qbig, Qlittle; |
312 |
Lisp_Object Qcoding_system_history; |
Lisp_Object Qcoding_system_history; |
313 |
Lisp_Object Qvalid_codes; |
Lisp_Object Qvalid_codes; |
1404 |
if (bom == utf_16_with_bom) |
if (bom == utf_16_with_bom) |
1405 |
{ |
{ |
1406 |
if (endian == utf_16_big_endian |
if (endian == utf_16_big_endian |
1407 |
? c != 0xFFFE : c != 0xFEFF) |
? c != 0xFEFF : c != 0xFFFE) |
1408 |
{ |
{ |
1409 |
/* We are sure that there's enouph room at CHARBUF. */ |
/* We are sure that there's enouph room at CHARBUF. */ |
1410 |
*charbuf++ = c1; |
*charbuf++ = c1; |
1414 |
} |
} |
1415 |
else |
else |
1416 |
{ |
{ |
1417 |
if (c == 0xFFFE) |
if (c == 0xFEFF) |
1418 |
CODING_UTF_16_ENDIAN (coding) |
CODING_UTF_16_ENDIAN (coding) |
1419 |
= endian = utf_16_big_endian; |
= endian = utf_16_big_endian; |
1420 |
else if (c == 0xFEFF) |
else if (c == 0xFFFE) |
1421 |
CODING_UTF_16_ENDIAN (coding) |
CODING_UTF_16_ENDIAN (coding) |
1422 |
= endian = utf_16_little_endian; |
= endian = utf_16_little_endian; |
1423 |
else |
else |
1504 |
{ |
{ |
1505 |
ASSURE_DESTINATION (safe_room); |
ASSURE_DESTINATION (safe_room); |
1506 |
if (big_endian) |
if (big_endian) |
|
EMIT_TWO_BYTES (0xFF, 0xFE); |
|
|
else |
|
1507 |
EMIT_TWO_BYTES (0xFE, 0xFF); |
EMIT_TWO_BYTES (0xFE, 0xFF); |
1508 |
|
else |
1509 |
|
EMIT_TWO_BYTES (0xFF, 0xFE); |
1510 |
CODING_UTF_16_BOM (coding) = utf_16_without_bom; |
CODING_UTF_16_BOM (coding) = utf_16_without_bom; |
1511 |
} |
} |
1512 |
|
|
8412 |
DEFSYM (Qutf_8, "utf-8"); |
DEFSYM (Qutf_8, "utf-8"); |
8413 |
|
|
8414 |
DEFSYM (Qutf_16, "utf-16"); |
DEFSYM (Qutf_16, "utf-16"); |
|
DEFSYM (Qutf_16_be, "utf-16-be"); |
|
|
DEFSYM (Qutf_16_be_nosig, "utf-16-be-nosig"); |
|
|
DEFSYM (Qutf_16_le, "utf-16-l3"); |
|
|
DEFSYM (Qutf_16_le_nosig, "utf-16-le-nosig"); |
|
8415 |
DEFSYM (Qsignature, "signature"); |
DEFSYM (Qsignature, "signature"); |
8416 |
DEFSYM (Qendian, "endian"); |
DEFSYM (Qendian, "endian"); |
8417 |
DEFSYM (Qbig, "big"); |
DEFSYM (Qbig, "big"); |