tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-macs.el: Fix fontification checks take 2

This commit is contained in:
Ihor Radchenko 2022-01-29 20:02:20 +08:00
parent d2775da08d
commit 062e30be8a
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-macs.el
View File

@ -1192,7 +1192,8 @@ so values can contain further %-escapes if they are define later in TABLE."
"Return fontified region between BEG and END."
(when (bound-and-true-p jit-lock-mode)
(org-with-forced-fontification
(when (text-property-not-all beg end 'org-fold-core-fontified t)
(when (or (text-property-not-all beg end 'org-fold-core-fontified t)
(text-property-not-all beg end 'fontified t))
(save-match-data (font-lock-fontify-region beg end)))))
(buffer-substring beg end))
@ -1201,9 +1202,12 @@ so values can contain further %-escapes if they are define later in TABLE."
(prog1 (looking-at re)
(when (bound-and-true-p jit-lock-mode)
(org-with-forced-fontification
(when (text-property-not-all
(match-beginning 0) (match-end 0)
'org-fold-core-fontified t)
(when (or (text-property-not-all
(match-beginning 0) (match-end 0)
'org-fold-core-fontified t)
(text-property-not-all
(match-beginning 0) (match-end 0)
'fontified t))
(save-match-data
(font-lock-fontify-region (match-beginning 0)
(match-end 0))))))))