diff options
| -rw-r--r-- | oni-org/oni-org.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 34f89b8..d6d6024 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2022.0508.160831 +;; Version: 2022.0513.111418 ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti mixed-pitch) ;; This program is free software; you can redistribute it and/or modify @@ -876,14 +876,15 @@ placed above TARGET. Otherwise it will be placed below it." (intern (completing-read "Above / Below: " '(above below) nil t)))) (save-excursion (let ((heading-level (car (org-heading-components))) - (marker (copy-marker (nth 3 target)))) + (marker (copy-marker (nth 3 target))) + (this-command t)) (org-cut-subtree) (goto-char marker) (unless (eq placement 'above) (org-forward-heading-same-level 1) (when (= (point) (marker-position marker)) (goto-char (point-max)))) - (org-paste-subtree heading-level)))) + (org-paste-subtree heading-level nil nil t)))) (provide 'oni-org) ;;; oni-org.el ends here |