summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-04-01 10:34:49 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-04-01 10:34:49 -0600
commitcd4ce494496eb4d19a490193120e75647d60412a (patch)
tree5105a9531f102e6b9bfc4d70048df3923212883a
parent0e3a8100f35627611dba709aa3eddc192fea608b (diff)
downloadorg-mode-cd4ce494496eb4d19a490193120e75647d60412a.tar.gz
ob-tangle: fix link extraction for newer version of org-store-link
* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): Brought the link extraction code into line with a newer version of the org-store-link function.
-rw-r--r--lisp/ob-tangle.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index afbef81..b4bd147 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -295,9 +295,11 @@ code blocks by language."
(unless (and language (not (string= language src-lang)))
(let* ((info (org-babel-get-src-block-info))
(params (nth 2 info))
- (link (progn (org-store-link nil)
- (org-babel-clean-text-properties
- (car (pop org-stored-links)))))
+ (link ((lambda (link)
+ (and (string-match org-bracket-link-regexp link)
+ (match-string 1 link)))
+ (org-babel-clean-text-properties
+ (org-store-link nil))))
(source-name
(intern (or (nth 4 info)
(format "%s:%d"