From da68ca4f7d24b13e0f95fae1e19a153c21d74661 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 11 May 2022 21:40:54 -0700 Subject: [oni-org] Fix using ‘oni-org-move-subtree’ multiple times in a row Before, because of the use of ‘org-cut-subtree’, which in turn calls ‘kill-region’, which checks to see if ‘last-command’ equals ‘kill-region’ and uses either ‘kill-append’ or ‘kill-new’ repeated uses of the ‘oni-org-move-subtree’ command would append cut subtrees together and repeatedly paste the same subtrees over and over again. Setting ‘this-command’ will make sure that when the ‘kill-region’ checks the value of ‘last-command’ it won't find ‘kill-region’ there. --- oni-org/oni-org.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'oni-org/oni-org.el') 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 ;; 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 -- cgit v1.2.3-54-g00ecf