awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: fix tab not folding src blocks

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-17 23:05:35 +02:00
parent e2f99a8c24
commit c46bd978fc
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/lang/org/autoload/org.el
View File

@ -337,14 +337,11 @@ with `org-cycle')."
(unless (eq this-command 'org-shifttab) (unless (eq this-command 'org-shifttab)
(save-excursion (save-excursion
(org-beginning-of-line) (org-beginning-of-line)
(cond ((org-at-heading-p) (when (org-at-heading-p)
(outline-toggle-children) (outline-toggle-children)
(unless (outline-invisible-p (line-end-position)) (unless (outline-invisible-p (line-end-position))
(org-cycle-hide-drawers 'subtree)) (org-cycle-hide-drawers 'subtree))
t) t))))
((org-in-src-block-p)
(org-babel-remove-result)
t)))))
;;;###autoload ;;;###autoload
(defalias #'+org/toggle-fold #'+org|toggle-only-current-fold) (defalias #'+org/toggle-fold #'+org|toggle-only-current-fold)