浏览代码

org.el: tiny fix to org-add-planning-info.

Bastien Guerry 14 年之前
父节点
当前提交
43a380708e
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      lisp/org.el

+ 3 - 0
lisp/org.el

@@ -11851,6 +11851,9 @@ be removed."
 			    (and (eq what 'closed) org-log-done-with-time))
 			    (and (eq what 'closed) org-log-done-with-time))
 			(eq what 'closed)
 			(eq what 'closed)
 			nil nil (list org-end-time-was-given)))
 			nil nil (list org-end-time-was-given)))
+	      (insert 
+	       (if (not (or (bolp) (eq (char-before) ?\ )
+			    (eq (char-after) ?\ ))) " " ""))
 	      (end-of-line 1))
 	      (end-of-line 1))
 	    (goto-char (point-min))
 	    (goto-char (point-min))
 	    (widen)
 	    (widen)