From 6413624304140f77648f11422095db1336cc8538 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= <andremegafone@gmail.com>
Date: Sat, 9 Oct 2021 16:42:01 +0300
Subject: [PATCH 65/76] Deprecate org-odt-format-toc-headline.

---
 lisp/org-compat.el | 2 ++
 lisp/ox-odt.el     | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index f02f2daf2..962676fa2 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -420,6 +420,8 @@ Counting starts at 1."
   'org-odt-format-heading-default-function "9.5")
 (define-obsolete-variable-alias 'org-odt-format-headline-function
   'org-odt-format-heading-function "9.5")
+(define-obsolete-function-alias 'org-odt-format-toc-headline
+  'org-odt-format-toc-heading "9.5")
 
 (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5")
 (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5")
diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el
index c33ae0941..bdb9a5f40 100644
--- a/lisp/ox-odt.el
+++ b/lisp/ox-odt.el
@@ -1097,7 +1097,7 @@ specifying the depth of the table."
   </text:index-body>
 </text:table-of-content>"))
 
-(cl-defun org-odt-format-toc-headline
+(cl-defun org-odt-format-toc-heading
     (todo _todo-type priority text tags
 	  &key _level section-number headline-label &allow-other-keys)
   (format "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>"
@@ -1157,7 +1157,7 @@ table of contents as a string, or nil."
        (mapconcat
 	(lambda (heading)
 	  (let* ((entry (org-odt-format-heading--wrap
-			 heading backend info 'org-odt-format-toc-headline))
+			 heading backend info 'org-odt-format-toc-heading))
 		 (level (org-export-get-relative-level heading info))
 		 (style (format "Contents_20_%d" level)))
 	    (format "\n<text:p text:style-name=\"%s\">%s</text:p>"
-- 
2.33.0