[elpa] externals-release/org 0b4e357 17/22: Avoid creating ID property during tangling

[ELPA Syncer]

branch: externals-release/org
commit 0b4e357d6208c9531118711e8dc28762ff69b20f
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Bastien <bzg@gnu.org>

    Avoid creating ID property during tangling
    
    * lisp/ob-tangle.el (org-babel-tangle-single-block,
    org-babel-tangle-comment-links): Suppress org-id-link-to-org-use-id
    during tangling.  The links used during tangle process are transient
    and do not really need to use ID.  Using ID may create unexpected
    edits in the tangled Org buffer when org-id-link-to-org-use-id is set
    to t.  Fixes [1].
    
    [1] 
https://orgmode.org/list/9eb31da73b12fcaf6820484834cc8cd3@libre.brussels/T/#t
---
 lisp/ob-tangle.el | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index b9f9eb7..3ee7179 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -417,7 +417,14 @@ non-nil, return the full association list to be used by
         (extra (nth 3 info))
          (coderef (nth 6 info))
         (cref-regexp (org-src-coderef-regexp coderef))
-        (link (let ((l (org-no-properties (org-store-link nil))))
+        (link (let* (
+                      ;; The created link is transient.  Using ID is
+                      ;; not necessary, but could have side-effects if
+                      ;; used.  An ID property may be added to
+                      ;; existing entries thus creatin unexpected file
+                      ;; modifications.
+                      (org-id-link-to-org-use-id nil)
+                      (l (org-no-properties (org-store-link nil))))
                  (and (string-match org-link-bracket-re l)
                       (match-string 1 l))))
         (source-name
@@ -500,7 +507,13 @@ by `org-babel-get-src-block-info'."
                                           (number-to-string
                                            (line-number-at-pos))))
                        ("file" . ,(buffer-file-name))
-                       ("link" . ,(org-no-properties (org-store-link nil)))
+                       ("link" . ,(let (;; The created link is transient.  
Using ID is
+                                         ;; not necessary, but could have 
side-effects if
+                                         ;; used.  An ID property may be added 
to
+                                         ;; existing entries thus creatin 
unexpected file
+                                         ;; modifications.
+                                         (org-id-link-to-org-use-id nil))
+                                     (org-no-properties (org-store-link nil))))
                        ("source-name" . ,name))))))
     (list (org-fill-template org-babel-tangle-comment-format-beg link-data)
          (org-fill-template org-babel-tangle-comment-format-end link-data))))