Function: org-lint-regular-keyword-before-affiliated

org-lint-regular-keyword-before-affiliated is a byte-compiled function defined in org-lint.el.gz.

Signature

(org-lint-regular-keyword-before-affiliated AST)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-lint.el.gz
(defun org-lint-regular-keyword-before-affiliated (ast)
  (org-element-map ast 'keyword
    (lambda (keyword)
      (when (= (org-element-post-blank keyword) 0)
        (let ((next-element (org-with-point-at (org-element-end keyword)
                              (org-element-at-point))))
          (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)
                  (format "Independent keyword %s may be confused with affiliated keywords below"
                          (org-element-property :key keyword)))))))))