summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIhor Radchenko <yantar92@gmail.com>2021-05-15 20:57:00 +0800
committerBastien <bzg@gnu.org>2021-05-15 16:13:49 +0200
commit72894cde6fbf03af674089d0f35cd0b28836a2a5 (patch)
treed2925a0b07d2459a4586a40594c77f2813a4b6d4
parent81c7a2dee8e6d0c5e58d0cb4ca97cfc9477ff660 (diff)
downloadorg-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.el4
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))))