From 8bc0c62127c6e8fa95e14a027ea948fe82b481c4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:37:52 +0300 Subject: [PATCH 62/76] Deprecate org-odt-format-headline--wrap. No alias since the function is internal. --- lisp/ox-odt.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index a639c6802..a14916c2b 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1156,7 +1156,7 @@ table of contents as a string, or nil." (and (not scope) (org-export-translate "Table of Contents" :utf-8 info)) (mapconcat (lambda (heading) - (let* ((entry (org-odt-format-headline--wrap + (let* ((entry (org-odt-format-heading--wrap heading backend info 'org-odt-format-toc-headline)) (level (org-export-get-relative-level heading info)) (style (format "Contents_20_%d" level))) @@ -1750,7 +1750,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-odt-format-headline--wrap (heading backend info +(defun org-odt-format-heading--wrap (heading backend info &optional format-function &rest extra-keys) "Transcode a HEADING element using BACKEND. @@ -1793,7 +1793,7 @@ CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." ;; Case 1: This is a footnote section: ignore it. (unless (org-element-property :footnote-section-p heading) - (let* ((full-text (org-odt-format-headline--wrap heading nil info)) + (let* ((full-text (org-odt-format-heading--wrap heading nil info)) ;; Get level relative to current parsed data. (level (org-export-get-relative-level heading info)) (numbered (org-export-numbered-heading-p heading info)) -- 2.33.0