branch: externals/org
commit bb633b67400de67b37317b6ae0741034c196c8d9
Merge: d08a5abb90 51aea49462
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Merge branch 'bugfix'
---
lisp/org-lint.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 39f0d67c14..aed774ee2d 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -542,7 +542,10 @@ Use :header-args: instead"
(org-element-map ast 'src-block
(lambda (b)
(when-let ((lang (org-element-property :language b)))
- (unless (functionp (intern (format "org-babel-execute:%s" lang)))
+ (unless (or (functionp (intern (format "org-babel-execute:%s" lang)))
+ ;; No babel backend, but there is corresponding
+ ;; major mode.
+ (fboundp (org-src-get-lang-mode lang)))
(list (org-element-property :post-affiliated b)
(format "Unknown source block language: '%s'" lang)))))))
