ob-core: Tiny refactoring
* lisp/ob-core.el (org-babel-expand-noweb-references): Tiny refactoring.
This commit is contained in:
parent
774e553f11
commit
1e40dd6486
|
@ -2761,9 +2761,8 @@ block but are passed literally to the \"example-block\"."
|
||||||
(let ((raw (org-babel-ref-resolve source-name)))
|
(let ((raw (org-babel-ref-resolve source-name)))
|
||||||
(if (stringp raw) raw (format "%S" raw)))
|
(if (stringp raw) raw (format "%S" raw)))
|
||||||
(or
|
(or
|
||||||
;; Retrieve from the library of babel.
|
;; Retrieve from the Library of Babel.
|
||||||
(nth 2 (assoc (intern source-name)
|
(nth 2 (assoc-string source-name org-babel-library-of-babel))
|
||||||
org-babel-library-of-babel))
|
|
||||||
;; Return the contents of headlines literally.
|
;; Return the contents of headlines literally.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(when (org-babel-ref-goto-headline-id source-name)
|
(when (org-babel-ref-goto-headline-id source-name)
|
||||||
|
|
Loading…
Reference in New Issue