diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-12-11 23:19:40 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-12-11 23:19:40 +0100 |
commit | 0dde39ccd35414da7c210ac97633a21f63e903fe (patch) | |
tree | a036941df3a272bad2c7be7f78240feaa49ea4a3 | |
parent | b4678774375251927d002811ff1d32426503eef8 (diff) | |
download | org-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.el | 2 |
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)))) |