procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(jit-lock-after-change): If we're in text that

Browse source 
matches a multi-line font-lock pattern, make sure the whole text
will be redisplayed.
This commit is contained in:
Gerd Moellmann 2000-10-16 13:04:34 +00:00
parent 6569c3d3cd
commit 7a1e3cece9
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/jit-lock.el
View file

@ -420,12 +420,20 @@ will take place when text is fontified stealthily."
(when jit-lock-mode
(save-excursion
(with-buffer-prepared-for-jit-lock
;; If we're in text that matches a multi-line font-lock pattern,
;; make sure the whole text will be redisplayed.
(when (get-text-property start 'font-lock-multiline)
(setq start (or (previous-single-property-change
start 'font-lock-multiline)
(point-min))))
;; It's important that the `fontified' property be set from the
;; beginning of the line, else font-lock will properly change the
;; text's face, but the display will have been done already and will
;; be inconsistent with the buffer's content.
(goto-char start)
(setq start (line-beginning-position))
;; Make sure we change at least one char (in case of deletions).
(setq end (min (max end (1+ start)) (point-max)))
;; Request refontification.