From 03acfe44b69a0c48b2806db3c49536df75d6499c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 20 May 2014 23:28:06 +0200 Subject: [PATCH] org.el (org-insert-heading): Fix bug * org.el (org-insert-heading): Fix bug when trying to insert a heading when point is before the first headline and not at the beginning of a line. --- lisp/org.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index d2a0b7c68..6692974da 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7655,7 +7655,10 @@ command." ;; If we insert after content, move there and clean up whitespace (when (and respect-content (not (org-looking-at-p org-outline-regexp-bol))) - (org-end-of-subtree nil t) + (if (not (org-before-first-heading-p)) + (org-end-of-subtree nil t) + (re-search-forward org-outline-regexp-bol) + (beginning-of-line 0)) (skip-chars-backward " \r\n") (and (not (looking-back "^\*+")) (looking-at "[ \t]+") (replace-match ""))