diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index c845be26b..e82947418 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -393,12 +393,18 @@ Ignore standard property array."
        (`plain-text
         (or (get-text-property 0 ,property ,node)
             (when ,dflt
-              (if (plist-member (text-properties-at 0 ,node) ,property)
+              (if
+                  ;; FIXME: Byte-compiler throws false positives in Emacs 27.
+                  (with-no-warnings
+                    (plist-member (text-properties-at 0 ,node) ,property))
                   nil ,dflt))))
        (_
         (or (plist-get (nth 1 ,node) ,property)
             (when ,dflt
-              (if (plist-member (nth 1 ,node) ,property)
+              (if
+                  ;; FIXME: Byte-compiler throws false positives in Emacs 27.
+                  (with-no-warnings
+                    (plist-member (nth 1 ,node) ,property))
                   nil ,dflt))))))))
 
 (define-inline org-element-property-raw (property node &optional dflt)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index f197e34a9..69a62a2f5 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5219,7 +5219,7 @@ If there is no affiliated keyword, return the empty string."
      ;; cannot belong to the property list.
      (let (acc)
        (org-element-properties-mapc
-        (lambda (prop _ _)
+        (lambda (prop _ __)
           (let  ((keyword (upcase (substring (symbol-name prop) 1))))
             (when (or (string-match-p "^ATTR_" keyword)
 		      (and
diff --git a/lisp/org-id.el b/lisp/org-id.el
index d09c61b06..c11fa9a2d 100644
--- a/lisp/org-id.el
+++ b/lisp/org-id.el
@@ -678,8 +678,8 @@ optional argument MARKERP, return the position as a new marker."
 	   (buffer (or visiting
                        (if markerp (find-file-noselect file)
                          (if (<= 2 (cdr (func-arity #'get-buffer-create)))
-                             (get-buffer-create " *Org ID temp*" t)
-                           ;; Emacs 27 does not yet have second argument.
+                             (with-no-warnings (get-buffer-create " *Org ID temp*" t))
+                           ;; FIXME: Emacs 27 does not yet have second argument.
                            (get-buffer-create " *Org ID temp*"))))))
       (unwind-protect
 	  (with-current-buffer buffer