emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-modern 91ad14f155: org-modern-mode: Flush the font


From: ELPA Syncer
Subject: [elpa] externals/org-modern 91ad14f155: org-modern-mode: Flush the font locking of the entire buffer (Fix #27)
Date: Mon, 21 Mar 2022 11:57:45 -0400 (EDT)

branch: externals/org-modern
commit 91ad14f155e09a4abdb481b2e6f33ff089ec35f4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]