Skip to content

Commit

Permalink
org-fold-initialize: Ensure back-compatibility when using overlays
Browse files Browse the repository at this point in the history
* lisp/org-fold.el (org-fold-initialize): Use back-compatible property
values for overlays folds.
  • Loading branch information
yantar92 committed Aug 13, 2022
1 parent 15658b8 commit 01d84f2
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions lisp/org-fold.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand All @@ -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)
Expand All @@ -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)
Expand Down

0 comments on commit 01d84f2

Please sign in to comment.