From 13954bba36a986eb6f6a69f539b94c3cd0274da7 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:39:44 +0300
Subject: [PATCH 36/76] Deprecate org-headline-done.

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

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index fca87f9ca..dc5150f0e 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -379,6 +379,8 @@ Counting starts at 1."
 (define-obsolete-variable-alias 'org-fontify-todo-headline
   'org-fontify-todo-heading "9.5")
 
+(define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5")
+
 (defun org-in-fixed-width-region-p ()
   "Non-nil if point in a fixed-width region."
   (save-match-data
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index 76344f51d..8e37c55a6 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -276,7 +276,7 @@ This face is only used if `org-fontify-todo-heading' is set.  If applies
 to the part of the heading after the TODO keyword."
   :group 'org-faces)
 
-(defface org-headline-done	  ;Copied from `font-lock-string-face'
+(defface org-heading-done	  ;Copied from `font-lock-string-face'
   '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
     (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
     (((class color) (min-colors 8)  (background light)) (:bold nil)))
diff --git a/lisp/org.el b/lisp/org.el
index e13162e23..8ebee49f9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -3641,7 +3641,7 @@ When this is non-nil, the heading after the keyword is set to the
   "Non-nil means change the face of a heading if it is marked DONE.
 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-done' as an additional indication."
+`org-heading-done' as an additional indication."
   :group 'org-appearance
   :package-version '(Org . "9.4")
   :type 'boolean)
@@ -5722,7 +5722,7 @@ needs to be inserted at a specific position in the font-lock sequence.")
 			   "\\(?:"
 			   (mapconcat 'regexp-quote org-done-keywords "\\|")
 			   "\\)"))
-		  '(2 'org-headline-done prepend)))
+		  '(2 'org-heading-done prepend)))
 	  ;; Priorities
 	  '(org-font-lock-add-priority-faces)
 	  ;; Tags
-- 
2.33.0