branch: externals/org-modern
commit 91ad14f155e09a4abdb481b2e6f33ff089ec35f4
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
org-modern-mode: Flush the font locking of the entire buffer (Fix #27)
---
org-modern.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index ad97072290..842a2e1ca4 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -507,10 +507,12 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
'((" \\[\\(\\([0-9]+\\)%\\|\\([0-9]+\\)/\\([0-9]+\\)\\)\\]" (0
(org-modern--statistics)))))))
(font-lock-add-keywords nil org-modern--keywords 'append)
(advice-add #'org-unfontify-region :after #'org-modern--unfontify))
- (t (font-lock-remove-keywords nil org-modern--keywords)
- (let ((org-modern-mode t))
- (org-modern--unfontify (point-min) (point-max)))))
- (font-lock-flush))
+ (t (font-lock-remove-keywords nil org-modern--keywords)))
+ (save-restriction
+ (widen)
+ (let ((org-modern-mode t))
+ (org-modern--unfontify (point-min) (point-max)))
+ (font-lock-flush)))
(defun org-modern--unfontify (beg end &optional _)
"Unfontify prettified elements between BEG and END."
