Subject: bug#75431: 31.0.50; Fontification malfunction

From: Eli Zaretskii <[email-masked]>
Date: Wed, 08 Jan 2025 14:38:33 +0200

> From: Johan Ekenberg <[email-masked]>
> Date: Tue, 7 Jan 2025 21:08:09 +0100
> 
> - Start emacs: 'emacs -Q'
> - Paste this function into the scratch buffer and evaluate it:
>   (defun test-org-insertion-fontification ()
>     (interactive)
>     (let* ((chunks
>             '("#+begin_src elisp\n"
>               "(+ 1 2)"
>               "\n#+end_src\n")))
>       (insert "* NOTE: You need to run this with org-mode enabled and point at end of buffer\n\n")
>       (insert "** This code block is fontified correctly\n")
>       (insert (car chunks))
>       (dolist (chunk (cdr chunks))
>         (insert chunk))
> 
>       (insert "\n** But not this code block\n")
>       (insert (car chunks))
>       (dolist (chunk (cdr chunks))
>         (sit-for (/ 10 1000.0)) ; simulate chunks received over network and streamed into buffer
>         ;; The following were also tested one by one instead of the sit-for line above:
>         ;; (redisplay) ; this triggers the bug
>         ;; (force-mode-line-update) ; this does not trigger the bug
>         ;; (read-event nil nil 0) ; this triggers the bug
>         (insert chunk))
>       ))
> - Open an existing or new file/buffer with org-mode enabled (C-x C-f foo.org)
> - Place point at end of buffer
> - M-x test-org-insertion-fontification
> - Optional: replace the line (sit-for...) with any of the lines below it.
> 
> - Additional information: The problem was discovered when receiving
> streamed data responses via the package gptel which is an Emacs LLM
> Client. Here is the reported issue:
> https://github.com/karthink/gptel/issues/550
> 
> - Also replicated on Emacs 29.3

Isn't this an Org problem?  If so, could you please report this to the
Org bug mailing list?