Re: fontification loop

[Andreas Seltenreich]

Richard Stallman <address@hidden> writes:

> Can you use the Lisp debugger to see what is calling the
> fontification-functions?

They're called via redisplay (handle_fontified_prop in xdisp.c). The
redisplay itself is triggered by a timer calling
jit-lock-fontify-again, which in turn is repeatedly setup by
jit-lock-fontify-now.

ISTM that fontification-functions are supposed to be called with
start=706 instead of 709 after the call to jit-lock-fontify-again,
which would prevent the loop.

Here's a more elaborate trace (I dunno if there is more elegant way to
debug this):

======================================================================
1 -> jit-lock-fontify-again: buf=#<buffer *fontification loop*> start=706 
end=709
1 <- jit-lock-fontify-again: nil
======================================================================
1 -> jit-lock-function: start=709
| 2 -> jit-lock-fontify-now: start=709 end=1209
| | 3 -> font-lock-fontify-region: beg=706 end=709 loudly=nil
| | | 4 -> font-lock-set-defaults:
| | | 4 <- font-lock-set-defaults: nil
| | | 4 -> font-lock-default-fontify-region: beg=706 end=709 loudly=nil
| | | | 5 -> font-lock-extend-region-wholelines:
| | | | 5 <- font-lock-extend-region-wholelines: t
| | | | 5 -> font-lock-extend-region-multiline:
| | | | 5 <- font-lock-extend-region-multiline: nil
| | | | 5 -> font-lock-unfontify-region: beg=706 end=709
| | | | | 6 -> font-lock-default-unfontify-region: beg=706 end=709
| | | | | | 7 -> remove-list-of-text-properties: start=706 end=709 
list-of-proper\
ties=(face font-lock-multiline) object=nil
| | | | | | 7 <- remove-list-of-text-properties: nil
| | | | | 6 <- font-lock-default-unfontify-region: nil
| | | | 5 <- font-lock-unfontify-region: nil
| | | | 5 -> font-lock-fontify-syntactically-region: start=706 end=709 
loudly=nil\
 ppss=nil
| | | | 5 <- font-lock-fontify-syntactically-region: nil
| | | | 5 -> font-lock-fontify-keywords-region: start=706 end=709 loudly=nil
| | | | 5 <- font-lock-fontify-keywords-region: #<marker in no buffer>
| | | 4 <- font-lock-default-fontify-region: nil
| | 3 <- font-lock-fontify-region: nil
| 2 <- jit-lock-fontify-now: nil
1 <- jit-lock-function: nil
======================================================================
[repeat]