Mercurial > hg > xemacs-beta

diff src/mule-charset.c @ 4805:980575c76541

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move the arabic-iso8859-6 character set back to C, otherwise X11 lookup fails. src/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * mule-charset.c: (syms_of_mule_charset, complex_vars_of_mule_charset): * lisp.h: Restore the creation of arabic-iso8859-6 in C, having it in Lisp isn't sufficient for X11 input to work. lisp/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * unicode.el (load-unicode-tables): * mule/mule-msw-init-late.el: * mule/mule-category.el (predefined-category-list): * mule/arabic.el: Move arabic-iso8859-6 back to C, it needs to be there, otherwise X11 character input lookup fails.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 07 Jan 2010 15:52:10 +0000
parents 0c54de4c4b9d
children 41852ee5f1b0
line wrap: on
line diff
--- a/src/mule-charset.c	Wed Jan 06 16:03:37 2010 -0700
+++ b/src/mule-charset.c	Thu Jan 07 15:52:10 2010 +0000
@@ -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,
@@ -1105,6 +1107,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);
@@ -1228,6 +1231,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,