Commit e125dce5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(jit-lock-deferred-fontify): Pay attention to skipped redisplays

* lisp/jit-lock.el (jit-lock-deferred-fontify): Make sure we refresh
the buffers, even if the forced redisplay is interrupted.
parent b2615c75
......@@ -583,11 +583,13 @@ non-nil in a repeated invocation of this function."
'fontified nil))
(setq pos (next-single-property-change
pos 'fontified)))))))))
(setq jit-lock-defer-buffers nil)
;; Force fontification of the visible parts.
(let ((jit-lock-defer-timer nil))
(let ((buffers jit-lock-defer-buffers)
(jit-lock-defer-timer nil))
(setq jit-lock-defer-buffers nil)
;; (message "Jit-Defer Now")
(sit-for 0)
(unless (redisplay) ;FIXME: Should we `force'?
(setq jit-lock-defer-buffers buffers))
;; (message "Jit-Defer Done")
)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment