From: João Távora <joaotavora@gmail.com>
Date: Fri, 12 Jul 2019 18:42:43 +0000 (+0100)
Subject: Consider jit-lock-antiblink when fontifying "on demand"
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0abbf28576be00e33e56a6abf2e9e27ef02cb47;p=emacs.git

Consider jit-lock-antiblink when fontifying "on demand"

* lisp/jit-lock.el (jit-lock-function): Consider
jit-lock--antiblink-grace-timer.
---

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 7ae79f057b7..d881fb4b19f 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -362,7 +362,11 @@ is active."
                   (or (not (eq jit-lock-defer-time 0))
                       (input-pending-p))))
 	;; No deferral.
-	(jit-lock-fontify-now start (+ start jit-lock-chunk-size))
+        (if jit-lock--antiblink-grace-timer
+            ;; If we're in the `jit-lock--antiblink-grace', do it only
+            ;; until line end
+            (jit-lock-fontify-now start (line-end-position))
+            (jit-lock-fontify-now start (+ start jit-lock-chunk-size)))
       ;; Record the buffer for later fontification.
       (unless (memq (current-buffer) jit-lock-defer-buffers)
 	(push (current-buffer) jit-lock-defer-buffers))