[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 2861d9cad8 1/3: org-paste-subtree: Do not use `inse
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 2861d9cad8 1/3: org-paste-subtree: Do not use `insert-before-markers' |
Date: |
Sun, 31 Jul 2022 01:57:50 -0400 (EDT) |
branch: externals/org
commit 2861d9cad8d425923b526085fed0b2f2d674b414
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-paste-subtree: Do not use `insert-before-markers'
* lisp/org.el (org-paste-subtree): Use `insert' instead of
`insert-before-markers'. The former is what people usually expect and
doing otherwise is surprising.
* lisp/org-archive.el (org-archive-to-archive-sibling): Do not expect
`org-paste-subtree' to insert before markers.
---
lisp/org-archive.el | 2 ++
lisp/org.el | 2 +-
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 196384c6e7..08ebd751bd 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -453,6 +453,8 @@ Archiving time is retained in the ARCHIVE_TIME node
property."
(setq leader (match-string 0)
level (funcall outline-level))
(setq pos (point-marker))
+ ;; Advance POS upon insertion in front of it.
+ (set-marker-insertion-type pos t)
(condition-case nil
(outline-up-heading 1 t)
(error (setq e (point-max)) (goto-char (point-min))))
diff --git a/lisp/org.el b/lisp/org.el
index c3354467e1..aae8ac82e1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7054,7 +7054,7 @@ When REMOVE is non-nil, remove the subtree from the
clipboard."
;; is inserted and then promoted.
(combine-change-calls beg beg
(when (fboundp 'org-id-paste-tracker) (org-id-paste-tracker txt))
- (insert-before-markers txt)
+ (insert txt)
(unless (string-suffix-p "\n" txt) (insert "\n"))
(setq newend (point))
(org-reinstall-markers-in-region beg)