diff options
| author | Ihor Radchenko <yantar92@gmail.com> | 2022-06-16 09:28:27 +0800 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-06-16 10:54:14 +0300 |
| commit | 4f37a3b299bcec71a0e9bdd84b7b226494006fe4 (patch) | |
| tree | 688a5791bc0ad3c9338621b12c84af941ee3bed3 | |
| parent | 979308b4cad2b573606ed71a1689a47a9e7a9e98 (diff) | |
| download | emacs-4f37a3b299bcec71a0e9bdd84b7b226494006fe4.tar.gz | |
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.
| -rw-r--r-- | lisp/org/org-element.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el index 9db1406b3fb..20b5b030392 100644 --- 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. |