[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 37a447ae08 4/8: org-element-map: Avoid repetitive `

From: ELPA Syncer
Subject: [elpa] externals/org 37a447ae08 4/8: org-element-map: Avoid repetitive `plist-get' call
Date: Thu, 16 Jun 2022 02:02:36 -0400 (EDT)

branch: externals/org
commit 37a447ae08e9665db0bd03fc81ddafcf624a6b59
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    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 63e7c56323..61dbe4f142 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))
     (letrec ((--walk-tree
              (lambda (--data)
@@ -4621,7 +4622,7 @@ looking into captions:
                   ((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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]