From c46bd978fc22cae4958149f55dffbc4af3d99bc8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 17 May 2018 23:05:35 +0200 Subject: [PATCH] lang/org: fix tab not folding src blocks --- modules/lang/org/autoload/org.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index 3906c1521..1a945fcd3 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -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)