(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.
This commit is contained in:
parent
b2615c753b
commit
e125dce50b
1 changed files with 5 additions and 3 deletions
|
@ -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")
|
||||
)))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue