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

org.el (org-insert-heading): Don't remove whitespaces following an empty headline 

* org.el (org-insert-heading): Don't remove whitespaces
following an empty headline.

Thanks to Brady Trainor for reporting this.
This commit is contained in:
Bastien Guerry 2014-03-17 01:41:42 +01:00
parent d9dd1e6bd5
commit afffe03dcf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -7619,7 +7619,8 @@ This is important for non-interactive uses of the command."
(when respect-content (when respect-content
(org-end-of-subtree nil t) (org-end-of-subtree nil t)
(skip-chars-backward " \r\n") (skip-chars-backward " \r\n")
(and (looking-at "[ \t]+") (replace-match "")) (and (not (looking-back "^\*+"))
(looking-at "[ \t]+") (replace-match ""))
(unless (eobp) (forward-char 1)) (unless (eobp) (forward-char 1))
(when (looking-at "^\\*") (when (looking-at "^\\*")
(unless (bobp) (backward-char 1)) (unless (bobp) (backward-char 1))