From fc9de8ceac0daab5c390d4414349f8c2dae5a330 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:31:07 +0300 Subject: [PATCH 22/76] Deprecate org-element-headline-interpreter. --- lisp/org-compat.el | 2 ++ lisp/org-element.el | 2 +- lisp/ox-org.el | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 88720de5c..3112f0b4b 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -352,6 +352,8 @@ Counting starts at 1." 'org-bibtex-treat-heading-as-title "9.5") (define-obsolete-function-alias 'org-edit-headline 'org-edit-heading "9.5") +(define-obsolete-function-alias 'org-element-headline-interpreter + 'org-element-heading-interpreter "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-element.el b/lisp/org-element.el index 5c300d6c2..4e2210d9a 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1088,7 +1088,7 @@ Assume point is at beginning of the heading." (org-element-restriction 'headline) heading))))))) -(defun org-element-headline-interpreter (heading contents) +(defun org-element-heading-interpreter (heading contents) "Interpret HEADING element as Org syntax. CONTENTS is the contents of the element." (let* ((level (org-element-property :level heading)) diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 74dfd5531..bccead7f3 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -156,7 +156,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored." (org-element-put-property heading :priority nil)) (org-element-put-property heading :level (org-export-get-relative-level heading info)) - (org-element-headline-interpreter heading contents))) + (org-element-heading-interpreter heading contents))) (defun org-org-keyword (keyword _contents _info) "Transcode KEYWORD element back into Org syntax. -- 2.33.0