From 8c026cd20fa871f3b507d06df44e4457c75303bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= <andremegafone@gmail.com>
Date: Fri, 8 Oct 2021 19:41:39 +0300
Subject: [PATCH 37/76] Deprecate org-headline-todo.

---
 lisp/org-compat.el | 1 +
 lisp/org-faces.el  | 2 +-
 lisp/org.el        | 4 ++--
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index dc5150f0e..86a50e473 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -380,6 +380,7 @@ Counting starts at 1."
   'org-fontify-todo-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")
 
 (defun org-in-fixed-width-region-p ()
   "Non-nil if point in a fixed-width region."
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index 8e37c55a6..1d8859836 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -267,7 +267,7 @@ is of course immediately visible, but for example a passed deadline is
 of the frame, for example."
   :group 'org-faces)
 
-(defface org-headline-todo	  ;Copied from `font-lock-string-face'
+(defface org-heading-todo	  ;Copied from `font-lock-string-face'
   '((((class color) (min-colors 16) (background light)) (:foreground "Red4"))
     (((class color) (min-colors 16) (background dark)) (:foreground "Pink2"))
     (((class color) (min-colors 8)  (background light)) (:bold t)))
diff --git a/lisp/org.el b/lisp/org.el
index 8ebee49f9..e06fe6937 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -3631,7 +3631,7 @@ hide them with `org-toggle-custom-properties-visibility'."
   "Non-nil means change the face of a heading if it is marked as TODO.
 Normally, only the TODO/DONE keyword indicates the state of a heading.
 When this is non-nil, the heading after the keyword is set to the
-`org-headline-todo' as an additional indication."
+`org-heading-todo' as an additional indication."
   :group 'org-appearance
   :package-version '(Org . "9.4")
   :type 'boolean
@@ -5714,7 +5714,7 @@ needs to be inserted at a specific position in the font-lock sequence.")
 			   "\\(?:"
 			   (mapconcat 'regexp-quote org-not-done-keywords "\\|")
 			   "\\)"))
-		  '(2 'org-headline-todo prepend)))
+		  '(2 'org-heading-todo prepend)))
 	  ;; DONE
 	  (when org-fontify-done-heading
 	    (list (format org-heading-keyword-regexp-format
-- 
2.33.0