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 7ae79f057b795959d6e4c0b9df1ed45fce543036..d881fb4b19f9c5078fb1ab1d1ba1f09c87ac57c8 100644 (file)
--- 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))