[elpa] externals/org-transclusion 9060dcf712 3/9: Adapt to magic enter.

[ELPA Syncer]

branch: externals/org-transclusion
commit 9060dcf7129707a2f69a1af23c30b373ea2bf30f
Author: Benjamin Cherry <ben@devcarbon.com>
Commit: Benjamin Cherry <ben@devcarbon.com>

    Adapt to magic enter.
---
 org-transclusion.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 2763cbad16..25f474207b 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -1646,8 +1646,12 @@ This function is for non-Org text files."
                          (with-current-buffer (marker-buffer tc-ov-beg-mkr)
                            (save-mark-and-excursion
                              (org-babel-mark-block)
-                             (text-clone-make-overlay (region-beginning)
-                                                      (region-end))))
+                             (let* ((src-ov-length (- (overlay-end src-ov) 
(overlay-start src-ov)))
+                                    (region-length (- (region-end) 
(region-beginning)))
+                                    (overlay-has-extra-newline (= 1 (- 
region-length src-ov-length)))
+                                    (newline-offset (if 
overlay-has-extra-newline 1 0)))
+                               (text-clone-make-overlay (region-beginning)
+                                                        (- (region-end) 
newline-offset)))))
                        (text-clone-make-overlay tc-ov-end-mkr
                                                 tc-ov-end-mkr))))
     (cons src-ov tc-ov)))