[elpa] externals/org 383d5dacb7 096/101: org-fold-show-set-visibility: Fix lineage visibility

[ELPA Syncer]

branch: externals/org
commit 383d5dacb7881fd97f0f789c823da7a0fdc5d938
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-fold-show-set-visibility: Fix lineage visibility
    
    * lisp/org-fold.el (org-fold-show-set-visibility): Do not reveal
    everything, including drawers under heading when point is outside
    drawers.  Reveal individual folding specs one by one, within their
    folding bounds.
---
 lisp/org-fold.el | 51 ++++++++++++++++++++++++++-------------------------
 1 file changed, 26 insertions(+), 25 deletions(-)

diff --git a/lisp/org-fold.el b/lisp/org-fold.el
index 17eadcabdc..872940c177 100644
--- a/lisp/org-fold.el
+++ b/lisp/org-fold.el
@@ -659,32 +659,33 @@ DETAIL is either nil, `minimal', `local', `ancestors',
     (when (org-invisible-p)
       ;; FIXME: No clue why, but otherwise the following might not work.
       (redisplay)
-      (let ((region (org-fold-get-region-at-point)))
-        ;; Reveal emphasis markers.
-        (when (eq detail 'local)
-          (let (org-hide-emphasis-markers
-                org-link-descriptive
-                org-pretty-entities
-                (org-hide-macro-markers nil)
-                (region (or (org-find-text-property-region (point) 
'org-emphasis)
-                            (org-find-text-property-region (point) 'org-macro)
-                            (org-find-text-property-region (point) 'invisible)
-                            region)))
-            ;; Silence byte-compiler.
-            (ignore org-hide-macro-markers)
-            (when region
-              (org-with-point-at (car region)
-                (forward-line 0)
-                (let (font-lock-extend-region-functions)
-                  (font-lock-fontify-region (max (point-min) (1- (car 
region))) (cdr region))))))
-          ;; Unfold links.
+      ;; Reveal emphasis markers.
+      (when (eq detail 'local)
+        (let (org-hide-emphasis-markers
+              org-link-descriptive
+              org-pretty-entities
+              (org-hide-macro-markers nil)
+              (region (or (org-find-text-property-region (point) 'org-emphasis)
+                          (org-find-text-property-region (point) 'org-macro)
+                          (org-find-text-property-region (point) 'invisible))))
+          ;; Silence byte-compiler.
+          (ignore org-hide-macro-markers)
           (when region
-            (dolist (spec '(org-link org-link-description))
-              (org-fold-region (car region) (cdr region) nil spec))))
-        (when region
-          (dolist (spec (org-fold-core-folding-spec-list))
-            ;; Links are taken care by above.
-            (unless (memq spec '(org-link org-link-description))
+            (org-with-point-at (car region)
+              (forward-line 0)
+              (let (font-lock-extend-region-functions)
+                (font-lock-fontify-region (max (point-min) (1- (car region))) 
(cdr region))))))
+        ;; Unfold links.
+        (let (region)
+          (dolist (spec '(org-link org-link-description))
+            (setq region (org-fold-get-region-at-point spec))
+            (when region (org-fold-region (car region) (cdr region) nil 
spec)))))
+      (let (region)
+        (dolist (spec (org-fold-core-folding-spec-list))
+          ;; Links are taken care by above.
+          (unless (memq spec '(org-link org-link-description))
+            (setq region (org-fold-get-region-at-point spec))
+            (when region
               (org-fold-region (car region) (cdr region) nil spec))))))
     (unless (org-before-first-heading-p)
       (org-with-limited-levels