branch: externals/org-modern
commit f57b7338061eee528519cda150f8a34719b434c7
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Do not use invisible text properties
Generally org-modern should try to change only a minimal set of text
properties.
In particular the invisible property may become problematic if Org is moving
away from overlays. For now we only use line-prefix, wrap-prefix, face and
display.
---
org-modern.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 766228d0f1..7df45b63e8 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -463,15 +463,15 @@ Set to nil to disable the indicator."
'(face nil
,@(if (stringp org-modern-keyword)
`(display ,org-modern-keyword)
- '(invisible t))))))
+ '(display ""))))))
(when org-modern-checkbox
'(("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ \t]+\\(\\[[ X-]\\]\\)[ \t]"
(0 (org-modern--checkbox)))))
(when (or org-modern-star org-modern-hide-stars)
`(("^\\(\\**\\)\\(\\*\\) "
,@(and (not (eq org-modern-hide-stars t)) org-modern-star '((0
(org-modern--star))))
- ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil
invisible t))))
- ,@(and (eq org-modern-hide-stars t) '((0 '(face nil invisible
t)))))))
+ ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil display
""))))
+ ,@(and (eq org-modern-hide-stars t) '((0 '(face nil display
"")))))))
(when org-modern-horizontal-rule
'(("^-\\{5,\\}$" 0 '(face org-modern-horizontal-rule display (space
:width text)))))
(when org-modern-table
@@ -507,8 +507,8 @@ Set to nil to disable the indicator."
(remove-list-of-text-properties
beg end
(if (bound-and-true-p org-indent-mode)
- '(display face invisible)
- '(wrap-prefix line-prefix display face invisible))))))
+ '(display face)
+ '(wrap-prefix line-prefix display face))))))
(provide 'org-modern)
;;; org-modern.el ends here
