tangle: ensure that full info (with expanded variables) for tangling blocks
This commit is contained in:
parent
db68b1fbf5
commit
65217b7fb4
|
@ -286,11 +286,11 @@ code blocks by language."
|
||||||
(src-lang (nth 0 info)))
|
(src-lang (nth 0 info)))
|
||||||
(unless (string= (cdr (assoc :tangle (nth 2 info))) "no")
|
(unless (string= (cdr (assoc :tangle (nth 2 info))) "no")
|
||||||
(unless (and language (not (string= language src-lang)))
|
(unless (and language (not (string= language src-lang)))
|
||||||
(let* ((params (nth 2 info))
|
(let* ((info (org-babel-get-src-block-info))
|
||||||
(link (unless (string= (cdr (assoc :tangle params)) "no")
|
(params (nth 2 info))
|
||||||
(progn (call-interactively 'org-store-link)
|
(link (progn (call-interactively 'org-store-link)
|
||||||
(org-babel-clean-text-properties
|
(org-babel-clean-text-properties
|
||||||
(car (pop org-stored-links))))))
|
(car (pop org-stored-links)))))
|
||||||
(source-name
|
(source-name
|
||||||
(intern (or (nth 4 info)
|
(intern (or (nth 4 info)
|
||||||
(format "%s:%d"
|
(format "%s:%d"
|
||||||
|
|
Loading…
Reference in New Issue