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

@@ -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"))))

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)))

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)
 

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)

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

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 light)) (:foreground "ForestGreen" :inverse-video t :slant italic))
-    (((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :italic t))
+    (((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :slant italic))
-    (t (:inverse-video t :italic t)))
+    (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))
+     (:foreground "LightBlue" :slant italic))
-    (t (:italic t)))
+    (t (:slant italic)))
   "Face used for displaying CLOSED servers."
   :group 'gnus-server-visual)
 

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)
 

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)
 

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)
 

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

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

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)
 

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")
 

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

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))
+     (:foreground "LightGray" :slant italic))
-    (t (:italic t)))
+    (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)
 

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)
 

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)
 

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,