branch: externals-release/org
commit 51aea4946252d358d827ac9d197eb5a6155dd9fb
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-lint: Improve heuristics for unknown src block language
* lisp/org-lint.el (org-lint-suspicious-language-in-src-block): Do not
complain about src block languages without execute function if there
is <lang>-mode major mode available.
Reported-by: Suhail Singh <suhailsingh...@gmail.com>
Link: https://orgmode.org/list/874ja7ik7h....@gmail.com
---
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)))))))
