Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Small fix in font-lock-extend-region-multiline

Browse source 
* lisp/font-lock.el (font-lock-extend-region-multiline): Do not
extend the region if `font-lock-multiline' starts at
`font-lock-end' (bug#46558).
This commit is contained in:
Sébastien Miquel 2022-06-19 15:12:44 +02:00 committed by Lars Ingebrigtsen
parent 37f168afdd
commit e125d4b820
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/font-lock.el
View file

@ -1245,12 +1245,17 @@ Put first the functions more likely to cause a change and cheaper to compute.")
(setq font-lock-beg (or (previous-single-property-change
font-lock-beg 'font-lock-multiline)
(point-min))))
;;
(when (get-text-property font-lock-end 'font-lock-multiline)
(setq changed t)
(setq font-lock-end (or (text-property-any font-lock-end (point-max)
'font-lock-multiline nil)
(point-max))))
;; If `font-lock-multiline' starts at `font-lock-end', do not
;; extend the region.
(let ((before-end (max (point-min) (1- font-lock-end)))
(new-end nil))
(when (get-text-property before-end 'font-lock-multiline)
(setq new-end (or (text-property-any before-end (point-max)
'font-lock-multiline nil)
(point-max)))
(when (/= new-end font-lock-end)
(setq changed t)
(setq font-lock-end new-end))))
changed))
(defun font-lock-extend-region-wholelines ()