From 0999aa38855912f4100d8f9620185b14f46756eb Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 24 Jan 2019 19:48:03 -0500
Subject: transport: Test point-bounds interaction for non-interactive call

---
 test-org-link-edit.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index 51f4b30..0980aca 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -533,6 +533,15 @@ website"
               (org-link-edit-transport-next-link
                nil (point-min) (point))
               (buffer-string))))
+  ;; When a lisp caller gives BEG and END explicitly, they take
+  ;; precedence over point.
+  (should
+   (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website "
+            (org-test-with-temp-text
+                "<point>Here is Org's website http://orgmode.org/"
+              (org-link-edit-transport-next-link
+               nil 9 14)
+              (buffer-string))))
   ;; Transport previous link to the active region.
   (should
    (string= " Here is \[\[http://orgmode.org/\]\[Org's website\]\]"
-- 
cgit v1.2.3