Mercurial > hg > xemacs-beta
diff src/mule-charset.c @ 4833:4dd2389173fc
merge
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sun, 10 Jan 2010 01:06:15 -0600 |
| parents | c12b646d84ee 6f84332672fb |
| children | a98ca4640147 |
line wrap: on
line diff
--- a/src/mule-charset.c Sun Jan 10 00:49:30 2010 -0600 +++ b/src/mule-charset.c Sun Jan 10 01:06:15 2010 -0600 @@ -47,6 +47,7 @@ Lisp_Object Vcharset_latin_iso8859_4; Lisp_Object Vcharset_thai_tis620; Lisp_Object Vcharset_greek_iso8859_7; +Lisp_Object Vcharset_arabic_iso8859_6; Lisp_Object Vcharset_hebrew_iso8859_8; Lisp_Object Vcharset_katakana_jisx0201; Lisp_Object Vcharset_latin_jisx0201; @@ -93,6 +94,7 @@ Qlatin_iso8859_4, Qthai_tis620, Qgreek_iso8859_7, + Qarabic_iso8859_6, Qhebrew_iso8859_8, Qkatakana_jisx0201, Qlatin_jisx0201, @@ -625,7 +627,7 @@ Ibyte tempname[80]; qxesprintf (tempname, "___temporary___%d__", id); - name = intern_int (tempname); + name = Fmake_symbol (build_intstring (tempname)); /* Uninterned. */ } if (NILP (doc_string)) doc_string = build_string (""); @@ -1103,6 +1105,7 @@ DEFSYMBOL (Qlatin_iso8859_4); DEFSYMBOL (Qthai_tis620); DEFSYMBOL (Qgreek_iso8859_7); + DEFSYMBOL (Qarabic_iso8859_6); DEFSYMBOL (Qhebrew_iso8859_8); DEFSYMBOL (Qkatakana_jisx0201); DEFSYMBOL (Qlatin_jisx0201); @@ -1226,6 +1229,15 @@ build_msg_string ("ISO8859-7 (Greek)"), build_msg_string ("ISO8859-7 (Greek)"), vector1(build_string("iso8859-7")), 0, 0); + staticpro (&Vcharset_arabic_iso8859_6); + Vcharset_arabic_iso8859_6 = + make_charset (LEADING_BYTE_ARABIC_ISO8859_6, Qarabic_iso8859_6, 2, + CHARSET_TYPE_96, 1, 1, 'G', + CHARSET_RIGHT_TO_LEFT, + build_string ("ISO8859-6"), + build_msg_string ("ISO8859-6 (Arabic)"), + build_msg_string ("ISO8859-6 (Arabic)"), + vector1(build_string ("iso8859-6")), 0, 0); staticpro (&Vcharset_hebrew_iso8859_8); Vcharset_hebrew_iso8859_8 = make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2,