mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 03:12:58 +00:00
org-export-get-ordinal: Do not ignore ELEMENT type when TYPES is given
* lisp/ox.el (org-export-get-ordinal): Append ELEMENT type to TYPES, when TYPES is non-nil.
This commit is contained in:
parent
bdb4c4c66e
commit
7048876f6f
|
@ -4753,7 +4753,8 @@ objects of the same type."
|
||||||
(let ((counter 0))
|
(let ((counter 0))
|
||||||
;; Increment counter until ELEMENT is found again.
|
;; Increment counter until ELEMENT is found again.
|
||||||
(org-element-map (plist-get info :parse-tree)
|
(org-element-map (plist-get info :parse-tree)
|
||||||
(or types (org-element-type element))
|
(or (and types (cons (org-element-type element) types))
|
||||||
|
(org-element-type element))
|
||||||
(lambda (el)
|
(lambda (el)
|
||||||
(let ((cached (org-element-property :org-export--counter el)))
|
(let ((cached (org-element-property :org-export--counter el)))
|
||||||
(cond
|
(cond
|
||||||
|
|
Loading…
Reference in a new issue