mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-12 02:09:55 +00:00
Code Releases Activity

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

Browse source
This commit is contained in:
Carsten Dominik 2013-02-18 09:29:04 +01:00
parent a385c6e0e4 65b404427e
commit 4708a4804f
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

@ -7411,7 +7411,12 @@ This is important for non-interactive uses of the command."
(cond
(org-insert-heading-respect-content
(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-end-of-subtree nil t))
(when (featurep 'org-inlinetask)