branch: externals-release/org
commit b8497aa7fe317f78748901db041eae9801283a9a
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-lint: Do not warn about trailing *** lines inside blocks
* lisp/org-lint.el (org-lint-misplaced-heading): The chances that
there is a heading between #+begin... #+end lines is generally low.
So *** text instances are likely intended.
Reported-by: Suhail Singh <suhailsingh...@gmail.com>
Link: https://orgmode.org/list/87r0dc35ya....@gmail.com
---
lisp/org-lint.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 9d105175c2..39f0d67c14 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -395,7 +395,8 @@ called with one argument, the key used for comparison."
;; Heuristics for 2+ level heading not at bol.
(while (re-search-forward (rx (not (any "*\n\r ,")) ;; Not a bol; not
escaped ,** heading; not " *** words"
"*" (1+ "*") " ") nil t)
- (push (list (match-beginning 0) "Possibly misplaced heading line")
result))
+ (unless (org-at-block-p) ; Inside a block, where the chances to have
heading a slim.
+ (push (list (match-beginning 0) "Possibly misplaced heading line")
result)))
result)))
(defun org-lint-duplicate-custom-id (ast)
