From f681dcb12df823cafe388973bb93c83ce2e0f6bb Mon Sep 17 00:00:00 2001 Message-Id: From: Ihor Radchenko Date: Sat, 15 May 2021 20:57:00 +0800 Subject: [PATCH] Allow moving inlinetasks using org-metaup/down * lisp/org.el (org-metaup, org-metadown): Use `org-drag-elementbackward'/`org-drag-element-forward' to move inlinetasks. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ccf438f70..d031e6916 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16213,7 +16213,7 @@ (defun org-metaup (&optional _arg) ((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up)) ((and (featurep 'org-inlinetask) (org-inlinetask-in-task-p)) - (user-error "Dragging inline tasks is not supported")) + (org-drag-element-backward)) ((org-at-heading-p) (call-interactively 'org-move-subtree-up)) ((org-at-item-p) (call-interactively 'org-move-item-up)) (t (org-drag-element-backward)))) @@ -16246,7 +16246,7 @@ (defun org-metadown (&optional _arg) ((org-at-table-p) (call-interactively 'org-table-move-row)) ((and (featurep 'org-inlinetask) (org-inlinetask-in-task-p)) - (user-error "Dragging inline tasks is not supported")) + (org-drag-element-forward)) ((org-at-heading-p) (call-interactively 'org-move-subtree-down)) ((org-at-item-p) (call-interactively 'org-move-item-down)) (t (org-drag-element-forward)))) -- 2.26.3