From 569b4cec0c8a631b5d51f38ed71686194aec8358 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:36:56 +0300 Subject: [PATCH 35/76] Deprecate org-fontify-todo-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 73e4612c4..fca87f9ca 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -376,6 +376,8 @@ Counting starts at 1." 'org-first-heading-recenter "9.5") (define-obsolete-variable-alias 'org-fontify-done-headline 'org-fontify-done-heading "9.5") +(define-obsolete-variable-alias 'org-fontify-todo-headline + 'org-fontify-todo-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 84cc9fde8..76344f51d 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -272,7 +272,7 @@ of the frame, for example." (((class color) (min-colors 16) (background dark)) (:foreground "Pink2")) (((class color) (min-colors 8) (background light)) (:bold t))) "Face used to indicate that a heading is marked as TODO. -This face is only used if `org-fontify-todo-headline' is set. If applies +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) diff --git a/lisp/org.el b/lisp/org.el index 39e7de143..e13162e23 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3627,7 +3627,7 @@ hide them with `org-toggle-custom-properties-visibility'." :version "24.3" :type '(repeat (string :tag "Property Name"))) -(defcustom org-fontify-todo-headline nil +(defcustom org-fontify-todo-heading nil "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 @@ -5708,7 +5708,7 @@ needs to be inserted at a specific position in the font-lock sequence.") org-todo-regexp) '(2 (org-get-todo-face 2) prepend)) ;; TODO - (when org-fontify-todo-headline + (when org-fontify-todo-heading (list (format org-heading-keyword-regexp-format (concat "\\(?:" -- 2.33.0