diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-10-21 07:00:24 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-10-21 07:00:39 -0600 |
commit | 65217b7fb4954258ed3cd3843056caca7f54dc85 (patch) | |
tree | 189b8a0c14d81bcbb50d955740e6720726395913 | |
parent | db68b1fbf5827496b91651308fb3e5766283dfa5 (diff) | |
download | org-mode-65217b7fb4954258ed3cd3843056caca7f54dc85.tar.gz |
tangle: ensure that full info (with expanded variables) for tangling blocks
-rw-r--r-- | lisp/ob-tangle.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 07c8aad..9f069fc 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -286,11 +286,11 @@ code blocks by language." (src-lang (nth 0 info))) (unless (string= (cdr (assoc :tangle (nth 2 info))) "no") (unless (and language (not (string= language src-lang))) - (let* ((params (nth 2 info)) - (link (unless (string= (cdr (assoc :tangle params)) "no") - (progn (call-interactively 'org-store-link) - (org-babel-clean-text-properties - (car (pop org-stored-links)))))) + (let* ((info (org-babel-get-src-block-info)) + (params (nth 2 info)) + (link (progn (call-interactively 'org-store-link) + (org-babel-clean-text-properties + (car (pop org-stored-links))))) (source-name (intern (or (nth 4 info) (format "%s:%d" |