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;
 }