From dd2b24414a4b1e4dbf3929a4be117e8d299b8851 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:47:16 +0300 Subject: [PATCH 69/76] Deprecate org-point-at-end-of-empty-headline. --- lisp/org-compat.el | 2 ++ lisp/org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b6740324a..636814834 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -426,6 +426,8 @@ Counting starts at 1." 'org-odt-heading "9.5") (define-obsolete-function-alias 'org-org-headline 'org-org-heading "9.5") +(define-obsolete-function-alias 'org-point-at-end-of-empty-headline + 'org-point-at-end-of-empty-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/org.el b/lisp/org.el index 4e46d8104..73ee7473d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7392,7 +7392,7 @@ This goes first to child, then to parent, level, then up the hierarchy. After top level, it switches back to sibling level." (interactive) (let ((org-adapt-indentation nil)) - (when (org-point-at-end-of-empty-headline) + (when (org-point-at-end-of-empty-heading) (setq this-command 'org-cycle-level) ; Only needed for caching (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) @@ -20563,7 +20563,7 @@ unless optional argument NO-INHERITANCE is non-nil." (move-beginning-of-line 1) (looking-at org-block-regexp))) -(defun org-point-at-end-of-empty-headline () +(defun org-point-at-end-of-empty-heading () "If point is at the end of an empty heading, return t, else nil. If the heading only contains a TODO keyword, it is still considered empty." -- 2.33.0