diff options
author | Tom Willemse | 2022-05-11 21:40:54 -0700 |
---|---|---|
committer | Tom Willemse | 2022-05-13 11:15:01 -0700 |
commit | da68ca4f7d24b13e0f95fae1e19a153c21d74661 (patch) | |
tree | 497fb196603e4da9edfd8460b2cfa17ffdfedba1 /oni-org | |
parent | 4b94f8403c7fe7df1f5f0a97c2b132b9b946c345 (diff) | |
download | emacs-config-da68ca4f7d24b13e0f95fae1e19a153c21d74661.tar.gz emacs-config-da68ca4f7d24b13e0f95fae1e19a153c21d74661.zip |
[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.
Diffstat (limited to 'oni-org')
-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 |