From 71b13e6178f233399d04f3064a007811aeb3e882 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:35:46 +0300 Subject: [PATCH 34/76] Deprecate org-fontify-done-headline. --- 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 1e68d0ac1..73e4612c4 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -374,6 +374,8 @@ Counting starts at 1." 'org-find-top-heading "9.5") (define-obsolete-function-alias 'org-first-headline-recenter 'org-first-heading-recenter "9.5") +(define-obsolete-variable-alias 'org-fontify-done-headline + 'org-fontify-done-heading "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 aabf1f825..84cc9fde8 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -281,7 +281,7 @@ to the part of the heading after the TODO keyword." (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) "Face used to indicate that a heading is DONE. -This face is only used if `org-fontify-done-headline' is set. If applies +This face is only used if `org-fontify-done-heading' is set. If applies to the part of the heading after the DONE keyword." :group 'org-faces) diff --git a/lisp/org.el b/lisp/org.el index 6ff55c6fc..39e7de143 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3637,7 +3637,7 @@ When this is non-nil, the heading after the keyword is set to the :type 'boolean :safe #'booleanp) -(defcustom org-fontify-done-headline t +(defcustom org-fontify-done-heading t "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 @@ -5716,7 +5716,7 @@ needs to be inserted at a specific position in the font-lock sequence.") "\\)")) '(2 'org-headline-todo prepend))) ;; DONE - (when org-fontify-done-headline + (when org-fontify-done-heading (list (format org-heading-keyword-regexp-format (concat "\\(?:" -- 2.33.0