diff options
author | Ihor Radchenko <yantar92@gmail.com> | 2021-05-15 20:57:00 +0800 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2021-05-15 16:13:49 +0200 |
commit | 72894cde6fbf03af674089d0f35cd0b28836a2a5 (patch) | |
tree | d2925a0b07d2459a4586a40594c77f2813a4b6d4 | |
parent | 81c7a2dee8e6d0c5e58d0cb4ca97cfc9477ff660 (diff) | |
download | org-mode-72894cde6fbf03af674089d0f35cd0b28836a2a5.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index a30dbed..af5b952 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17165,7 +17165,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)))) @@ -17198,7 +17198,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)))) |