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

org.el (org-insert-heading): Don't delete spaces in empty headlines 

* org.el (org-insert-heading): Don't delete spaces in empty
headlines.
This commit is contained in:
Bastien Guerry 2013-03-05 08:28:26 +01:00
parent 50fc4c7630
commit b472884e5e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -7447,6 +7447,8 @@ This is important for non-interactive uses of the command."
(org-end-of-subtree nil t) (org-end-of-subtree nil t)
(and (looking-at "^\\*") (backward-char 1)) (and (looking-at "^\\*") (backward-char 1))
(while (and (not (bobp)) (while (and (not (bobp))
;; Don't delete spaces in empty headlines
(not (looking-back org-outline-regexp))
(member (char-before) '(?\ ?\t ?\n))) (member (char-before) '(?\ ?\t ?\n)))
(backward-delete-char 1))) (backward-delete-char 1)))
(let ((p (point))) (let ((p (point)))