+org/insert-item: fix not jumping over sublists
Initial: + List item 1| <-- M-RET + Sublist Post-fix: + List item 1 + Sublist + | Pre-fix: + List item 1 + | + Sublist
This commit is contained in:
parent
eaa677bd94
commit
72505d4001
1 changed files with 4 additions and 2 deletions
|
@ -185,8 +185,10 @@ wrong places)."
|
|||
(- (point) (line-beginning-position)))))
|
||||
(pcase direction
|
||||
('below
|
||||
(goto-char (line-end-position))
|
||||
(insert (concat "\n" (make-string pad ? ) marker)))
|
||||
(org-end-of-item)
|
||||
(goto-char (line-beginning-position))
|
||||
(insert (make-string pad 32) (or marker ""))
|
||||
(save-excursion (insert "\n")))
|
||||
('above
|
||||
(goto-char (line-beginning-position))
|
||||
(insert (make-string pad 32) (or marker ""))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue