Browse Source

Merge branch 'fix-spacing-when-insert-new-heading'

Carsten Dominik 12 years ago
parent
commit
4708a4804f
1 changed files with 6 additions and 1 deletions
  1. 6 1
      lisp/org.el

+ 6 - 1
lisp/org.el

@@ -7411,7 +7411,12 @@ This is important for non-interactive uses of the command."
 	    (cond
 	    (cond
 	     (org-insert-heading-respect-content
 	     (org-insert-heading-respect-content
 	      (if (not (equal force-heading '(16)))
 	      (if (not (equal force-heading '(16)))
-		  (org-end-of-subtree nil t)
+		  (progn
+		    (org-end-of-subtree nil t)
+		    (and (looking-at "^\\*") (backward-char 1))
+		    (while (and (not (bobp))
+				(member (char-before) '(?\ ?\t ?\n)))
+		      (backward-delete-char 1)))
 		(org-up-heading-safe)
 		(org-up-heading-safe)
 		(org-end-of-subtree nil t))
 		(org-end-of-subtree nil t))
 	      (when (featurep 'org-inlinetask)
 	      (when (featurep 'org-inlinetask)