From d52ee9c3be3400462df3b49612e2a801e44d9104 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 19 May 2017 17:17:39 +0200 Subject: [PATCH] lang/org: preserve indent on new item (M-RET) --- modules/lang/org/autoload/org.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index 72c4ce59b..1a55da252 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -70,14 +70,17 @@ wrong places)." t)) (type (org-element-type context))) (cond ((eq type 'item) - (let ((marker (org-element-property :bullet context))) + (let ((marker (org-element-property :bullet context)) + (pad (save-excursion + (back-to-indentation) + (- (point) (line-beginning-position))))) (pcase direction ('below (goto-char (line-end-position)) - (insert (concat "\n" marker))) + (insert (concat "\n" (make-string pad ? ) marker))) ('above (goto-char (line-beginning-position)) - (insert marker) + (insert (make-string pad ? ) marker) (save-excursion (insert "\n"))))) (when (org-element-property :checkbox context) (insert "[ ] ")))