From f70f788df38216f9ae3c62ccf1328558dfd23301 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 11 Nov 2019 14:48:37 -0500 Subject: [PATCH] lang/org: don't auto-demote headings on C-RET This can be harder to predict. Instead, use TAB and S-TAB after-the-fact to adjust heading level. --- modules/lang/org/autoload/org.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index 22c2a1e20..52b23c76c 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -90,24 +90,16 @@ org-insert-heading-respect-content) (goto-char (line-end-position)) (org-end-of-subtree) - (insert (concat "\n" - (when (= level 1) - (if at-eol - (ignore (cl-incf level)) - "\n")) - (make-string level ?*) - " ")))) + (insert "\n" (make-string level ?*) " "))) (`above (org-back-to-heading) (insert (make-string level ?*) " ") - (save-excursion - (insert "\n") - (if (= level 1) (insert "\n"))))) + (save-excursion (insert "\n")))) (when-let (todo-keyword (org-element-property :todo-keyword context)) (org-todo (or (car (+org-get-todo-keywords-for todo-keyword)) 'todo))))) - (t (user-error "Not a valid list, heading or table"))) + ((user-error "Not a valid list, heading or table"))) (when (org-invisible-p) (org-show-hidden-entry))