diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-18 08:43:46 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-01-10 15:58:21 +0100 |
commit | 4f74aa4c0eda8bb4b0a3ec89000d700572ce0105 (patch) | |
tree | 9b0061ca0372dd2654a746e661e04ff43e064011 | |
parent | e886d1566dfe190349fd0b0abbdd12bd8d7c00d8 (diff) | |
download | org-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.el | 38 |
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. |