Pārlūkot izejas kodu

Merge branch 'maint'

Bastien 8 gadi atpakaļ
vecāks
revīzija
cfadbc3761
1 mainītis faili ar 3 papildinājumiem un 1 dzēšanām
  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