Browse Source

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.
Bastien Guerry 11 years ago
parent
commit
03acfe44b6
1 changed files with 4 additions and 1 deletions
  1. 4 1
      lisp/org.el

+ 4 - 1
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 ""))