From 37a447ae08e9665db0bd03fc81ddafcf624a6b59 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 16 Jun 2022 09:28:27 +0800 Subject: [PATCH] org-element-map: Avoid repetitive `plist-get' call * lisp/org-element.el (org-element-map): Do not call `(plist-get info :ignore-list)' on every iteration. --- lisp/org-element.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 63e7c5632..61dbe4f14 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4612,6 +4612,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) @@ -4621,7 +4622,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.