[elpa] externals/org-transclusion 3024fe5716 13/18: Merge branch 'pr211'

[ELPA Syncer]

branch: externals/org-transclusion
commit 3024fe57165e45dfefb9491a9434353608aad581
Merge: 2d9290554e 92b91d02c5
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    Merge branch 'pr211'
---
 org-transclusion.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 93069656f5..1096cca7d7 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -1121,16 +1121,20 @@ work to
     ;; search-option is present.
     (let* ((path (org-element-property :path link))
            (search-option (org-element-property :search-option link))
-           (buf (find-file-noselect path)))
+           (buf (find-file-noselect path))
+           (org-link-search-must-match-exact-headline
+            ;; Don't ever prompt to create a headline when transcluding
+            (if (eq 'query-to-create org-link-search-must-match-exact-headline)
+                t  ;; Less surprising default than nil - fuzzy search
+              org-link-search-must-match-exact-headline)))
       (with-current-buffer buf
         (org-with-wide-buffer
-         (if search-option
-             (progn
-               (org-link-search search-option)
-               (org-transclusion-content-org-buffer-or-element
-                'only-element plist))
-           (org-transclusion-content-org-buffer-or-element
-            nil plist)))))))
+         (org-transclusion-content-org-buffer-or-element
+          (and search-option
+               (progn
+                 (org-link-search search-option)
+                 t))
+          plist))))))
 
 (defun org-transclusion-content-org-buffer-or-element (only-element plist)
   "Return a list of playload for transclusion.