From: João Távora 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))