diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-04-01 10:34:49 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-04-01 10:34:49 -0600 |
commit | cd4ce494496eb4d19a490193120e75647d60412a (patch) | |
tree | 5105a9531f102e6b9bfc4d70048df3923212883a | |
parent | 0e3a8100f35627611dba709aa3eddc192fea608b (diff) | |
download | org-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.el | 8 |
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" |