From 0de4e686b0a418182a3501872323c0321c69bff3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:32:57 +0300 Subject: [PATCH 23/76] Deprecate org-element-headline-parser. --- lisp/org-compat.el | 2 ++ lisp/org-element.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 3112f0b4b..fdf823d83 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -354,6 +354,8 @@ Counting starts at 1." 'org-edit-heading "9.5") (define-obsolete-function-alias 'org-element-headline-interpreter 'org-element-heading-interpreter "9.5") +(define-obsolete-function-alias 'org-element-headline-parser + 'org-element-heading-parser "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 4e2210d9a..54be90ba9 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -983,7 +983,7 @@ Return value is a plist." (t (setq plist (plist-put plist :closed time)))))) plist)))) -(defun org-element-headline-parser (limit &optional raw-secondary-p) +(defun org-element-heading-parser (limit &optional raw-secondary-p) "Parse a heading. Return a list whose CAR is `headline' and CDR is a plist @@ -4004,7 +4004,7 @@ element it has to parse." ((eq mode 'node-property) (org-element-node-property-parser limit)) ;; Heading. ((org-with-limited-levels (org-at-heading-p)) - (org-element-headline-parser limit raw-secondary-p)) + (org-element-heading-parser limit raw-secondary-p)) ;; Sections (must be checked after heading). ((eq mode 'section) (org-element-section-parser limit)) ((eq mode 'first-section) @@ -6015,7 +6015,7 @@ element ending there." ;; heading. ((org-with-limited-levels (org-at-heading-p)) (beginning-of-line) - (org-element-headline-parser (point-max) t)) + (org-element-heading-parser (point-max) t)) ;; Otherwise parse until we find element containing ORIGIN. (t (when (org-element--cache-active-p) -- 2.33.0