From c7e14352c6b40009b18875ee1cc988749b28c21f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 6 Jun 2006 03:48:03 +0000 Subject: [PATCH] (Vscript_representative_chars): New variable. (syms_of_character): Declare it as a Lisp variable. --- src/character.c | 7 +++++++ 1 file changed, 7 insertions(+) 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 */ -- 2.39.5