From 3800d976a13fa35553d18b550af9139fbe3b9d5c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 10 Apr 2017 01:11:02 -0400 Subject: [PATCH] lang/org: +org/toggle-fold removes babel result blocks --- modules/lang/org/autoload/org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index c056c934f..9f2a545a3 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -137,8 +137,10 @@ wrong places)." ;;;###autoload (defun +org/toggle-fold () "Toggle the local fold at the point (as opposed to cycling through all levels -with `org-cycle')." +with `org-cycle'). Also removes babel result blocks, if run from a code block." (interactive) + (org-babel-when-in-src-block + (call-interactively 'org-babel-remove-result-one-or-many)) (cond ((org-at-heading-p) (outline-toggle-children)) ((org-at-item-p)