lang/org: fix tab not folding src blocks
This commit is contained in:
parent
e2f99a8c24
commit
c46bd978fc
1 changed files with 5 additions and 8 deletions
|
@ -337,14 +337,11 @@ with `org-cycle')."
|
|||
(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)))))
|
||||
(when (org-at-heading-p)
|
||||
(outline-toggle-children)
|
||||
(unless (outline-invisible-p (line-end-position))
|
||||
(org-cycle-hide-drawers 'subtree))
|
||||
t))))
|
||||
|
||||
;;;###autoload
|
||||
(defalias #'+org/toggle-fold #'+org|toggle-only-current-fold)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue