From 87ce7900c6a69cc56d2b445b2d0a41398399f51a Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 3 Mar 2011 11:51:47 +0100 Subject: [PATCH] * org.el (org-move-subtree-down): leave the cursor at the same column we were at. * org.el (org-move-subtree-down): leave the cursor at the same column we were at. --- lisp/org.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index a26a3caad..3a07cfd27 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7271,6 +7271,7 @@ case." 'org-get-last-sibling)) (ins-point (make-marker)) (cnt (abs arg)) + (col (current-column)) beg beg0 end txt folded ne-beg ne-end ne-ins ins-end) ;; Select the tree (org-back-to-heading) @@ -7336,7 +7337,9 @@ case." (org-show-entry) (show-children) (org-cycle-hide-drawers 'children)) - (org-clean-visibility-after-subtree-move))) + (org-clean-visibility-after-subtree-move) + ;; move back to the initial column we were at + (move-to-column col))) (defvar org-subtree-clip "" "Clipboard for cut and paste of subtrees.