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

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

[elpa] externals/org-modern 91e113ff4f 51/65: Revert "Do not use invisib


From: ELPA Syncer
Subject: [elpa] externals/org-modern 91e113ff4f 51/65: Revert "Do not use invisible text properties" (Fix #16)
Date: Mon, 7 Mar 2022 12:57:48 -0500 (EST)

branch: externals/org-modern
commit 91e113ff4f458731b29d5b8785f51449353e2255
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Revert "Do not use invisible text properties" (Fix #16)
    
    This reverts commit f57b7338061eee528519cda150f8a34719b434c7.
---
 org-modern.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 7df45b63e8..766228d0f1 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)
-                     '(display ""))))))
+                     '(invisible t))))))
       (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 display 
""))))
-           ,@(and (eq org-modern-hide-stars t) '((0 '(face nil display 
"")))))))
+           ,@(and (eq org-modern-hide-stars 'leading) '((1 '(face nil 
invisible t))))
+           ,@(and (eq org-modern-hide-stars t) '((0 '(face nil invisible 
t)))))))
       (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)
-         '(wrap-prefix line-prefix display face))))))
+           '(display face invisible)
+         '(wrap-prefix line-prefix display face invisible))))))
 
 (provide 'org-modern)
 ;;; org-modern.el ends here



reply via email to

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