branch: externals/org
commit 96eb9f0b4a6cfe096eecd47e23d785d92fcc1370
Author: Suhail <suh...@bayesians.ca>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-lint: Add function to remove checker(s)
* lisp/org-lint.el (org-lint-remove-checker): Remove one or more
checkers from `org-lint--checkers'.
TINYCHANGE
---
lisp/org-lint.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index aed774ee2d..ec28f5255f 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -159,6 +159,16 @@ checker. Currently, two properties are supported:
(seq-remove (lambda (c) (eq name (org-lint-checker-name c)))
org-lint--checkers))))
+;;;###autoload
+(defun org-lint-remove-checker (name &rest names)
+ "Remove checker(s) from linter.
+NAME is the unique check identifier, as a non-nil symbol. NAMES
+are additional check identifiers to be removed."
+ (let ((removelist (cons name names)))
+ (setq org-lint--checkers
+ (seq-remove (lambda (c) (memq (org-lint-checker-name c) removelist))
+ org-lint--checkers))))
+
;;; Reports UI
