tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

When moving items, keep the column position. 

Reported by Rainer Stengele.
This commit is contained in:
Carsten Dominik 2008-09-29 12:46:15 +02:00
parent d5b9c3e04f
commit 46246169bf
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-09-29 Carsten Dominik <dominik@science.uva.nl>
* org-list.el (org-move-item-down, org-move-item-up): Remember and
restore the column of the cursor position.
* org-remember.el (org-remember-apply-template): Remove properties
from `initial'.

18
lisp/org-list.el
View File

@ -457,7 +457,9 @@ Error if not at a plain list, or if this is the first item in the list."
Subitems (items with larger indentation) are considered part of the item,
so this really moves item trees."
(interactive)
(let (beg beg0 end end0 ind ind1 (pos (point)) txt ne-end ne-beg)
(let ((col (current-column))
(pos (point))
beg beg0 end end0 ind ind1 txt ne-end ne-beg)
(org-beginning-of-item)
(setq beg0 (point))
(save-excursion
@ -488,8 +490,10 @@ so this really moves item trees."
(setq pos (point))
(insert txt)
(goto-char pos) (org-skip-whitespace)
(org-maybe-renumber-ordered-list))
(org-maybe-renumber-ordered-list)
(move-to-column col))
(goto-char pos)
(move-to-column col)
(error "Cannot move this item further down"))))
(defun org-move-item-up (arg)
@ -497,8 +501,9 @@ so this really moves item trees."
Subitems (items with larger indentation) are considered part of the item,
so this really moves item trees."
(interactive "p")
(let (beg beg0 end ind ind1 (pos (point)) txt
ne-beg ne-ins ins-end)
(let ((col (current-column)) (pos (point))
beg beg0 end ind ind1 txt
ne-beg ne-ins ins-end)
(org-beginning-of-item)
(setq beg0 (point))
(setq ind (org-get-indentation))
@ -524,6 +529,7 @@ so this really moves item trees."
(condition-case nil
(org-beginning-of-item)
(error (goto-char beg0)
(move-to-column col)
(error "Cannot move this item further up")))
(setq ind1 (org-get-indentation))
(if (and (org-at-item-p) (= ind ind1))
@ -545,8 +551,10 @@ so this really moves item trees."
(kill-line (- ne-ins ne-beg)) (point)))
(insert (make-string (- ne-ins ne-beg) ?\n)))
(org-maybe-renumber-ordered-list))
(org-maybe-renumber-ordered-list)
(move-to-column col))
(goto-char pos)
(move-to-column col)
(error "Cannot move this item further up"))))
(defun org-maybe-renumber-ordered-list ()