diff src/character.c @ 90403:81f1bbab281f

(Vscript_representative_chars): New variable. (syms_of_character): Declare it as a Lisp variable.

--- a/src/character.c	Tue Jun 06 03:47:49 2006 +0000
+++ b/src/character.c	Tue Jun 06 03:48:03 2006 +0000
@@ -81,6 +81,9 @@
 /* Char table of scripts.  */
 Lisp_Object Vchar_script_table;
 
+/* Alist of scripts vs representative characters.  */
+Lisp_Object Vscript_representative_chars;
+
 static Lisp_Object Qchar_script_table;
 
 /* Mapping table from unibyte chars to multibyte chars.  */
@@ -983,6 +986,10 @@
   DEFSYM (Qchar_script_table, "char-script-table");
   Fput (Qchar_script_table, Qchar_table_extra_slots, make_number (1));
   Vchar_script_table = Fmake_char_table (Qchar_script_table, Qnil);
+
+  DEFVAR_LISP ("script-representative-chars", &Vscript_representative_chars,
+	       doc: /* Alist of scripts vs the representative characters.  */);
+  Vscript_representative_chars = Qnil;
 }
 
 #endif /* emacs */