tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* lisp/org-element.el (org-element-map): Do not call `(plist-get info
:ignore-list)' on every iteration.
This commit is contained in:
Ihor Radchenko 2022-06-16 09:28:27 +08:00
parent a158b263a6
commit 37a447ae08
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-element.el
View file

@ -4612,6 +4612,7 @@ looking into captions:
;; every element it encounters. ;; every element it encounters.
(and (not (eq category 'elements)) (and (not (eq category 'elements))
(setq category 'elements)))))))) (setq category 'elements))))))))
(--ignore-list (plist-get info :ignore-list))
--acc) --acc)
(letrec ((--walk-tree (letrec ((--walk-tree
(lambda (--data) (lambda (--data)
@ -4621,7 +4622,7 @@ looking into captions:
(cond (cond
((not --data)) ((not --data))
;; Ignored element in an export context. ;; 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. ;; List of elements or objects.
((not --type) (mapc --walk-tree --data)) ((not --type) (mapc --walk-tree --data))
;; Unconditionally enter parse trees. ;; Unconditionally enter parse trees.