diff options
author | Kenichi Handa <handa@m17n.org> | 2006-06-06 03:48:03 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2006-06-06 03:48:03 +0000 |
commit | c7e14352c6b40009b18875ee1cc988749b28c21f (patch) | |
tree | 02ee9df131bb143a3dbb66baab95c944db26eac2 /src | |
parent | e0d6e5a5a6e795a3d9825db6caaf5f510a2f4b9a (diff) | |
download | emacs-c7e14352c6b40009b18875ee1cc988749b28c21f.tar.gz |
(Vscript_representative_chars): New variable.
(syms_of_character): Declare it as a Lisp variable.
Diffstat (limited to 'src')
-rw-r--r-- | src/character.c | 7 |
1 files changed, 7 insertions, 0 deletions
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 */ |