فهرست منبع

Merge branch 'maint'

Bastien 8 سال پیش
والد
کامیت
cfadbc3761
1فایلهای تغییر یافته به همراه3 افزوده شده و 1 حذف شده
  1. 3 1
      lisp/org-capture.el

+ 3 - 1
lisp/org-capture.el

@@ -831,7 +831,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