From 6c3c40e41ebb736f9034faab0ac868b5be1e3d4a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 19 May 2017 17:08:49 +0200 Subject: [PATCH] Don't move cursor when toggling folds in org-mode --- modules/lang/org/autoload/org.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index fc6899492..72c4ce59b 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -127,14 +127,16 @@ wrong places)." "Toggle the local fold at the point (as opposed to cycling through all levels 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) - (let ((window-beg (window-start))) - (org-cycle) - (set-window-start nil window-beg))))) + (save-excursion + (org-beginning-of-line) + (cond ((org-in-src-block-p) + (org-babel-remove-result)) + ((org-at-heading-p) + (outline-toggle-children)) + ((org-at-item-p) + (let ((window-beg (window-start))) + (org-cycle) + (set-window-start nil window-beg)))))) ;;;###autoload (defun +org/toggle-checkbox ()