From 72505d40019e665ea19e9604a05a7fa86fb59d86 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 5 Oct 2017 01:18:31 +0200 Subject: [PATCH] +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 --- modules/org/org/autoload/org.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/modules/org/org/autoload/org.el b/modules/org/org/autoload/org.el index 8682d5848..0e14f4e62 100644 --- a/modules/org/org/autoload/org.el +++ b/modules/org/org/autoload/org.el @@ -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 ""))