mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(jit-lock-after-change): Check the font-lock-multiline

Browse source 
text-property after moving to the beginning of line and regardless
of the value of font-lock-multiline.
This commit is contained in:
Stefan Monnier 2001-05-17 13:29:44 +00:00
parent 357da0ed2f
commit df22166e16
2 changed files with 18 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/jit-lock.el
View file

@ -426,14 +426,6 @@ 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 (and font-lock-multiline
(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
@ -441,6 +433,13 @@ will take place when text is fontified stealthily."
(goto-char start)
(setq start (line-beginning-position))
;; 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))))
;; Make sure we change at least one char (in case of deletions).
(setq end (min (max end (1+ start)) (point-max)))
;; Request refontification.