From 6dc0afe934490c48a74028cce7a9f8def79b3180 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 27 Apr 2017 18:04:10 -0400 Subject: [PATCH] lang/org: don't move window on +org/toggle-fold --- 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 0dcaab315..4ef1ee072 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -146,7 +146,9 @@ with `org-cycle'). Also removes babel result blocks, if run from a code block." (cond ((org-at-heading-p) (outline-toggle-children)) ((org-at-item-p) - (org-cycle)))) + (let ((window-beg (window-start))) + (org-cycle) + (set-window-start nil window-beg))))) ;;;###autoload (defun +org/dwim-at-point ()