summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-10-21 07:00:24 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-10-21 07:00:39 -0600
commit65217b7fb4954258ed3cd3843056caca7f54dc85 (patch)
tree189b8a0c14d81bcbb50d955740e6720726395913
parentdb68b1fbf5827496b91651308fb3e5766283dfa5 (diff)
downloadorg-mode-65217b7fb4954258ed3cd3843056caca7f54dc85.tar.gz
tangle: ensure that full info (with expanded variables) for tangling blocks
-rw-r--r--lisp/ob-tangle.el10
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"