summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-18 08:43:46 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-01-10 15:58:21 +0100
commit4f74aa4c0eda8bb4b0a3ec89000d700572ce0105 (patch)
tree9b0061ca0372dd2654a746e661e04ff43e064011
parente886d1566dfe190349fd0b0abbdd12bd8d7c00d8 (diff)
downloadorg-mode-4f74aa4c0eda8bb4b0a3ec89000d700572ce0105.tar.gz
Change signature for `org-set-visibility-according-to-property'
* lisp/org.el (org-set-visibility-according-to-property): Remove unused argument. (org-set-startup-visibility): (org-overview): Apply signature change.
-rw-r--r--lisp/org.el38
1 files changed, 16 insertions, 22 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 8279572..143eceb 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6937,12 +6937,12 @@ With a numeric prefix, show all headlines up to that level."
(outline-show-all)))
(unless (eq org-startup-folded 'showeverything)
(when org-hide-block-startup (org-hide-block-all))
- (org-set-visibility-according-to-property 'no-cleanup)
+ (org-set-visibility-according-to-property)
(org-cycle-hide-archived-subtrees 'all)
(org-cycle-hide-drawers 'all)
(org-cycle-show-empty-lines t)))
-(defun org-set-visibility-according-to-property (&optional no-cleanup)
+(defun org-set-visibility-according-to-property ()
"Switch subtree visibilities according to :VISIBILITY: property."
(interactive)
(org-with-wide-buffer
@@ -6953,26 +6953,20 @@ With a numeric prefix, show all headlines up to that level."
(save-excursion
(org-back-to-heading t)
(outline-hide-subtree)
- (org-reveal))
- (cond
- ((equal state "folded")
- (outline-hide-subtree)
- (org-end-of-subtree t t))
- ((equal state "children")
- (org-show-hidden-entry)
- (org-show-children))
- ((equal state "content")
- (save-excursion
- (save-restriction
- (org-narrow-to-subtree)
- (org-content)))
- (org-end-of-subtree t t))
- ((member state '("all" "showall"))
- (outline-show-subtree))))))
- (unless no-cleanup
- (org-cycle-hide-archived-subtrees 'all)
- (org-cycle-hide-drawers 'all)
- (org-cycle-show-empty-lines 'all))))
+ (org-reveal)
+ (cond
+ ((equal state "folded")
+ (outline-hide-subtree))
+ ((equal state "children")
+ (org-show-hidden-entry)
+ (org-show-children))
+ ((equal state "content")
+ (save-excursion
+ (save-restriction
+ (org-narrow-to-subtree)
+ (org-content))))
+ ((member state '("all" "showall"))
+ (outline-show-subtree)))))))))
(defun org-overview ()
"Switch to overview mode, showing only top-level headlines.