/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.239.2.46 by fx, Thu Feb 13 22:23:01 2003 UTC revision 1.239.2.47 by handa, Fri Mar 28 04:09:32 2003 UTC
# Line 308  Lisp_Object Qpost_read_conversion, Qpre_ Line 308  Lisp_Object Qpost_read_conversion, Qpre_
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;
# Line 1405  decode_coding_utf_16 (coding) Line 1404  decode_coding_utf_16 (coding)
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;
# Line 1415  decode_coding_utf_16 (coding) Line 1414  decode_coding_utf_16 (coding)
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
# Line 1505  encode_coding_utf_16 (coding) Line 1504  encode_coding_utf_16 (coding)
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    
# Line 8413  syms_of_coding () Line 8412  syms_of_coding ()
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");

Legend:
Removed from v.1.239.2.46  
changed lines
  Added in v.1.239.2.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26