ob-core: Tiny refactoring

* lisp/ob-core.el (org-babel-expand-noweb-references): Tiny
  refactoring.
This commit is contained in:
Nicolas Goaziou 2017-12-23 14:03:52 +01:00
parent 774e553f11
commit 1e40dd6486
1 changed files with 2 additions and 3 deletions

View File

@ -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)