From 0dde39ccd35414da7c210ac97633a21f63e903fe Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 11 Dec 2017 23:19:40 +0100 Subject: [PATCH] org-archive: Fix point after archiving to sibling * lisp/org-archive.el (org-archive-to-archive-sibling): Move point in a consistent way upon archiving to a sibling. Reported-by: Allen Li --- lisp/org-archive.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 01514d756..3a178b9e1 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -429,7 +429,7 @@ Archiving time is retained in the ARCHIVE_TIME node property." (looking-at org-outline-regexp) (setq leader (match-string 0) level (funcall outline-level)) - (setq pos (point)) + (setq pos (point-marker)) (condition-case nil (outline-up-heading 1 t) (error (setq e (point-max)) (goto-char (point-min))))