瀏覽代碼

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

* org.el (org-insert-heading): Don't delete spaces in empty
headlines.
Bastien Guerry 12 年之前
父節點
當前提交
b472884e5e
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      lisp/org.el

+ 2 - 0
lisp/org.el

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