Mercurial > hg > xemacs-beta

comparison src/font-lock.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 7df0dd720c89
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
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 struct Lisp_Char_Table *mirrortab = 417 Lisp_Char_Table *mirrortab = XCHAR_TABLE (buf->mirror_syntax_table);
418 XCHAR_TABLE (buf->mirror_syntax_table);
419 Lisp_Object syntaxtab = buf->syntax_table; 418 Lisp_Object syntaxtab = buf->syntax_table;
420 Emchar prev_c, c; 419 Emchar prev_c, c;
421 Bufpos target = pt; 420 Bufpos target = pt;
422 setup_context_cache (buf, pt); 421 setup_context_cache (buf, pt);
423 pt = context_cache.cur_point; 422 pt = context_cache.cur_point;
767 DEFSUBR (Fbuffer_syntactic_context_depth); 766 DEFSUBR (Fbuffer_syntactic_context_depth);
768 DEFSUBR (Fsyntactically_sectionize); 767 DEFSUBR (Fsyntactically_sectionize);
769 } 768 }
770 769
771 void 770 void
772 vars_of_font_lock (void) 771 reinit_vars_of_font_lock (void)
773 { 772 {
774 xzero (context_cache); 773 xzero (context_cache);
775 xzero (bol_context_cache); 774 xzero (bol_context_cache);
776 } 775 }
776
777 void
778 vars_of_font_lock (void)
779 {
780 reinit_vars_of_font_lock ();
781 }