From a3a73bd31685be04950d5aabd8bce1ceff82b619 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 8 Sep 2019 20:55:21 -0400 Subject: [PATCH] Handle non-string/symbol langs in babel lazy loader Possibly addresses #1745 --- modules/lang/org/config.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 8a7b9a34a..c71b8370f 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -136,10 +136,12 @@ at the first function to return non-nil.") "Load babel libraries lazily when babel blocks are executed." :after-while #'org-babel-confirm-evaluate (let* ((lang (nth 0 info)) - (lang (if (symbolp lang) lang (intern lang))) + (lang (cond ((symbolp lang) lang) + ((stringp lang) (intern lang)))) (lang (or (cdr (assq lang +org-babel-mode-alist)) lang))) - (when (and (not (cdr (assq lang org-babel-load-languages))) + (when (and lang + (not (cdr (assq lang org-babel-load-languages))) (or (run-hook-with-args-until-success '+org-babel-load-functions lang) (require (intern (format "ob-%s" lang)) nil t))) (when (assq :async (nth 2 info))