From: Kenichi Handa <handa@m17n.org>
Date: Tue, 6 Jun 2006 03:48:03 +0000 (+0000)
Subject: (Vscript_representative_chars): New variable.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7e14352c6b40009b18875ee1cc988749b28c21f;p=emacs.git

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

diff --git a/src/character.c b/src/character.c
index 8f6eda9c91e..ca3b136a463 100644
--- a/src/character.c
+++ b/src/character.c
@@ -81,6 +81,9 @@ unsigned char *_fetch_multibyte_char_p;
 /* 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 @@ It has one extra slot whose value is a list of script symbols.  */);
   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 */