From f14425015f745fd50f0b1a4615c704aa38cfdbdf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:39:48 +0300 Subject: [PATCH 63/76] Deprecate org-odt-format-headline-default-function. --- lisp/org-compat.el | 2 ++ lisp/ox-odt.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index e7ef18364..7d2c4462a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -416,6 +416,8 @@ Counting starts at 1." 'org-mouse-end-heading "9.5") (define-obsolete-function-alias 'org-mouse-show-headlines 'org-mouse-show-headings "9.5") +(define-obsolete-function-alias 'org-odt-format-headline-default-function + 'org-odt-format-heading-default-function "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 a14916c2b..f6c5f01a8 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -653,7 +653,7 @@ The default value simply returns the value of CONTENTS." ;;;; Heading (defcustom org-odt-format-headline-function - 'org-odt-format-headline-default-function + 'org-odt-format-heading-default-function "Function to format heading text. This function will be called with 5 arguments: @@ -1850,7 +1850,7 @@ holding contextual information." (concat extra-targets anchored-title)) contents)))))) -(defun org-odt-format-headline-default-function +(defun org-odt-format-heading-default-function (todo todo-type priority text tags) "Default format function for a heading. See `org-odt-format-headline-function' for details." @@ -1938,7 +1938,7 @@ See `org-odt-format-inlinetask-function' for details." (concat (format "\n%s" "OrgInlineTaskHeading" - (org-odt-format-headline-default-function + (org-odt-format-heading-default-function todo todo-type priority name tags)) contents) nil nil "OrgInlineTaskFrame" " style:rel-width=\"100%\""))) -- 2.33.0