From c354cb8effa3a93273b40423cae2f5c57eea78c0 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Mon, 11 Oct 2010 17:37:05 +0100 Subject: [PATCH] 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 --- lisp/ob-lob.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index 33a698933..857e43f2b 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -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)))))))