From 4da4b3aa668c6ce37f7769cc3b5abdcc24bb1dbf Mon Sep 17 00:00:00 2001 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 a197b5f34..ccdd8e84f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17090,7 +17090,7 @@ for more information." ((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)))) @@ -17123,7 +17123,7 @@ commands for more information." ((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))))