Mercurial > emacs
changeset 23489:09201cebfa21
(Vauto_fill_chars, Qauto_fill_chars): New variables.
(syms_of_charset): Staticpro and initialize Qauto_fill_chars.
Declare auto-fill-chars as a Lisp variable and initialize it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 19 Oct 1998 00:40:10 +0000 |
| parents | 958ab288116d |
| children | dc320f6914fe |
| files | src/charset.c |
| diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/charset.c Mon Oct 19 00:40:10 1998 +0000 +++ b/src/charset.c Mon Oct 19 00:40:10 1998 +0000 @@ -78,6 +78,11 @@ ID of a translation table is used to index this vector. */ Lisp_Object Vtranslation_table_vector; +/* A char-table for characters which may invoke auto-filling. */ +Lisp_Object Vauto_fill_chars; + +Lisp_Object Qauto_fill_chars; + /* Tables used by macros BYTES_BY_CHAR_HEAD and WIDTH_BY_CHAR_HEAD. */ int bytes_by_char_head[256]; int width_by_char_head[256]; @@ -1870,6 +1875,10 @@ staticpro (&Qcomposition); CHARSET_SYMBOL (CHARSET_COMPOSITION) = Qcomposition; + Qauto_fill_chars = intern ("auto-fill-chars"); + staticpro (&Qauto_fill_chars); + Fput (Qauto_fill_chars, Qchar_table_extra_slots, make_number (0)); + defsubr (&Sdefine_charset); defsubr (&Sgeneric_character_list); defsubr (&Sget_unused_iso_final_char); @@ -1952,6 +1961,13 @@ DEFVAR_INT ("min-composite-char", &min_composite_char, "Minimum character code of a composite character."); min_composite_char = MIN_CHAR_COMPOSITION; + + DEFVAR_LISP ("auto-fill-chars", &Vauto_fill_chars, + "A char-table for characters which invoke auto-filling.\n\ +Such characters has value t in this table."); + Vauto_fill_chars = Fmake_char_table (Qauto_fill_chars, Qnil); + CHAR_TABLE_SET (Vauto_fill_chars, ' ', Qt); + CHAR_TABLE_SET (Vauto_fill_chars, '\n', Qt); } #endif /* emacs */