X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Ffont-lock.c;h=6cd74d731efc5b89c252d112cb6846142ddc9991;hb=f17de6fca511ac824ce47a64a740e3b7a3d0c75e;hp=cefa0d5ed8559cbba8f593000c8f52d200a3fea8;hpb=2e3e3f9ee27fec50f45c282d71eaddf7c673bc56;p=chise%2Fxemacs-chise.git-

diff --git a/src/font-lock.c b/src/font-lock.c
index cefa0d5..6cd74d7 100644
--- a/src/font-lock.c
+++ b/src/font-lock.c
@@ -368,8 +368,8 @@ setup_context_cache (struct buffer *buf, Bufpos pt)
       /* OK, fine. */
       return;
 #if 0
-    /* This appears to cause huge slowdowns in files like
-       emacsfns.h, which have no top-level forms.
+    /* This appears to cause huge slowdowns in files which have no
+       top-level forms.
 
        In any case, it's not really necessary that we know for
        sure the top-level form we're in; if we're in a form
@@ -414,8 +414,7 @@ static void
 find_context (struct buffer *buf, Bufpos pt)
 {
   /* This function can GC */
-  struct Lisp_Char_Table *mirrortab =
-    XCHAR_TABLE (buf->mirror_syntax_table);
+  Lisp_Char_Table *mirrortab = XCHAR_TABLE (buf->mirror_syntax_table);
   Lisp_Object syntaxtab = buf->syntax_table;
   Emchar prev_c, c;
   Bufpos target = pt;
@@ -769,8 +768,14 @@ syms_of_font_lock (void)
 }
 
 void
-vars_of_font_lock (void)
+reinit_vars_of_font_lock (void)
 {
   xzero (context_cache);
   xzero (bol_context_cache);
 }
+
+void
+vars_of_font_lock (void)
+{
+  reinit_vars_of_font_lock ();
+}