Mercurial > hg > xemacs-beta

comparison src/font-lock.c @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 11054d720c21
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
412 412
413 static void 413 static void
414 find_context (struct buffer *buf, Bufpos pt) 414 find_context (struct buffer *buf, Bufpos pt)
415 { 415 {
416 /* This function can GC */ 416 /* This function can GC */
417 Lisp_Char_Table *mirrortab = XCHAR_TABLE (buf->mirror_syntax_table); 417 struct Lisp_Char_Table *mirrortab =
418 XCHAR_TABLE (buf->mirror_syntax_table);
418 Lisp_Object syntaxtab = buf->syntax_table; 419 Lisp_Object syntaxtab = buf->syntax_table;
419 Emchar prev_c, c; 420 Emchar prev_c, c;
420 Bufpos target = pt; 421 Bufpos target = pt;
421 setup_context_cache (buf, pt); 422 setup_context_cache (buf, pt);
422 pt = context_cache.cur_point; 423 pt = context_cache.cur_point;
766 DEFSUBR (Fbuffer_syntactic_context_depth); 767 DEFSUBR (Fbuffer_syntactic_context_depth);
767 DEFSUBR (Fsyntactically_sectionize); 768 DEFSUBR (Fsyntactically_sectionize);
768 } 769 }
769 770
770 void 771 void
771 reinit_vars_of_font_lock (void) 772 vars_of_font_lock (void)
772 { 773 {
773 xzero (context_cache); 774 xzero (context_cache);
774 xzero (bol_context_cache); 775 xzero (bol_context_cache);
775 } 776 }
776
777 void
778 vars_of_font_lock (void)
779 {
780 reinit_vars_of_font_lock ();
781 }