77 |
unsigned char *_fetch_multibyte_char_p; |
unsigned char *_fetch_multibyte_char_p; |
78 |
int _fetch_multibyte_char_len; |
int _fetch_multibyte_char_len; |
79 |
|
|
80 |
/* Alist of scripts vs character ranges. */ |
/* Char table of scripts. */ |
81 |
Lisp_Object Vscript_alist; |
Lisp_Object Vchar_script_table; |
82 |
|
|
83 |
|
static Lisp_Object Qchar_script_table; |
84 |
|
|
85 |
|
|
86 |
|
|
87 |
|
|
923 |
doc: /* A char-table for each printable character. */); |
doc: /* A char-table for each printable character. */); |
924 |
Vprintable_chars = Fmake_char_table (Qnil, Qnil); |
Vprintable_chars = Fmake_char_table (Qnil, Qnil); |
925 |
|
|
926 |
DEFVAR_LISP ("script-alist", &Vscript_alist, |
DEFVAR_LISP ("char-script-table", &Vchar_script_table, |
927 |
doc: /* Alist of scripts vs the corresponding character ranges. |
doc: /* Char table of script symbols. |
928 |
Each element has this form: |
It has one extra slot whose value is a list of script symbols. */); |
929 |
( SCRIPT (FROM-1 . TO-1) (FROM-2 . TO-2) ...) |
|
930 |
SCRIPT is a symbol representing a script name. |
/* Intern this now in case it isn't already done. |
931 |
FROM-n and TO-n specifies ranges of characters that belongs to SCRIPT. */); |
Setting this variable twice is harmless. |
932 |
Vscript_alist = Qnil; |
But don't staticpro it here--that is done in alloc.c. */ |
933 |
|
Qchar_table_extra_slots = intern ("char-table-extra-slots"); |
934 |
|
DEFSYM (Qchar_script_table, "char-script-table"); |
935 |
|
Fput (Qchar_script_table, Qchar_table_extra_slots, make_number (1)); |
936 |
|
Vchar_script_table = Fmake_char_table (Qchar_script_table, Qnil); |
937 |
} |
} |
938 |
|
|
939 |
#endif /* emacs */ |
#endif /* emacs */ |