From ec92c9bf9d512d7a04d2d6051146201ae4916319 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:46:26 +0300 Subject: [PATCH 68/76] Deprecate org-org-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 5d293c331..b6740324a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -424,6 +424,8 @@ Counting starts at 1." 'org-odt-format-toc-heading "9.5") (define-obsolete-function-alias 'org-odt-headline 'org-odt-heading "9.5") +(define-obsolete-function-alias 'org-org-headline + 'org-org-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-org.el b/lisp/ox-org.el index 477c35adb..b1a66c03e 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -66,7 +66,7 @@ setting of `org-html-htmlize-output-type' is `css'." (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) - (headline . org-org-headline) + (headline . org-org-heading) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) @@ -144,7 +144,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored." "^[ \t]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" "" (org-export-expand blob contents t)))) -(defun org-org-headline (heading contents info) +(defun org-org-heading (heading contents info) "Transcode HEADING element back into Org syntax. CONTENTS is its contents, as a string or nil. INFO is ignored." (unless (org-element-property :footnote-section-p heading) -- 2.33.0