forked from mirrors/org-mode
org-cycle-set-visibility-according-to-property: Do not change ancestor visibility
* lisp/org-cycle.el (org-cycle-set-visibility-according-to-property): Do not unconditionally run `org-fold-reveal' for headlines with "VISIBILITY" property. `org-fold-reveal' can break the global visibility and ancestor headline visibility settings. * testing/lisp/test-org-fold.el (test-org-fold/set-visibility-according-to-property): Add test. Reported-by: Eduardo Suarez <esuarez@itccanarias.org> Link: https://orgmode.org/list/20220409202736.GA28127@itccanarias.org
This commit is contained in:
parent
88c85d620b
commit
eb15341b3c
|
@ -630,7 +630,6 @@ With a numeric prefix, show all headlines up to that level."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(org-back-to-heading t)
|
(org-back-to-heading t)
|
||||||
(org-fold-subtree t)
|
(org-fold-subtree t)
|
||||||
(org-fold-reveal)
|
|
||||||
(pcase state
|
(pcase state
|
||||||
("folded"
|
("folded"
|
||||||
(org-fold-subtree t))
|
(org-fold-subtree t))
|
||||||
|
|
|
@ -285,6 +285,36 @@
|
||||||
** <point>b"
|
** <point>b"
|
||||||
(org-set-visibility-according-to-property)
|
(org-set-visibility-according-to-property)
|
||||||
(invisible-p (point))))
|
(invisible-p (point))))
|
||||||
|
(org-test-with-temp-text
|
||||||
|
"<point>
|
||||||
|
#+STARTUP: overview
|
||||||
|
* A
|
||||||
|
** AA
|
||||||
|
** AB
|
||||||
|
*** ABA
|
||||||
|
:PROPERTIES:
|
||||||
|
:VISIBILITY: folded
|
||||||
|
:END:
|
||||||
|
**** ABAA
|
||||||
|
**** ABAB
|
||||||
|
**** ABAC
|
||||||
|
** AC
|
||||||
|
* B
|
||||||
|
"
|
||||||
|
(org-set-regexps-and-options)
|
||||||
|
(org-cycle-set-startup-visibility)
|
||||||
|
(search-forward "A")
|
||||||
|
(should-not (invisible-p (point)))
|
||||||
|
(search-forward "AB")
|
||||||
|
(should (invisible-p (point)))
|
||||||
|
(search-forward "ABA")
|
||||||
|
(should (invisible-p (point)))
|
||||||
|
(search-forward "ABAB")
|
||||||
|
(should (invisible-p (point)))
|
||||||
|
(search-forward "AC")
|
||||||
|
(should (invisible-p (point)))
|
||||||
|
(search-forward "B")
|
||||||
|
(should-not (invisible-p (point))))
|
||||||
;; "children" state.
|
;; "children" state.
|
||||||
(should
|
(should
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
|
|
Loading…
Reference in New Issue