branch: externals/org-modern
commit 567b702ad0aedbab3451a9e064abb23d1bb275c2
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>

    Do not use :inherit when merging with custom faces
---
 org-modern.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index dbd3d7db6f..242ebcab62 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -416,7 +416,7 @@ the font.")
        beg end 'face
        (if-let ((face (or (cdr (assq prio org-modern-priority-faces))
                           (cdr (assq t org-modern-priority-faces)))))
-           `(:inherit (,face org-modern-label))
+           `(,face org-modern-label)
          'org-modern-priority)))))
 
 (defun org-modern--progress ()
@@ -468,7 +468,7 @@ the font.")
              (if-let ((faces org-modern-tag-faces)
                       (face (or (cdr (assoc (buffer-substring-no-properties 
colon-end cbeg) faces))
                                 (cdr (assq t faces)))))
-                 `(:inherit (,face org-modern-tag))
+                 `(,face org-modern-tag)
                'org-modern-tag)))
           (add-text-properties cbeg cend colon-props)
           (setq colon-beg cbeg colon-end cend))))))
@@ -485,7 +485,7 @@ the font.")
      beg end 'face
      (if-let ((face (or (cdr (assoc todo org-modern-todo-faces))
                         (cdr (assq t org-modern-todo-faces)))))
-         `(:inherit (,face org-modern-label))
+         `(,face org-modern-label)
        (if (string-match-p org-not-done-regexp todo)
            'org-modern-todo 'org-modern-done)))))
 

Reply via email to