Don't set invalid text properties

This commit is contained in:
TEC 2024-03-08 00:23:27 +08:00
parent c5f1bc5abe
commit d2de526522
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 1 additions and 1 deletions

View File

@ -158,7 +158,7 @@ This must not include any capturing groups."
(not
(re-search-forward
(rx point (syntax comment-start)) nil t))))))))))
(when multiline
(when (and multiline (< markup-start markup-end))
(put-text-property markup-start markup-end 'font-lock-multiline t))
(set-match-data (and markup-start (list markup-start markup-end)))))