Merge branch 'maint'
This commit is contained in:
commit
670cc5f924
|
@ -1175,14 +1175,15 @@ table of contents as a string, or nil."
|
|||
;; /TOC/, as otherwise there will be duplicated anchors one in TOC
|
||||
;; and one in the document body.
|
||||
;;
|
||||
;; FIXME: Are there any other objects that need to be suppressed
|
||||
;; within TOC?
|
||||
;; Likewise, links, footnote references and regular targets are also
|
||||
;; suppressed.
|
||||
(let* ((headlines (org-export-collect-headlines info depth scope))
|
||||
(backend (org-export-create-backend
|
||||
:parent (org-export-backend-name (plist-get info :back-end))
|
||||
:transcoders (mapcar
|
||||
(lambda (type) (cons type (lambda (d c i) c)))
|
||||
(list 'radio-target)))))
|
||||
:transcoders '((footnote-reference . ignore)
|
||||
(link . (lambda (object c i) c))
|
||||
(radio-target . (lambda (object c i) c))
|
||||
(target . ignore)))))
|
||||
(when headlines
|
||||
(org-odt--format-toc
|
||||
(and (not scope) (org-export-translate "Table of Contents" :utf-8 info))
|
||||
|
|
Loading…
Reference in New Issue