From 6c862699a6db3f6b76391c05380d92d9f1b3838f Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Fri, 7 Jun 2024 16:50:41 +0200 Subject: [PATCH] org-lint: Fix heuristics introduced in 51aea4946 * lisp/org-lint.el (org-lint-misplaced-heading): Use parser to query whether we are inside a verbatim block. `org-at-block-p' only triggers on the begin line of blocks. --- 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 aed774ee2..44064fb5c 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -395,7 +395,10 @@ 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) - (unless (org-at-block-p) ; Inside a block, where the chances to have heading a slim. + (unless (org-element-type-p + (org-element-at-point) + '(comment-block example-block export-block src-block) + ) ; Inside a block, where the chances to have heading a slim. (push (list (match-beginning 0) "Possibly misplaced heading line") result))) result)))