ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve spacing when inserting new headline after end of subtree 

When using C-RET to insert a new headline, the new headline was
inserted after arbitrary amounts of whitespace at the end of the
subtree.  This whitespace is now shrunk, to avoid unnatural spacing.

* lisp/org.el (org-insert-heading): Shrink whitespace at end of
  subtree when `org-insert-heading-respect-content' is on.
This commit is contained in:
Carsten Dominik 2013-02-18 09:28:05 +01:00
parent 1f8c8dc6d6
commit 65b404427e
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

@ -7331,7 +7331,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)