/* Routines to compute the current syntactic context, for font-lock mode.
Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
Copyright (C) 1995 Sun Microsystems, Inc.
+ Copyright (C) 2001 MORIOKA Tomohiko
This file is part of XEmacs.
/* 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
find_context (struct buffer *buf, Bufpos pt)
{
/* This function can GC */
- struct Lisp_Char_Table *mirrortab =
- XCHAR_TABLE (buf->mirror_syntax_table);
+#ifdef UTF2000
+ Lisp_Char_Table *mirrortab = XCHAR_TABLE (buf->syntax_table);
+#else
+ Lisp_Char_Table *mirrortab = XCHAR_TABLE (buf->mirror_syntax_table);
+#endif
Lisp_Object syntaxtab = buf->syntax_table;
Emchar prev_c, c;
Bufpos target = pt;