org-element: Fix property drawers parsing

* lisp/org-element.el (org-element--next-mode): Properly handle first section.
* lisp/org-lint.el (org-lint-obsolete-properties-drawer): Ignore
document-level property drawers.
* testing/lisp/test-org-lint.el (test-org-lint/obsolete-properties-drawer):
Add tests.

lisp/org-element.el

@@ -4329,7 +4329,7 @@ located inside the current one.  "
   (if parent?
       (pcase type
 	(`headline 'section)
-	(`first-section 'top-comment)
+	((and `section (guard (eq mode 'first-section))) 'top-comment)
 	(`inlinetask 'planning)
 	(`plain-list 'item)
 	(`property-drawer 'node-property)

lisp/org-lint.el

@@ -541,15 +541,16 @@ Use :header-args: instead"
   (org-element-map ast 'drawer
     (lambda (d)
       (when (equal (org-element-property :drawer-name d) "PROPERTIES")
-	(let ((section (org-element-lineage d '(section))))
+	(let ((headline? (org-element-lineage d '(headline)))
-	  (unless (org-element-map section 'property-drawer #'identity nil t)
+	      (before
-	    (list (org-element-property :post-affiliated d)
+	       (mapcar #'org-element-type
-		  (if (save-excursion
+		       (assq d (reverse (org-element-contents
-			(goto-char (org-element-property :post-affiliated d))
+					 (org-element-property :parent d)))))))
-			(forward-line -1)
+	  (list (org-element-property :post-affiliated d)
-			(or (org-at-heading-p) (org-at-planning-p)))
+		(if (or (and headline? (member before '(nil (planning))))
-		      "Incorrect contents for PROPERTIES drawer"
+			(and (null headline?) (member before '(nil (comment)))))
-		    "Incorrect location for PROPERTIES drawer"))))))))
+		    "Incorrect contents for PROPERTIES drawer"
+		  "Incorrect location for PROPERTIES drawer")))))))
 
 (defun org-lint-invalid-effort-property (ast)
   (org-element-map ast 'node-property

testing/lisp/test-org-lint.el

@@ -205,6 +205,32 @@ Paragraph 2"
 
 (ert-deftest test-org-lint/obsolete-properties-drawer ()
   "Test `org-lint-obsolete-properties-drawer' checker."
+  (should-not
+   (org-test-with-temp-text "
+* H
+:PROPERTIES:
+:SOMETHING: foo
+:END:"
+     (org-lint '(obsolete-properties-drawer))))
+  (should-not
+   (org-test-with-temp-text "
+* H
+SCHEDULED: <2012-03-29>
+:PROPERTIES:
+:SOMETHING: foo
+:END:"
+     (org-lint '(obsolete-properties-drawer))))
+  (should-not
+   (org-test-with-temp-text ":PROPERTIES:
+:SOMETHING: foo
+:END:"
+     (org-lint '(obsolete-properties-drawer))))
+  (should-not
+   (org-test-with-temp-text "# Comment
+:PROPERTIES:
+:SOMETHING: foo
+:END:"
+     (org-lint '(obsolete-properties-drawer))))
   (should
    (org-test-with-temp-text "
 * H
@@ -218,6 +244,12 @@ Paragraph
 * H
 :PROPERTIES:
 This is not a node property
+:END:"
+     (org-lint '(obsolete-properties-drawer))))
+  (should
+   (org-test-with-temp-text "Paragraph
+:PROPERTIES:
+:FOO: bar
 :END:"
      (org-lint '(obsolete-properties-drawer)))))