浏览代码

org-capture: Tiny refactoring

* lisp/org-capture.el (org-capture-refile): Tiny refactoring.
Nicolas Goaziou 8 年之前
父节点
当前提交
da80e6c6ab
共有 1 个文件被更改,包括 1 次插入3 次删除
  1. 1 3
      lisp/org-capture.el

+ 1 - 3
lisp/org-capture.el

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