From 65217b7fb4954258ed3cd3843056caca7f54dc85 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 21 Oct 2010 07:00:24 -0600 Subject: [PATCH] tangle: ensure that full info (with expanded variables) for tangling blocks --- lisp/ob-tangle.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 07c8aad36..9f069fc8d 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"