浏览代码

org-capture: Fix commit 7d7c38

Bastien 8 年之前
父节点
当前提交
df506794db
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/org-capture.el

+ 3 - 1
lisp/org-capture.el

@@ -830,7 +830,9 @@ for `entry'-type templates"))
     ;; empty lines) around entry, use a marker to refer to the
     ;; headline to be refiled.  Place the marker in the base buffer,
     ;; as the current indirect one is going to be killed.
-    (set-marker pos (save-excursion (org-back-to-heading t)) base)
+    (set-marker pos (save-excursion
+		      (and (org-back-to-heading t) (point)))
+		base)
     (org-capture-put :kill-buffer nil)
     (unwind-protect
 	(progn