ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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.
This commit is contained in:
Bastien Guerry 2011-03-03 11:51:47 +01:00
parent 85d4d65af0
commit 87ce7900c6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org.el
View File

@ -7271,6 +7271,7 @@ case."
'org-get-last-sibling)) 'org-get-last-sibling))
(ins-point (make-marker)) (ins-point (make-marker))
(cnt (abs arg)) (cnt (abs arg))
(col (current-column))
beg beg0 end txt folded ne-beg ne-end ne-ins ins-end) beg beg0 end txt folded ne-beg ne-end ne-ins ins-end)
;; Select the tree ;; Select the tree
(org-back-to-heading) (org-back-to-heading)
@ -7336,7 +7337,9 @@ case."
(org-show-entry) (org-show-entry)
(show-children) (show-children)
(org-cycle-hide-drawers '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 "" (defvar org-subtree-clip ""
"Clipboard for cut and paste of subtrees. "Clipboard for cut and paste of subtrees.