From 595249b497286c989ac66df43edd03dcad56ea39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:55:44 +0300 Subject: [PATCH 42/76] Deprecate org-html-self-link-headlines. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c6c1a58b7..059c656b2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -384,6 +384,8 @@ Counting starts at 1." 'org-html-format-heading-function "9.5") (define-obsolete-function-alias 'org-html-headline 'org-html-heading "9.5") +(define-obsolete-variable-alias 'org-html-self-link-headlines + 'org-html-self-link-headings "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 6647df3f6..9a00c11f1 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -155,7 +155,7 @@ (:html-postamble-format nil nil org-html-postamble-format) (:html-preamble-format nil nil org-html-preamble-format) (:html-prefer-user-labels nil nil org-html-prefer-user-labels) - (:html-self-link-headlines nil nil org-html-self-link-headlines) + (:html-self-link-headlines nil nil org-html-self-link-headings) (:html-table-align-individual-fields nil nil org-html-table-align-individual-fields) (:html-table-caption-above nil nil org-html-table-caption-above) @@ -731,7 +731,7 @@ but without \"name\" attribute." :package-version '(Org . "8.0") :type 'boolean) -(defcustom org-html-self-link-headlines nil +(defcustom org-html-self-link-headings nil "When non-nil, the headings contain a hyperlink to themselves." :group 'org-export-html :package-version '(Org . "9.3") -- 2.33.0