[elpa] externals/org 01d84f2e50 3/4: org-fold-initialize: Ensure back-compatibility when using overlays

[ELPA Syncer]

branch: externals/org
commit 01d84f2e50d951ec872e9deee7c85e4060082943
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-fold-initialize: Ensure back-compatibility when using overlays
    
    * lisp/org-fold.el (org-fold-initialize): Use back-compatible property
    values for overlays folds.
---
 lisp/org-fold.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org-fold.el b/lisp/org-fold.el
index 49a599ae41..4507369237 100644
--- a/lisp/org-fold.el
+++ b/lisp/org-fold.el
@@ -217,7 +217,7 @@ smart            Make point visible, and do 
insertion/deletion if it is
   ;; overlays for isearch.
   (setq-local org-fold-core--isearch-special-specs '(org-link))
   (org-fold-core-initialize
-   `((org-fold-outline
+   `((,(if (eq org-fold-core-style 'text-properties) 'org-fold-outline 
'outline)
       (:ellipsis . ,ellipsis)
       (:fragile . ,#'org-fold--reveal-outline-maybe)
       (:isearch-open . t)
@@ -230,7 +230,7 @@ smart            Make point visible, and do 
insertion/deletion if it is
       (:rear-sticky . nil)
       (:font-lock-skip . t)
       (:alias . (headline heading outline inlinetask plain-list)))
-     (org-fold-block
+     (,(if (eq org-fold-core-style 'text-properties) 'org-fold-block 
'org-hide-block)
       (:ellipsis . ,ellipsis)
       (:fragile . ,#'org-fold--reveal-drawer-or-block-maybe)
       (:isearch-open . t)
@@ -239,7 +239,7 @@ smart            Make point visible, and do 
insertion/deletion if it is
                   dynamic-block example-block export-block
                   quote-block special-block src-block
                   verse-block)))
-     (org-fold-drawer
+     (,(if (eq org-fold-core-style 'text-properties) 'org-fold-drawer 
'org-hide-drawer)
       (:ellipsis . ,ellipsis)
       (:fragile . ,#'org-fold--reveal-drawer-or-block-maybe)
       (:isearch-open . t)