From 64d314e0f6495de6fcf4f4c51e710b597a237e4f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 21 Jan 2025 09:56:59 +0100 Subject: [PATCH] Prefer defface's ':slant italic' to obsolete alias ':italic t' * etc/themes/manoj-dark-theme.el (manoj-dark): * etc/themes/modus-themes.el (modus-themes-faces): * etc/themes/manoj-dark-theme.el (manoj-dark): * etc/themes/modus-themes.el (modus-themes-faces): * lisp/emacs-lisp/eieio-custom.el (eieio-custom-slot-tag-face): * lisp/gnus/gnus-art.el (gnus-emphasis-italic) (gnus-emphasis-underline-italic, gnus-emphasis-bold-italic) (gnus-emphasis-underline-bold-italic, gnus-signature) (gnus-header-from, gnus-header-subject, gnus-header-newsgroups) (gnus-header-content): * lisp/gnus/gnus-cite.el (gnus-cite-attribution, gnus-cite-1) (gnus-cite-2, gnus-cite-3, gnus-cite-4, gnus-cite-5, gnus-cite-6) (gnus-cite-7, gnus-cite-8, gnus-cite-9, gnus-cite-10, gnus-cite-11): * lisp/gnus/gnus-srvr.el (gnus-server-cloud-host) (gnus-server-closed): * lisp/gnus/gnus.el (gnus-group-mail-1-empty) (gnus-group-mail-2-empty, gnus-summary-low-ticked) (gnus-summary-low-ancient, gnus-summary-low-undownloaded) (gnus-summary-low-unread, gnus-summary-low-read): * lisp/gnus/message.el (message-header-to) (message-header-newsgroups, message-header-other): * lisp/gnus/mm-decode.el (mm-command-output): * lisp/mh-e/mh-e.el (mh-face-data, mh-folder-body): * lisp/net/dictionary.el (dictionary-word-entry-face): * lisp/org/org-faces.el (org-formula, org-agenda-date-today) (org-scheduled, org-scheduled-today): * lisp/proced.el (proced-interruptible-sleep-status-code): * lisp/progmodes/prolog.el (prolog-font-lock-keywords): * lisp/progmodes/verilog-mode.el (verilog-font-lock-translate-off-face) (verilog-font-lock-p1800-face, verilog-font-lock-ams-face) (verilog-font-lock-grouping-keywords-face): * lisp/progmodes/vhdl-mode.el (vhdl-font-lock-attribute-face) (vhdl-font-lock-enumvalue-face, vhdl-font-lock-function-face) (vhdl-font-lock-directive-face): * lisp/transient.el (transient-inapt-suffix): * lisp/vc/ediff-init.el (ediff-even-diff-A, ediff-even-diff-B) (ediff-even-diff-C, ediff-even-diff-Ancestor, ediff-odd-diff-A) (ediff-odd-diff-B, ediff-odd-diff-C, ediff-odd-diff-Ancestor): Prefer defface attribute ':slant italic' to its obsolete alias ':italic t'. See also Bug#73552. --- etc/themes/manoj-dark-theme.el | 22 +++++++++++----------- etc/themes/modus-themes.el | 4 ++-- lisp/emacs-lisp/eieio-custom.el | 2 +- lisp/gnus/gnus-art.el | 26 +++++++++++++------------- lisp/gnus/gnus-cite.el | 24 ++++++++++++------------ lisp/gnus/gnus-srvr.el | 12 ++++++------ lisp/gnus/gnus.el | 14 +++++++------- lisp/gnus/message.el | 10 +++++----- lisp/gnus/mm-decode.el | 2 +- lisp/mh-e/mh-e.el | 28 ++++++++++++++-------------- lisp/net/dictionary.el | 2 +- lisp/org/org-faces.el | 8 ++++---- lisp/proced.el | 2 +- lisp/progmodes/prolog.el | 8 ++++---- lisp/progmodes/verilog-mode.el | 16 ++++++++-------- lisp/progmodes/vhdl-mode.el | 8 ++++---- lisp/transient.el | 2 +- lisp/vc/ediff-init.el | 16 ++++++++-------- 18 files changed, 103 insertions(+), 103 deletions(-) diff --git a/etc/themes/manoj-dark-theme.el b/etc/themes/manoj-dark-theme.el index 5dbc7d7e715..d9442653afc 100644 --- a/etc/themes/manoj-dark-theme.el +++ b/etc/themes/manoj-dark-theme.el @@ -78,7 +78,7 @@ jarring angry fruit salad look to reduce eye fatigue." ;; Font lock faces '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) '(font-lock-constant-face ((t (:foreground "LightSlateBlue" :weight bold)))) - '(font-lock-preprocessor-face ((t (:foreground "CornFlowerBlue" :italic t)))) + '(font-lock-preprocessor-face ((t (:foreground "CornFlowerBlue" :slant italic)))) '(font-lock-keyword-face ((t (:foreground "cyan1")))) '(font-lock-type-face ((t (:foreground "SteelBlue1")))) '(font-lock-regexp-grouping-backslash ((t (:weight bold)))) @@ -87,17 +87,17 @@ jarring angry fruit salad look to reduce eye fatigue." '(font-lock-function-name-face ((t ( :foreground "mediumspringgreen" :weight bold)))) '(font-lock-string-face ((t (:foreground "RosyBrown1")))) - '(font-lock-comment-face ((t (:italic t :slant oblique :foreground "chocolate1")))) + '(font-lock-comment-face ((t (:slant italic :slant oblique :foreground "chocolate1")))) '(font-lock-comment-delimiter-face ((t (:foreground "Salmon")))) - '(font-lock-doc-face ((t (:italic t :slant oblique :foreground "LightCoral")))) + '(font-lock-doc-face ((t (:slant italic :slant oblique :foreground "LightCoral")))) '(font-lock-warning-face ((t (:foreground "Pink" :weight bold)))) '(cperl-array-face ((t (:foreground "LawnGreen" :background "Black" :weight bold)))) - '(cperl-hash-face ((t (:foreground "SpringGreen" :background "Black" :weight bold :italic t)))) + '(cperl-hash-face ((t (:foreground "SpringGreen" :background "Black" :weight bold :slant italic)))) '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) '(gnus-button ((t (:weight bold :background "#191932" :box (:line-width 2 :style released-button))))) - '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-attribution-face ((t (:slant italic)))) '(gnus-cite-face-1 ((t (:foreground "CornflowerBlue")))) '(gnus-cite-face-2 ((t (:foreground "PaleGreen")))) '(gnus-cite-face-3 ((t (:foreground "LightGoldenrod")))) @@ -383,9 +383,9 @@ jarring angry fruit salad look to reduce eye fatigue." :foreground "black" :background "grey" :weight bold )))) '(calendar-today-face ((t (:underline t :weight bold :foreground "cornsilk")))) - '(change-log-acknowledgment ((t (:italic t :slant oblique :foreground "AntiqueWhite3")))) + '(change-log-acknowledgment ((t (:slant italic :slant oblique :foreground "AntiqueWhite3")))) '(change-log-conditionals-face ((t (:foreground "Aquamarine")))) - '(change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) + '(change-log-date-face ((t (:slant italic :slant oblique :foreground "BurlyWood")))) '(change-log-email-face ((t (:foreground "Aquamarine")))) '(change-log-file-face ((t (:weight bold :foreground "LightSkyBlue" :height 0.9)))) '(change-log-function-face ((t (:foreground "Aquamarine")))) @@ -505,7 +505,7 @@ jarring angry fruit salad look to reduce eye fatigue." '(eshell-test-failed-face ((t (:foreground "OrangeRed" :weight bold)))) '(eshell-test-ok-face ((t (:foreground "Green" :weight bold)))) - '(excerpt ((t (:italic t)))) + '(excerpt ((t (:slant italic)))) '(file-name-shadow ((t (:foreground "grey70")))) '(fixed ((t (:weight bold)))) '(flyspell-duplicate-face ((t (:foreground "IndianRed" :weight bold :underline t)))) @@ -533,7 +533,7 @@ jarring angry fruit salad look to reduce eye fatigue." '(holiday-face ((t (:background "chocolate4")))) '(ibuffer-dired-buffer-face ((t (:foreground "mediumspringgreen" :weight bold :height 1.1)))) - '(ibuffer-help-buffer-face ((t (:italic t :slant oblique :foreground "chocolate1")))) + '(ibuffer-help-buffer-face ((t (:slant italic :slant oblique :foreground "chocolate1")))) '(ibuffer-hidden-buffer-face ((t (:foreground "Pink" :weight bold)))) '(ibuffer-occur-match-face ((t (:foreground "Pink" :weight bold)))) '(ibuffer-read-only-buffer-face ((t (:foreground "SteelBlue1")))) @@ -545,7 +545,7 @@ jarring angry fruit salad look to reduce eye fatigue." '(ido-only-match ((t (:foreground "ForestGreen")))) '(ido-subdir ((t (:foreground "red1")))) '(info-menu-header ((t (:weight bold)))) - '(info-node ((t (:weight bold :italic t :foreground "yellow")))) + '(info-node ((t (:weight bold :slant italic :foreground "yellow")))) '(info-node ((t (:foreground "white" :slant italic :weight bold)))) '(info-xref ((t (:weight bold :foreground "DodgerBlue1")))) '(info-xref ((t (:foreground "cyan" :weight bold)))) @@ -553,7 +553,7 @@ jarring angry fruit salad look to reduce eye fatigue." '(isearch-fail ((t (:background "red4")))) '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) '(isearch-secondary ((t (:foreground "red3")))) - '(italic ((t (:italic t)))) + '(italic ((t (:slant italic)))) '(js2-builtin-face ((t (:foreground "sandy brown")))) '(js2-comment-face ((t (:foreground "dark orchid")))) diff --git a/etc/themes/modus-themes.el b/etc/themes/modus-themes.el index 227b22f0bbb..655d7a830e6 100644 --- a/etc/themes/modus-themes.el +++ b/etc/themes/modus-themes.el @@ -2811,11 +2811,11 @@ FG and BG are the main colors." ;;;;; jabber `(jabber-activity-face ((,c :foreground ,modeline-info))) `(jabber-roster-user-away ((,c :foreground ,red-faint))) - `(jabber-roster-user-xa ((,c :foreground ,magenta :italic t))) + `(jabber-roster-user-xa ((,c :foreground ,magenta :slant italic))) `(jabber-roster-user-dnd ((,c :foreground ,red :weight bold))) `(jabber-roster-user-chatty ((,c :foreground ,cyan-intense))) `(jabber-roster-user-error ((,c :inherit error))) - `(jabber-roster-user-offline ((,c :foreground ,fg-dim :italic t))) + `(jabber-roster-user-offline ((,c :foreground ,fg-dim :slant italic))) `(jabber-roster-user-online ((,c :foreground ,cyan :weight bold))) `(jabber-chat-prompt-foreign ((,c :foreground ,red :weight bold))) `(jabber-chat-prompt-system ((,c :foreground ,green))) diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index 60ec854bb69..3f5291d0dee 100644 --- a/lisp/emacs-lisp/eieio-custom.el +++ b/lisp/emacs-lisp/eieio-custom.el @@ -75,7 +75,7 @@ of these.") (((class color) (background light)) (:foreground "blue")) - (t (:italic t))) + (t (:slant italic))) "Face used for unpushable variable tags." :group 'custom-faces) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 6ea794840ab..89982f0b1ca 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -457,7 +457,7 @@ and the latter avoids underlining any whitespace at all." "Face used for displaying strong emphasized text (*word*)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-italic '((t (:italic t))) +(defface gnus-emphasis-italic '((t (:slant italic))) "Face used for displaying italic emphasized text (/word/)." :group 'gnus-article-emphasis) @@ -469,16 +469,16 @@ and the latter avoids underlining any whitespace at all." "Face used for displaying underlined bold emphasized text (_*word*_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-underline-italic '((t (:italic t :underline t))) +(defface gnus-emphasis-underline-italic '((t (:slant italic :underline t))) "Face used for displaying underlined italic emphasized text (_/word/_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-bold-italic '((t (:weight bold :italic t))) +(defface gnus-emphasis-bold-italic '((t (:weight bold :slant italic))) "Face used for displaying bold italic emphasized text (/*word*/)." :group 'gnus-article-emphasis) (defface gnus-emphasis-underline-bold-italic - '((t (:weight bold :italic t :underline t))) + '((t (:weight bold :slant italic :underline t))) "Face used for displaying underlined bold italic emphasized text. Example: (_/*word*/_)." :group 'gnus-article-emphasis) @@ -762,7 +762,7 @@ Obsolete; use the face `gnus-signature' for customizations instead." (defface gnus-signature '((t - (:italic t))) + (:slant italic))) "Face used for highlighting a signature in the article buffer." :group 'gnus-article-highlight :group 'gnus-article-signature) @@ -783,7 +783,7 @@ All the other `gnus-header-' faces inherit from this face." (background light)) (:foreground "red3" :inherit gnus-header)) (t - (:italic t :inherit gnus-header))) + (:slant italic :inherit gnus-header))) "Face used for displaying from headers." :version "29.1" :group 'gnus-article-headers @@ -797,7 +797,7 @@ All the other `gnus-header-' faces inherit from this face." (background light)) (:foreground "red4" :inherit gnus-header)) (t - (:weight bold :italic t :inherit gnus-header))) + (:weight bold :slant italic :inherit gnus-header))) "Face used for displaying subject headers." :group 'gnus-article-headers :group 'gnus-article-highlight) @@ -805,12 +805,12 @@ All the other `gnus-header-' faces inherit from this face." (defface gnus-header-newsgroups '((((class color) (background dark)) - (:foreground "yellow" :italic t :inherit gnus-header)) + (:foreground "yellow" :slant italic :inherit gnus-header)) (((class color) (background light)) - (:foreground "MidnightBlue" :italic t)) + (:foreground "MidnightBlue" :slant italic)) (t - (:italic t))) + (:slant italic))) "Face used for displaying newsgroups headers. In the default setup this face is only used for crossposted articles." @@ -833,12 +833,12 @@ articles." (defface gnus-header-content '((((class color) (background dark)) - (:foreground "SpringGreen1" :italic t :inherit gnus-header)) + (:foreground "SpringGreen1" :slant italic :inherit gnus-header)) (((class color) (background light)) - (:foreground "indianred4" :italic t :inherit gnus-header)) + (:foreground "indianred4" :slant italic :inherit gnus-header)) (t - (:italic t :inherit gnus-header))) + (:slant italic :inherit gnus-header))) "Face used for displaying header content." :group 'gnus-article-headers :group 'gnus-article-highlight) diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el index e6b5b5442aa..df69b294b5f 100644 --- a/lisp/gnus/gnus-cite.el +++ b/lisp/gnus/gnus-cite.el @@ -119,7 +119,7 @@ the envelope From line." :version "22.1" :type 'boolean) -(defface gnus-cite-attribution '((t (:italic t))) +(defface gnus-cite-attribution '((t (:slant italic))) "Face used for attribution lines.") (defcustom gnus-cite-attribution-face 'gnus-cite-attribution @@ -135,7 +135,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "MidnightBlue")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-2 '((((class color) @@ -145,7 +145,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "firebrick")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-3 '((((class color) @@ -155,7 +155,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "dark green")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-4 '((((class color) @@ -165,7 +165,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "OrangeRed")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-5 '((((class color) @@ -175,7 +175,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "dark khaki")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-6 '((((class color) @@ -185,7 +185,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "dark violet")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-7 '((((class color) @@ -195,7 +195,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "SteelBlue4")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-8 '((((class color) @@ -205,7 +205,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "magenta")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-9 '((((class color) @@ -215,7 +215,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "violet")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-10 '((((class color) @@ -225,7 +225,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "medium purple")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-11 '((((class color) @@ -235,7 +235,7 @@ It is merged with the face for the cited text belonging to the attribution." (background light)) (:foreground "turquoise")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defcustom gnus-cite-face-list diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 9dbc444a05c..fb96a1ab61f 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el @@ -196,9 +196,9 @@ If nil, a faster, but more primitive, buffer is used instead." :group 'gnus-server-visual) (defface gnus-server-cloud-host - '((((class color) (background light)) (:foreground "ForestGreen" :inverse-video t :italic t)) - (((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :italic t)) - (t (:inverse-video t :italic t))) + '((((class color) (background light)) (:foreground "ForestGreen" :inverse-video t :slant italic)) + (((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :slant italic)) + (t (:inverse-video t :slant italic))) "Face used for displaying the Cloud Host." :group 'gnus-server-visual) @@ -210,10 +210,10 @@ If nil, a faster, but more primitive, buffer is used instead." :group 'gnus-server-visual) (defface gnus-server-closed - '((((class color) (background light)) (:foreground "Steel Blue" :italic t)) + '((((class color) (background light)) (:foreground "Steel Blue" :slant italic)) (((class color) (background dark)) - (:foreground "LightBlue" :italic t)) - (t (:italic t))) + (:foreground "LightBlue" :slant italic)) + (t (:slant italic))) "Face used for displaying CLOSED servers." :group 'gnus-server-visual) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index cbf49810bec..3099f95ebd3 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -483,7 +483,7 @@ If nil, there will be no Gnus logo in the mode-line." (background light)) (:foreground "DeepPink3")) (t - (:italic t))) + (:slant italic))) "Level 1 empty mailgroup face." :group 'gnus-group) @@ -500,7 +500,7 @@ If nil, there will be no Gnus logo in the mode-line." (background light)) (:foreground "HotPink3")) (t - (:italic t))) + (:slant italic))) "Level 2 empty mailgroup face." :group 'gnus-group) @@ -574,7 +574,7 @@ If nil, there will be no Gnus logo in the mode-line." :group 'gnus-summary) (defface gnus-summary-low-ticked - '((t (:inherit gnus-summary-normal-ticked :italic t))) + '((t (:inherit gnus-summary-normal-ticked :slant italic))) "Face used for low interest ticked articles." :group 'gnus-summary) @@ -596,7 +596,7 @@ If nil, there will be no Gnus logo in the mode-line." :group 'gnus-summary) (defface gnus-summary-low-ancient - '((t (:inherit gnus-summary-normal-ancient :italic t))) + '((t (:inherit gnus-summary-normal-ancient :slant italic))) "Face used for low interest ancient articles." :group 'gnus-summary) @@ -616,7 +616,7 @@ If nil, there will be no Gnus logo in the mode-line." :group 'gnus-summary) (defface gnus-summary-low-undownloaded - '((t (:inherit gnus-summary-normal-undownloaded :italic t))) + '((t (:inherit gnus-summary-normal-undownloaded :slant italic))) "Face used for low interest uncached articles." :group 'gnus-summary) @@ -632,7 +632,7 @@ If nil, there will be no Gnus logo in the mode-line." :group 'gnus-summary) (defface gnus-summary-low-unread - '((t (:inherit gnus-summary-normal-unread :italic t))) + '((t (:inherit gnus-summary-normal-unread :slant italic))) "Face used for low interest unread articles." :group 'gnus-summary) @@ -654,7 +654,7 @@ If nil, there will be no Gnus logo in the mode-line." :group 'gnus-summary) (defface gnus-summary-low-read - '((t (:inherit gnus-summary-normal-read :italic t))) + '((t (:inherit gnus-summary-normal-read :slant italic))) "Face used for low interest read articles." :group 'gnus-summary) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 6269eda8423..b552b211eb8 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1525,7 +1525,7 @@ starting with `not' and followed by regexps." (background light)) :foreground "MidnightBlue" :weight bold) (t - :weight bold :italic t)) + :weight bold :slant italic)) "Face used for displaying To headers." :group 'message-faces) @@ -1556,12 +1556,12 @@ starting with `not' and followed by regexps." (defface message-header-newsgroups '((((class color) (background dark)) - :foreground "yellow" :weight bold :italic t) + :foreground "yellow" :weight bold :slant italic) (((class color) (background light)) - :foreground "blue4" :weight bold :italic t) + :foreground "blue4" :weight bold :slant italic) (t - :weight bold :italic t)) + :weight bold :slant italic)) "Face used for displaying Newsgroups headers." :group 'message-faces) @@ -1573,7 +1573,7 @@ starting with `not' and followed by regexps." (background light)) :foreground "steel blue") (t - :weight bold :italic t)) + :weight bold :slant italic)) "Face used for displaying other headers." :group 'message-faces) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 6aab997b892..8273c48ff97 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -66,7 +66,7 @@ (background light)) (:foreground "red3")) (t - (:italic t))) + (:slant italic))) "Face used for displaying output from commands." :group 'mime-display) diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 8f1fb01818d..107b91f8355 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -3336,11 +3336,11 @@ sequence." (((class color)) (:foreground "yellow" :weight light)) (((class grayscale) (background light)) - (:foreground "Gray90" :weight bold :italic t)) + (:foreground "Gray90" :weight bold :slant italic)) (((class grayscale) (background dark)) - (:foreground "DimGray" :weight bold :italic t)) + (:foreground "DimGray" :weight bold :slant italic)) (t - (:weight bold :italic t)))) + (:weight bold :slant italic)))) (mh-folder-subject ((((class color) (background light)) (:foreground "blue4")) @@ -3363,11 +3363,11 @@ sequence." (((class color)) (:foreground "green")) (((class grayscale) (background light)) - (:foreground "DimGray" :italic t)) + (:foreground "DimGray" :slant italic)) (((class grayscale) (background dark)) - (:foreground "LightGray" :italic t)) + (:foreground "LightGray" :slant italic)) (t - (:italic t)))) + (:slant italic)))) (mh-letter-header-field ((((class color) (background light)) (:background "gray90")) @@ -3390,11 +3390,11 @@ sequence." (((class color)) (:foreground "yellow" :weight light)) (((class grayscale) (background light)) - (:foreground "Gray90" :weight bold :italic t)) + (:foreground "Gray90" :weight bold :slant italic)) (((class grayscale) (background dark)) - (:foreground "DimGray" :weight bold :italic t)) + (:foreground "DimGray" :weight bold :slant italic)) (t - (:weight bold :italic t)))) + (:weight bold :slant italic)))) (mh-show-date ((((class color) (min-colors 64) (background light)) (:foreground "ForestGreen")) @@ -3423,15 +3423,15 @@ sequence." (((class color)) (:foreground "green")) (((class grayscale) (background light)) - (:foreground "DimGray" :italic t)) + (:foreground "DimGray" :slant italic)) (((class grayscale) (background dark)) - (:foreground "LightGray" :italic t)) + (:foreground "LightGray" :slant italic)) (t - (:italic t)))) + (:slant italic)))) (mh-show-pgg-bad ((t (:weight bold :foreground "DeepPink1")))) (mh-show-pgg-good ((t (:weight bold :foreground "LimeGreen")))) (mh-show-pgg-unknown ((t (:weight bold :foreground "DarkGoldenrod2")))) - (mh-show-signature ((t (:italic t)))) + (mh-show-signature ((t (:slant italic)))) (mh-show-to ((((class color) (background light)) (:foreground "SaddleBrown")) @@ -3501,7 +3501,7 @@ not added to the returned spec." '((((class color)) (:inherit mh-folder-msg-number)) (t - (:inherit mh-folder-msg-number :italic t)))) + (:inherit mh-folder-msg-number :slant italic)))) "Body text face." :group 'mh-faces :group 'mh-folder diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index 6d051e321a7..2df48f9a836 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el @@ -337,7 +337,7 @@ Otherwise, `dictionary-search' displays definitions in a *Dictionary* buffer." (defface dictionary-word-entry-face '((((type x)) - (:italic t)) + (:slant italic)) (((type tty) (class color)) (:foreground "green")) (t diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index 1f206b91143..7fb04bb9fd7 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -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 (:weight bold :italic t))) + (t (:weight bold :slant italic))) "Face for formulas." :group 'org-faces) @@ -529,7 +529,7 @@ it (e.g. if that is assigned a different font height or family)." :group 'org-faces) (defface org-agenda-date-today - '((t (:inherit org-agenda-date :weight bold :italic t))) + '((t (:inherit org-agenda-date :weight bold :slant italic))) "Face used in agenda for today." :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 (:weight bold :italic t))) + (t (:weight bold :slant italic))) "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 (:weight bold :italic t))) + (t (:weight bold :slant italic))) "Face for items scheduled for a certain day." :group 'org-faces) diff --git a/lisp/proced.el b/lisp/proced.el index 6d47ff98a97..7bc6b44eee4 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -457,7 +457,7 @@ It is a list of lists (KEY PREDICATE REVERSE).") (defface proced-interruptible-sleep-status-code '((((class color) (min-colors 88)) (:foreground "DimGrey")) - (t (:italic t))) + (t (:slant italic))) "Face used in Proced buffers for interruptible sleep status code character \"S\"." :version "29.1") diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 5898cced17f..321aaa77693 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1868,9 +1868,9 @@ Argument BOUND is a buffer position limiting searching." ;; Define Prolog faces (defface prolog-redo-face - '((((class grayscale)) (:italic t)) + '((((class grayscale)) (:slant italic)) (((class color)) (:foreground "darkorchid")) - (t (:italic t))) + (t (:slant italic))) "Prolog mode face for highlighting redo trace lines." :group 'prolog-faces) (defface prolog-exit-face @@ -1881,9 +1881,9 @@ Argument BOUND is a buffer position limiting searching." "Prolog mode face for highlighting exit trace lines." :group 'prolog-faces) (defface prolog-exception-face - '((((class grayscale)) (:weight bold :italic t :underline t)) + '((((class grayscale)) (:weight bold :slant italic :underline t)) (((class color)) (:weight bold :foreground "black" :background "Khaki")) - (t (:weight bold :italic t :underline t))) + (t (:weight bold :slant italic :underline t))) "Prolog mode face for highlighting exception trace lines." :group 'prolog-faces) (defface prolog-warning-face diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index bb86e90c428..2f5525786e1 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -3269,15 +3269,15 @@ See also `verilog-font-lock-extra-types'.") (defface verilog-font-lock-translate-off-face '((((class color) (background light)) - (:background "gray90" :italic t )) + (:background "gray90" :slant italic )) (((class color) (background dark)) - (:background "gray10" :italic t )) + (:background "gray10" :slant italic )) (((class grayscale) (background light)) - (:foreground "DimGray" :italic t)) + (:foreground "DimGray" :slant italic)) (((class grayscale) (background dark)) - (:foreground "LightGray" :italic t)) - (t (:italic t))) + (:foreground "LightGray" :slant italic)) + (t (:slant italic))) "Font lock mode face used to background highlight translate-off regions." :group 'font-lock-highlighting-faces) @@ -3291,7 +3291,7 @@ See also `verilog-font-lock-extra-types'.") (((class color) (background dark)) (:foreground "orange1" :weight bold )) - (t (:italic t))) + (t (:slant italic))) "Font lock mode face used to highlight P1800 keywords." :group 'font-lock-highlighting-faces) (make-obsolete-variable 'verilog-font-lock-p1800-face nil "27.1") @@ -3306,7 +3306,7 @@ See also `verilog-font-lock-extra-types'.") (((class color) (background dark)) (:foreground "orange1" :weight bold )) - (t (:italic t))) + (t (:slant italic))) "Font lock mode face used to highlight AMS keywords." :group 'font-lock-highlighting-faces) @@ -3320,7 +3320,7 @@ See also `verilog-font-lock-extra-types'.") (((class color) (background dark)) (:foreground "orange1" :weight bold )) - (t (:italic t))) + (t (:slant italic))) "Font lock mode face used to highlight verilog grouping keywords." :group 'font-lock-highlighting-faces) diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index a7fa25950ea..593a83ceffa 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -13595,28 +13595,28 @@ This does background highlighting of translate-off regions.") (defface vhdl-font-lock-attribute-face '((((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) - (t (:italic t :weight bold))) + (t (:slant italic :weight bold))) "Font lock mode face used to highlight standardized attributes." :group 'vhdl-highlight-faces) (defface vhdl-font-lock-enumvalue-face '((((class color) (background light)) (:foreground "SaddleBrown")) (((class color) (background dark)) (:foreground "BurlyWood")) - (t (:italic t :weight bold))) + (t (:slant italic :weight bold))) "Font lock mode face used to highlight standardized enumeration values." :group 'vhdl-highlight-faces) (defface vhdl-font-lock-function-face '((((class color) (background light)) (:foreground "Cyan4")) (((class color) (background dark)) (:foreground "Orchid1")) - (t (:italic t :weight bold))) + (t (:slant italic :weight bold))) "Font lock mode face used to highlight standardized functions and packages." :group 'vhdl-highlight-faces) (defface vhdl-font-lock-directive-face '((((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) - (t (:italic t :weight bold))) + (t (:slant italic :weight bold))) "Font lock mode face used to highlight directives." :group 'vhdl-highlight-faces) diff --git a/lisp/transient.el b/lisp/transient.el index bf64dd94e19..24ab56e830b 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -502,7 +502,7 @@ give you as many additional suffixes as you hoped.)" "Face used for suffixes unreachable from the current prefix sequence." :group 'transient-faces) -(defface transient-inapt-suffix '((t :inherit shadow :italic t)) +(defface transient-inapt-suffix '((t :inherit shadow :slant italic)) "Face used for suffixes that are inapt at this time." :group 'transient-faces) diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el index d67785d96fa..12b94e81489 100644 --- a/lisp/vc/ediff-init.el +++ b/lisp/vc/ediff-init.el @@ -958,7 +958,7 @@ this variable represents.") (((class color)) (:foreground "red3" :background "light grey" :weight bold :extend t)) - (t (:italic t :stipple ,stipple-pixmap :extend t))) + (t (:slant italic :stipple ,stipple-pixmap :extend t))) "Face for highlighting even-numbered non-current differences in buffer A." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -978,7 +978,7 @@ this variable represents.") (:foreground "White" :background "Grey" :extend t)) (((class color)) (:foreground "blue3" :background "Grey" :weight bold :extend t)) - (t (:italic t :stipple ,stipple-pixmap :extend t))) + (t (:slant italic :stipple ,stipple-pixmap :extend t))) "Face for highlighting even-numbered non-current differences in buffer B." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1001,7 +1001,7 @@ this variable represents.") (((class color)) (:foreground "yellow3" :background "light grey" :weight bold :extend t)) - (t (:italic t :stipple ,stipple-pixmap :extend t))) + (t (:slant italic :stipple ,stipple-pixmap :extend t))) "Face for highlighting even-numbered non-current differences in buffer C." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1024,7 +1024,7 @@ this variable represents.") (((class color)) (:foreground "cyan3" :background "light grey" :weight bold :extend t)) - (t (:italic t :stipple ,stipple-pixmap :extend t))) + (t (:slant italic :stipple ,stipple-pixmap :extend t))) "Face for highlighting even-numbered non-current differences in ancestor buffer." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1053,7 +1053,7 @@ this variable represents.") (:foreground "White" :background "Grey" :extend t)) (((class color)) (:foreground "red3" :background "black" :weight bold :extend t)) - (t (:italic t :stipple "gray1" :extend t))) + (t (:slant italic :stipple "gray1" :extend t))) "Face for highlighting odd-numbered non-current differences in buffer A." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1075,7 +1075,7 @@ this variable represents.") (:foreground "Black" :background "light grey" :extend t)) (((class color)) (:foreground "cyan3" :background "black" :weight bold :extend t)) - (t (:italic t :stipple "gray1" :extend t))) + (t (:slant italic :stipple "gray1" :extend t))) "Face for highlighting odd-numbered non-current differences in buffer B." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1097,7 +1097,7 @@ this variable represents.") (:foreground "White" :background "Grey" :extend t)) (((class color)) (:foreground "yellow3" :background "black" :weight bold :extend t)) - (t (:italic t :stipple "gray1" :extend t))) + (t (:slant italic :stipple "gray1" :extend t))) "Face for highlighting odd-numbered non-current differences in buffer C." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting, @@ -1115,7 +1115,7 @@ this variable represents.") (:foreground "cyan3" :background "gray40" :extend t)) (((class color)) (:foreground "green3" :background "black" :weight bold :extend t)) - (t (:italic t :stipple "gray1" :extend t))) + (t (:slant italic :stipple "gray1" :extend t))) "Face for highlighting odd-numbered non-current differences in ancestor buffer." :group 'ediff-highlighting) ;; An internal variable. Ediff takes the face from here. When unhighlighting,