|
@@ -4441,7 +4441,7 @@ With a numeric prefix, show all headlines up to that level."
|
|
(defun org-set-visibility-according-to-property (&optional no-cleanup)
|
|
(defun org-set-visibility-according-to-property (&optional no-cleanup)
|
|
"Switch subtree visibilities according to :VISIBILITY: property."
|
|
"Switch subtree visibilities according to :VISIBILITY: property."
|
|
(interactive)
|
|
(interactive)
|
|
- (let (state)
|
|
|
|
|
|
+ (let (org-show-entry-below state)
|
|
(save-excursion
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(goto-char (point-min))
|
|
(while (re-search-forward
|
|
(while (re-search-forward
|