branch: externals/org
commit 9daee7038d353ea301a2e6a9ccad041eaba85daf
Author: Stefan Kangas <stefankan...@gmail.com>
Commit: Kyle Meyer <k...@kyleam.com>
Backport commit 375befcac from Emacs
* lisp/org-faces.el (org-drawer, org-tag, org-list-dt, org-todo)
(org-done, org-headline-todo, org-formula, org-agenda-structure)
(org-scheduled, org-scheduled-today, org-scheduled-previously)
(org-upcoming-deadline): Prefer defface attribute
':weight bold' to its obsolete alias ':bold t'. See also Bug#73552.
Prefer defface's ':weight bold' to obsolete alias ':bold t'
375befcacc8e7c37ec490145aa6ff9737ad102a1
Stefan Kangas
Tue Jan 21 09:29:09 2025 +0100
---
lisp/org-faces.el | 44 ++++++++++++++++++++++----------------------
1 file changed, 22 insertions(+), 22 deletions(-)
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index f3a484ee55..1f206b9114 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -103,8 +103,8 @@ color of the frame."
(((class color) (min-colors 88) (background dark)) (:foreground
"LightSkyBlue"))
(((class color) (min-colors 16) (background light)) (:foreground "Blue"))
(((class color) (min-colors 16) (background dark)) (:foreground
"LightSkyBlue"))
- (((class color) (min-colors 8)) (:foreground "blue" :bold t))
- (t (:bold t)))
+ (((class color) (min-colors 8)) (:foreground "blue" :weight bold))
+ (t (:weight bold)))
"Face used for drawers."
:group 'org-faces)
@@ -228,30 +228,30 @@ calendar."
"Face for diary-like sexp date specifications."
:group 'org-faces)
-(defface org-tag '((t (:bold t)))
+(defface org-tag '((t (:weight bold)))
"Default face for tags.
Note that the variable `org-tag-faces' can be used to overrule this face for
specific tags."
:group 'org-faces)
-(defface org-list-dt '((t (:bold t)))
+(defface org-list-dt '((t (:weight bold)))
"Default face for definition terms in lists."
:group 'org-faces)
(defface org-todo ;Copied from `font-lock-warning-face'
- '((((class color) (min-colors 16) (background light)) (:foreground "Red1"
:bold t))
- (((class color) (min-colors 16) (background dark)) (:foreground "Pink"
:bold t))
- (((class color) (min-colors 8) (background light)) (:foreground "red"
:bold t))
- (((class color) (min-colors 8) (background dark)) (:foreground "red"
:bold t))
- (t (:inverse-video t :bold t)))
+ '((((class color) (min-colors 16) (background light)) (:foreground "Red1"
:weight bold))
+ (((class color) (min-colors 16) (background dark)) (:foreground "Pink"
:weight bold))
+ (((class color) (min-colors 8) (background light)) (:foreground "red"
:weight bold))
+ (((class color) (min-colors 8) (background dark)) (:foreground "red"
:weight bold))
+ (t (:inverse-video t :weight bold)))
"Face for TODO keywords."
:group 'org-faces)
(defface org-done ;Copied from `font-lock-type-face'
- '((((class color) (min-colors 16) (background light)) (:foreground
"ForestGreen" :bold t))
- (((class color) (min-colors 16) (background dark)) (:foreground
"PaleGreen" :bold t))
+ '((((class color) (min-colors 16) (background light)) (:foreground
"ForestGreen" :weight bold))
+ (((class color) (min-colors 16) (background dark)) (:foreground
"PaleGreen" :weight bold))
(((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t)))
+ (t (:weight bold)))
"Face used for todo keywords that indicate DONE items."
:group 'org-faces)
@@ -271,7 +271,7 @@ of the frame, for example."
(defface org-headline-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)))
+ (((class color) (min-colors 8) (background light)) (:weight bold)))
"Face used to indicate that a headline is marked as TODO.
This face is only used if `org-fontify-todo-headline' is set. If applies
to the part of the headline after the TODO keyword."
@@ -404,7 +404,7 @@ changes."
(((class color) (min-colors 88) (background dark)) (:foreground
"chocolate1"))
(((class color) (min-colors 8) (background light)) (:foreground "red"))
(((class color) (min-colors 8) (background dark)) (:foreground "red"))
- (t (:bold t :italic t)))
+ (t (:weight bold :italic t)))
"Face for formulas."
:group 'org-faces)
@@ -509,8 +509,8 @@ content of these blocks will still be treated as Org
syntax."
(((class color) (min-colors 88) (background dark)) (:foreground
"LightSkyBlue"))
(((class color) (min-colors 16) (background light)) (:foreground "Blue"))
(((class color) (min-colors 16) (background dark)) (:foreground
"LightSkyBlue"))
- (((class color) (min-colors 8)) (:foreground "blue" :bold t))
- (t (:bold t)))
+ (((class color) (min-colors 8)) (:foreground "blue" :weight bold))
+ (t (:weight bold)))
"Face used in agenda for captions and dates."
:group 'org-faces)
@@ -552,7 +552,7 @@ which days belong to the weekend."
'((((class color) (min-colors 88) (background light)) (:foreground
"DarkGreen"))
(((class color) (min-colors 88) (background dark)) (:foreground
"PaleGreen"))
(((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t :italic t)))
+ (t (:weight bold :italic t)))
"Face for items scheduled for a certain day."
:group 'org-faces)
@@ -560,7 +560,7 @@ which days belong to the weekend."
'((((class color) (min-colors 88) (background light)) (:foreground
"DarkGreen"))
(((class color) (min-colors 88) (background dark)) (:foreground
"PaleGreen"))
(((class color) (min-colors 8)) (:foreground "green"))
- (t (:bold t :italic t)))
+ (t (:weight bold :italic t)))
"Face for items scheduled for a certain day."
:group 'org-faces)
@@ -574,8 +574,8 @@ which days belong to the weekend."
'((((class color) (min-colors 88) (background light)) (:foreground
"Firebrick"))
(((class color) (min-colors 88) (background dark)) (:foreground
"chocolate1"))
(((class color) (min-colors 8) (background light)) (:foreground "red"))
- (((class color) (min-colors 8) (background dark)) (:foreground "red"
:bold t))
- (t (:bold t)))
+ (((class color) (min-colors 8) (background dark)) (:foreground "red"
:weight bold))
+ (t (:weight bold)))
"Face for items scheduled previously, and not yet done."
:group 'org-faces)
@@ -588,8 +588,8 @@ See also `org-agenda-deadline-faces'."
'((((class color) (min-colors 88) (background light)) (:foreground
"Firebrick"))
(((class color) (min-colors 88) (background dark)) (:foreground
"chocolate1"))
(((class color) (min-colors 8) (background light)) (:foreground "red"))
- (((class color) (min-colors 8) (background dark)) (:foreground "red"
:bold t))
- (t (:bold t)))
+ (((class color) (min-colors 8) (background dark)) (:foreground "red"
:weight bold))
+ (t (:weight bold)))
"Face for items scheduled previously, and not yet done.
See also `org-agenda-deadline-faces'."
:group 'org-faces)
