[elpa] externals/org 501b2a1 1/3: ob-tangle.el: (org-babel-tangle-collect-blocks): Use correct tangle name

[ELPA Syncer]

branch: externals/org
commit 501b2a191c2c32c865af4de3d82b8562a9205161
Author: Sébastien Miquel <sebastien.miquel@posteo.eu>
Commit: Bastien <bzg@gnu.org>

    ob-tangle.el: (org-babel-tangle-collect-blocks): Use correct tangle name
    
    * lisp/ob-tangle.el: (org-babel-tangle-collect-blocks): Use correct
    tangle name.
    
    The :tangle header argument might be some elisp, to be evaluated.
---
 lisp/ob-tangle.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index 96a4ef0..8af03b1 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -377,6 +377,7 @@ be used to limit the collected code blocks by target file."
            ;; Add the spec for this block to blocks under its tangled
            ;; file name.
            (let* ((block (org-babel-tangle-single-block counter))
+                   (src-tfile (cdr (assq :tangle (nth 4 block))))
                   (base-name (cond
                               ((string= "yes" src-tfile)
                                 ;; buffer name