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

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

Browse source 
* 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))