Mercurial > hg > xemacs-beta
diff src/cmds.c @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:20:41 +0200 |
parents | 2f8bb876ab1d |
children |
line wrap: on
line diff
--- a/src/cmds.c Mon Aug 13 11:19:22 2007 +0200 +++ b/src/cmds.c Mon Aug 13 11:20:41 2007 +0200 @@ -41,9 +41,6 @@ /* This is the command that set up Vself_insert_face. */ Lisp_Object Vself_insert_face_command; - -/* A char-table for characters which may invoke auto-filling. */ -Lisp_Object Vauto_fill_chars; DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /* Move point right N characters (left if N negative). @@ -330,7 +327,7 @@ REGISTER enum syntaxcode synt; REGISTER Emchar c2; Lisp_Object overwrite; - Lisp_Char_Table *syntax_table; + struct Lisp_Char_Table *syntax_table; struct buffer *buf = current_buffer; int tab_width; @@ -399,9 +396,7 @@ #endif /* FSFmacs */ } } - if ((CHAR_TABLEP (Vauto_fill_chars) - ? !NILP (XCHAR_TABLE_VALUE_UNSAFE (Vauto_fill_chars, c1)) - : (c1 == ' ' || c1 == '\n')) + if ((c1 == ' ' || c1 == '\n') && !noautofill && !NILP (buf->auto_fill_function)) { @@ -503,12 +498,4 @@ More precisely, a char with closeparen syntax is self-inserted. */ ); Vblink_paren_function = Qnil; - - DEFVAR_LISP ("auto-fill-chars", &Vauto_fill_chars /* -A char-table for characters which invoke auto-filling. -Such characters has value t in this table. -*/); - Vauto_fill_chars = Fmake_char_table (Qgeneric); - XCHAR_TABLE (Vauto_fill_chars)->ascii[' '] = Qt; - XCHAR_TABLE (Vauto_fill_chars)->ascii['\n'] = Qt; }