[elpa] externals/consult bfaa43eb62 1/2: org-fold: Use lineage context instead of local

[ELPA Syncer]

branch: externals/consult
commit bfaa43eb620f739e82f9299b06bbe76a78027e68
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    org-fold: Use lineage context instead of local
    
    The local context breaks the use of the invisible property in org-modern.
    
    See:
    
    - https://github.com/minad/org-modern/issues/103
    - https://github.com/minad/org-modern/issues/106
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 7df17aa1aa..807b8f0e94 100644
--- a/consult.el
+++ b/consult.el
@@ -1345,7 +1345,7 @@ ORIG is the original function, HOOKS the arguments."
 See `isearch-open-necessary-overlays' and `isearch-open-overlay-temporary'."
   (if (and (derived-mode-p #'org-mode) (fboundp 'org-fold-show-set-visibility))
       ;; New Org 9.6 fold-core API
-      (org-fold-show-set-visibility 'local)
+      (org-fold-show-set-visibility 'lineage)
     (dolist (ov (let ((inhibit-field-text-motion t))
                   (overlays-in (line-beginning-position) (line-end-position))))
       (when-let (fun (overlay-get ov 'isearch-open-invisible))
@@ -1363,7 +1363,7 @@ See `isearch-open-necessary-overlays' and 
`isearch-open-overlay-temporary'."
       ;; modifications such that we can restore the ones which got modified.
       (let ((regions (delq nil (org-fold-core-get-regions
                                 :with-markers t :from (point-min) :to 
(point-max)))))
-        (org-fold-show-set-visibility 'local)
+        (org-fold-show-set-visibility 'lineage)
         (list (lambda ()
                 (pcase-dolist (`(,beg ,end ,spec) regions)
                   (org-fold-core-region beg end t spec)