diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index a9f1242e6..225b64303 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -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))