From e1456b8bfee2b3150a5304615d8dd6a40a66cf2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:52:40 +0300 Subject: [PATCH 73/76] Deprecate org-texinfo-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-texinfo.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index eb59a451e..667188ba2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -432,6 +432,8 @@ Counting starts at 1." 'org-remember-default-heading "9.5") (define-obsolete-function-alias 'org-texinfo-format-headline-default-function 'org-texinfo-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-texinfo-format-headline-function + 'org-texinfo-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-texinfo.el b/lisp/ox-texinfo.el index 2537c24ed..25b26507e 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -107,7 +107,7 @@ (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) ;; Other variables. (:texinfo-classes nil nil org-texinfo-classes) - (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) + (:texinfo-format-headline-function nil nil org-texinfo-format-heading-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) @@ -211,7 +211,7 @@ section string and will be replaced by the title of the section." ;;;; Heading -(defcustom org-texinfo-format-headline-function +(defcustom org-texinfo-format-heading-function 'org-texinfo-format-heading-default-function "Function to format heading text. @@ -930,7 +930,7 @@ holding contextual information." (defun org-texinfo-format-heading-default-function (todo _todo-type priority text tags) "Default format function for a heading. -See `org-texinfo-format-headline-function' for details." +See `org-texinfo-format-heading-function' for details." (concat (and todo (format "@strong{%s} " todo)) (and priority (format "@emph{#%s} " priority)) text -- 2.33.0