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

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

[elpa] externals/org-modern f57b733806 48/65: Do not use invisible text


From: ELPA Syncer
Subject: [elpa] externals/org-modern f57b733806 48/65: Do not use invisible text properties
Date: Mon, 7 Mar 2022 12:57:48 -0500 (EST)

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



reply via email to

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