From 23c3710a80909d246c3c1cd945758f9909ec835b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:51:44 +0300 Subject: [PATCH 40/76] Deprecate org-html-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 0f412b6a8..7d732300a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -380,6 +380,8 @@ Counting starts at 1." 'org-fontify-todo-heading "9.5") (define-obsolete-function-alias 'org-html-format-headline-default-function 'org-html-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-html-format-headline-function + 'org-html-format-heading-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-html.el b/lisp/ox-html.el index 4d1694a23..eed29b80c 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -140,7 +140,7 @@ (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) - (:html-format-headline-function nil nil org-html-format-headline-function) + (:html-format-headline-function nil nil org-html-format-heading-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) @@ -702,7 +702,7 @@ document title." :group 'org-export-html :type 'integer) -(defcustom org-html-format-headline-function +(defcustom org-html-format-heading-function 'org-html-format-heading-default-function "Function to format heading text. @@ -2676,7 +2676,7 @@ holding contextual information." (defun org-html-format-heading-default-function (todo _todo-type priority text tags info) "Default format function for a heading. -See `org-html-format-headline-function' for details." +See `org-html-format-heading-function' for details." (let ((todo (org-html--todo todo info)) (priority (org-html--priority priority info)) (tags (org-html--tags tags info))) -- 2.33.0