summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-11 23:19:40 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-11 23:19:40 +0100
commit0dde39ccd35414da7c210ac97633a21f63e903fe (patch)
treea036941df3a272bad2c7be7f78240feaa49ea4a3
parentb4678774375251927d002811ff1d32426503eef8 (diff)
downloadorg-mode-0dde39ccd35414da7c210ac97633a21f63e903fe.tar.gz
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 <vianchielfaura@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2017-12/msg00158.html>
-rw-r--r--lisp/org-archive.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 01514d7..3a178b9 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))))