[elpa] externals/org f6a0f151b1 2/4: ob-tangle: Fix regression after 95554543b9

[ELPA Syncer]

branch: externals/org
commit f6a0f151b1a23deab2291fe8edaa689a43369d80
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ob-tangle: Fix regression after 95554543b9
    
    * lisp/ob-tangle.el (org-babel-tangle--unbracketed-link): Do not
    assume that id links are handled specially, outside
    `org-store-link-functions'.  This is no longer the case after
    95554543b9.  Just use the full `org-store-link' call here, respecting
    all the user customizations along the way.
    
    The original intention of overriding `org-store-link-functions' was
    performance, which is inferior to accuracy requirement here.
    
    Reported-by: Rudolf Adamkovič <rudolf@adamkovic.org>
    Link: https://orgmode.org/list/871pzyenet.fsf@localhost
---
 lisp/ob-tangle.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index fe143b039f..fe353ec9c7 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -531,10 +531,7 @@ code blocks by target file."
 The PARAMS are the 3rd element of the info for the same src block."
   (unless (string= "no" (cdr (assq :comments params)))
     (save-match-data
-      (let* ((l (org-no-properties
-                 (cl-letf (((symbol-function 'org-store-link-functions)
-                            (lambda () nil)))
-                   (org-store-link nil))))
+      (let* ((l (org-no-properties (org-store-link nil)))
              (bare (and l
                         (string-match org-link-bracket-re l)
                         (match-string 1 l))))