Browse Source

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
Dan Davison 14 years ago
parent
commit
c354cb8eff
1 changed files with 3 additions and 2 deletions
  1. 3 2
      lisp/ob-lob.el

+ 3 - 2
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)))))))