[elpa] externals/org-transclusion 2bade767cb 15/29: Adapt to magic enter.

[ELPA Syncer]

branch: externals/org-transclusion
commit 2bade767cbbb87df9d9f76d347579e231cb44785
Author: Benjamin Cherry <ben@devcarbon.com>
Commit: Noboru Ota <me@nobiot.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 dea5db9da1..c6e9eb0893 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -1661,8 +1661,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)))