[elpa] externals/org-modern 5f132cd720 54/65: Fix statistics face

[ELPA Syncer]

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