emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: fix org-shifttab only toggling current fold

Browse source
This commit is contained in:
Henrik Lissner 2018-04-05 17:28:30 -04:00
parent ca9957b6d8
commit b7577f1e26
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/lang/org/autoload/org.el
View file

@ -334,13 +334,14 @@ wrong places)."
"Toggle the local fold at the point (as opposed to cycling through all levels
with `org-cycle')."
(interactive)
(save-excursion
(org-beginning-of-line)
(cond ((org-at-heading-p)
(outline-toggle-children)
(unless (outline-invisible-p (line-end-position))
(org-cycle-hide-drawers 'subtree))
t)
((org-in-src-block-p)
(org-babel-remove-result)
t))))
(unless (eq this-command 'org-shifttab)
(save-excursion
(org-beginning-of-line)
(cond ((org-at-heading-p)
(outline-toggle-children)
(unless (outline-invisible-p (line-end-position))
(org-cycle-hide-drawers 'subtree))
t)
((org-in-src-block-p)
(org-babel-remove-result)
t)))))