mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

babel: `org-babel-lob-ingest': Avoid error when source name is missing

Browse source 
* ob-lob.el (org-babel-lob-ingest): Check for nil source block
	name
This commit is contained in:
Dan Davison 2010-10-11 17:37:05 +01:00
parent 68037b0e1e
commit c354cb8eff
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ob-lob.el
View file

@ -49,9 +49,10 @@ To add files to this list use the `org-babel-lob-ingest' command."
(interactive "f")
(org-babel-map-src-blocks file
(let* ((info (org-babel-get-src-block-info))
(source-name (intern (nth 4 info))))
(source-name (nth 4 info)))
(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)
(assq-delete-all source-name org-babel-library-of-babel)))))))