Fix tangle to multiple files

global.org

@@ -1019,7 +1019,7 @@
          (setq counter 1)
          (setq last-heading-pos current-heading-pos)))
          (unless (org-in-commented-heading-p)
-	 (let* ((info (org-babel-get-src-block-info 'light))
+       (let* ((info (org-babel-get-src-block-info))
           (src-lang (nth 0 info))
           (src-tfiles (cdr (assq :tangle (nth 2 info))))) ; Tobias: accept list for :tangle
          (unless (consp src-tfiles) ; Tobias: unify handling of strings and lists for :tangle
@@ -1044,12 +1044,15 @@
          (let* ((info (org-babel-get-src-block-info))
         (params (nth 2 info))
         (tfiles (cdr (assoc :tangle params))))
+       (message nil)
        (if (null (and only-this-block (consp tfiles)))
        (funcall oldfun block-counter only-this-block)
          (cl-assert (listp tfiles) nil
             ":tangle only allows a tangle file name or a list of tangle file names")
          (let ((ret (mapcar
              (lambda (tfile)
+               (message tfile)
+               (sleep-for 1)
            (let (old-get-info)
              (cl-letf* (((symbol-function 'old-get-info) (symbol-function 'org-babel-get-src-block-info))
                 ((symbol-function 'org-babel-get-src-block-info)
@@ -1065,6 +1068,7 @@
            (list (cons (cl-caaar ret) (mapcar #'cadar ret)))
          ret)))))
 
+
        (advice-add 'org-babel-tangle-collect-blocks :override #'org-babel-tangle-collect-blocks-handle-tangle-list)
        (advice-add 'org-babel-tangle-single-block :around #'org-babel-tangle-single-block-handle-tangle-list)
    #+end_src