From c1a08b4c81b86edeae97fac439a25124b017863a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 19 Oct 1998 00:40:10 +0000 Subject: [PATCH] (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. --- src/charset.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/src/charset.c b/src/charset.c index fec2888348d..85456203aff 100644 --- a/src/charset.c +++ b/src/charset.c @@ -78,6 +78,11 @@ Lisp_Object Vcharset_list; 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 @@ syms_of_charset () 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 @@ See also the docstring of `make-translation-table'."); 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 */ -- 2.39.2