mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-27 07:37:25 +00:00
Code

org.el (org-set-startup-visibility): Bugfix

Browse Source 
* org.el (org-set-startup-visibility): Bugfix.

See http://article.gmane.org/gmane.emacs.orgmode/79905
This commit is contained in:
Bastien Guerry 2014-01-04 12:22:50 +01:00
parent bee871762c
commit 44acd00049
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -6827,10 +6827,12 @@ With a numeric prefix, show all headlines up to that level."
"Set the visibility required by startup options and properties."
(cond
((eq org-startup-folded t)
(org-cycle '(4)))
(org-overview))
((eq org-startup-folded 'content)
(let ((this-command 'org-cycle) (last-command 'org-cycle))
(org-cycle '(4)) (org-cycle '(4)))))
(org-content))
((or (eq org-startup-folded 'showeverything)
(eq org-startup-folded nil))
(show-all)))
(unless (eq org-startup-folded 'showeverything)
(if org-hide-block-startup (org-hide-block-all))
(org-set-visibility-according-to-property 'no-cleanup)
@ -6910,7 +6912,6 @@ With numerical argument N, show content up to level N."
(show-branches))
(if (bobp) (throw 'exit nil))))))
(defun org-optimize-window-after-visibility-change (state)
"Adjust the window after a change in outline visibility.
This function is the default value of the hook `org-cycle-hook'."