branch: externals/org-modern
commit 5f132cd720b108dc46d83018e604517a925b537d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix statistics face
---
org-modern.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 766228d0f1..2892b86ecc 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -242,7 +242,7 @@ Set to nil to disable the indicator."
(defun org-modern--statistics ()
"Prettify headline todo statistics."
- (let ((label (propertize (match-string 1) 'face 'org-modern-statistics)))
+ (let ((label (substring-no-properties (match-string 1))))
(when org-modern-progress
(let ((idx (floor
(* (1- (length org-modern-progress))
@@ -254,10 +254,8 @@ Set to nil to disable the indicator."
(/ (* 1.0 (string-to-number (match-string 3)))
q))))))))
(setq label (concat (aref org-modern-progress idx) " " label))))
(setq label (concat " " label " "))
- (add-face-text-property 0 (length label)
- 'org-modern-statistics 'append label)
- (put-text-property (1- (match-beginning 1)) (1+ (match-end 1))
- 'display label)))
+ (add-text-properties (1- (match-beginning 1)) (1+ (match-end 1))
+ `(display ,label face org-modern-statistics))))
(defun org-modern--tag ()
"Prettify headline tags."
