mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 08:49:14 +00:00
Code Releases Activity

org-fold-initialize: Ensure back-compatibility when using overlays

Browse source 
* lisp/org-fold.el (org-fold-initialize): Use back-compatible property
values for overlays folds.
This commit is contained in:
Ihor Radchenko 2022-08-13 15:02:48 +08:00
parent 15658b8665
commit 01d84f2e50
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-fold.el
View file

@ -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)