summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRasmus <rasmus@gmx.us>2015-03-29 15:27:41 +0200
committerRasmus <rasmus@gmx.us>2015-03-29 15:30:43 +0200
commit70d828af3a956688a5f416815bc5c4c71e8e0b83 (patch)
tree166b5bf14491dd92fc956f9cc6dcd537f00b1149
parent99b48cf0c426cd89d74c931c35f388617039299d (diff)
downloadorg-mode-70d828af3a956688a5f416815bc5c4c71e8e0b83.tar.gz
org.el: Fix org-copy-subtree at inlinetask
* org.el (org-copy-subtree): Include the end of an inlinetasks. Previously, the end of an inlinetask would be left in the buffer.
-rwxr-xr-xlisp/org.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el
index c1c66a5..cf37950 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8514,6 +8514,11 @@ useful if the caller implements cut-and-paste as copy-then-paste-then-cut."
(setq folded (outline-invisible-p)))
(ignore-errors (org-forward-heading-same-level (1- n) t))
(org-end-of-subtree t t)))
+ ;; Include the end of an inlinetask
+ (when (and (featurep 'org-inlinetask)
+ (looking-at-p (concat (org-inlinetask-outline-regexp)
+ "END[ \t]*$")))
+ (end-of-line))
(setq end (point))
(goto-char beg0)
(when (> end beg)