org.el: Fix org-copy-subtree at inlinetask master
authorRasmus <rasmus@gmx.us>
Sun, 29 Mar 2015 13:27:41 +0000 (15:27 +0200)
committerRasmus <rasmus@gmx.us>
Sun, 29 Mar 2015 13:30:43 +0000 (15:30 +0200)
* org.el (org-copy-subtree): Include the end of an inlinetasks.

Previously, the end of an inlinetask would be left in the buffer.

lisp/org.el

index c1c66a5..cf37950 100755 (executable)
@@ -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)