org-element-map: Avoid repetitive `plist-get' call

* lisp/org/org-element.el (org-element-map): Do not call `(plist-get info
:ignore-list)' on every iteration.

diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index 9db1406b3fbb328d9278d7f3c5469e46292f7a5e..20b5b03039229bd2d0f22f5ef691fea9fe3d3fbe 100644 (file)
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -4391,6 +4391,7 @@ looking into captions:
                       ;; every element it encounters.
                       (and (not (eq category 'elements))
                            (setq category 'elements))))))))
+         (--ignore-list (plist-get info :ignore-list))
         --acc)
     (letrec ((--walk-tree
              (lambda (--data)
@@ -4400,7 +4401,7 @@ looking into captions:
                  (cond
                   ((not --data))
                   ;; Ignored element in an export context.
-                  ((and info (memq --data (plist-get info :ignore-list))))
+                  ((and info (memq --data --ignore-list)))
                   ;; List of elements or objects.
                   ((not --type) (mapc --walk-tree --data))
                   ;; Unconditionally enter parse trees.