forked from mirrors/org-mode
babel: fixed error resolving references on export
Thanks to Nicolas Goaziou for reporting this problem
This commit is contained in:
parent
b7e273f25d
commit
afab7897a5
|
@ -177,7 +177,8 @@ suitable for exportation by org-mode. This function is called by
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(if (and org-current-export-file
|
(if (and org-current-export-file
|
||||||
(eq (car pair) :var)
|
(eq (car pair) :var)
|
||||||
(string-match org-babel-ref-split-regexp (cdr pair)))
|
(string-match org-babel-ref-split-regexp (cdr pair))
|
||||||
|
(null (org-babel-ref-literal (match-string 2 (cdr pair)))))
|
||||||
`(:var . ,(concat (match-string 1 (cdr pair))
|
`(:var . ,(concat (match-string 1 (cdr pair))
|
||||||
"=" org-current-export-file
|
"=" org-current-export-file
|
||||||
":" (match-string 2 (cdr pair))))
|
":" (match-string 2 (cdr pair))))
|
||||||
|
|
|
@ -84,7 +84,8 @@ emacs-lisp representation of the value of the variable."
|
||||||
(defun org-babel-ref-literal (ref)
|
(defun org-babel-ref-literal (ref)
|
||||||
"Determine if the right side of a header argument variable
|
"Determine if the right side of a header argument variable
|
||||||
assignment is a literal value or is a reference to some external
|
assignment is a literal value or is a reference to some external
|
||||||
resource. If REF is literal then return it's value, otherwise
|
resource. REF should be a string of the right hand side of the
|
||||||
|
assignment. If REF is literal then return it's value, otherwise
|
||||||
return nil."
|
return nil."
|
||||||
(let ((out (org-babel-read ref)))
|
(let ((out (org-babel-read ref)))
|
||||||
(if (equal out ref)
|
(if (equal out ref)
|
||||||
|
|
Loading…
Reference in New Issue