branch: externals/org
commit 8b2e8a9651714344c15634f1061d775ef5fccb31
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-lint-regular-keyword-before-affiliated: Fix false positive
* lisp/org-lint.el (org-lint-regular-keyword-before-affiliated): Fix
false positive when the keyword is the very last element in buffer.
Reported-by: Joshua Honeycutt <[email protected]>
Link:
https://orgmode.org/list/[email protected]
---
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 43010b94a0..0c1605edd2 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -480,7 +480,10 @@ Example:
(when (= (org-element-post-blank keyword) 0)
(let ((next-element (org-with-point-at (org-element-end keyword)
(org-element-at-point))))
- (when (< (org-element-begin next-element)
(org-element-post-affiliated next-element))
+ (when (and
+ ;; KEYWORD being the last in the file is OK.
+ (not (equal (org-element-begin next-element)
(org-element-begin keyword)))
+ (< (org-element-begin next-element)
(org-element-post-affiliated next-element)))
;; A keyword followed without blank lines by an element with
affiliated keywords.
;; The keyword may be confused with affiliated keywords.
(list (org-element-begin keyword)
