|
@@ -4391,6 +4391,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)
|
|
@@ -4400,7 +4401,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.
|