babel: `org-babel-lob-ingest': Avoid error when source name is missing
* ob-lob.el (org-babel-lob-ingest): Check for nil source block name
This commit is contained in:
parent
68037b0e1e
commit
c354cb8eff
|
@ -49,9 +49,10 @@ To add files to this list use the `org-babel-lob-ingest' command."
|
||||||
(interactive "f")
|
(interactive "f")
|
||||||
(org-babel-map-src-blocks file
|
(org-babel-map-src-blocks file
|
||||||
(let* ((info (org-babel-get-src-block-info))
|
(let* ((info (org-babel-get-src-block-info))
|
||||||
(source-name (intern (nth 4 info))))
|
(source-name (nth 4 info)))
|
||||||
(when source-name
|
(when source-name
|
||||||
(setq org-babel-library-of-babel
|
(setq source-name (intern source-name)
|
||||||
|
org-babel-library-of-babel
|
||||||
(cons (cons source-name info)
|
(cons (cons source-name info)
|
||||||
(assq-delete-all source-name org-babel-library-of-babel)))))))
|
(assq-delete-all source-name org-babel-library-of-babel)))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue