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.

(cherry picked from commit 64d314e0f6495de6fcf4f4c51e710b597a237e4f)

diff --git a/etc/themes/manoj-dark-theme.el b/etc/themes/manoj-dark-theme.el
index 5dbc7d7e71585577a7da9122a498736fb821e919..d9442653afc444313b92f20bb4b812b331e58d97 100644 (file)
--- 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 be123bb19d1f72703a3d7b606b995c98f5a13f3e..5063d949273ad98340a1903c22b7195e8dd467c3 100644 (file)
--- 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 60ec854bb6959e6d0bbed6284ef47f5ae40c2bf0..3f5291d0dee3b1c27124722a57440b650bdae536 100644 (file)
--- 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 e9026474bd1a7cc42961fabcd28be65c12d67615..c966fdc88da418c0153a89380b35ab176cb0cacc 100644 (file)
--- 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 e6b5b5442aa2f58f6831e6e6d6b096f30d011d36..df69b294b5f97c551362284b40a938e4cb06e03c 100644 (file)
--- 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 9dbc444a05c963d0bf57fe92d25c37c9591d8803..fb96a1ab61f72b2d6ac2d8d71812c82971832c30 100644 (file)
--- 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 97e7b2da343939424e9c84691d8d22d1c08a07bb..1fc1f75d3581061e091733b9b0d60c9d10b72f52 100644 (file)
--- 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 71f6b1a10c5a919cf04a9d9328f027affc4a7aad..2ca57e3a410dd0196354cd853d68ba84aac5d94e 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1520,7 +1520,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)
 
@@ -1551,12 +1551,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)
 
@@ -1568,7 +1568,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 543c1cc257a603a9b7523216aeeeb1a5701cec09..c92aed0bcc1079c43291f88ea3738faf5aa1244c 100644 (file)
--- 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/net/dictionary.el b/lisp/net/dictionary.el
index d9a689a31f9be9e81ff3547ba341c008c1086061..0f905450ef31ebc0180349565435688878c591be 100644 (file)
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -333,7 +333,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 1f206b91143b6761bc304747cc60bc530635da4e..7fb04bb9fd7524a8ea10dd7b08db1e2d320b8c47 100644 (file)
--- 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 563c61941a930e66251d0c3fd620bca49426a197..30717d87f108e5c8ab1661a513c77d7125d39c3d 100644 (file)
--- 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 fb6ab5c4abf4124aa3a379dde365676350839ea3..5b7e3e43848191dc4064c6fe776f2b505791183a 100644 (file)
--- 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/transient.el b/lisp/transient.el
index a863eccd57b7a6983ec1e8a508ace10d3fcd2fe9..382de3d54886c9806de5fac7e72b0bc3afc1fe01 100644 (file)
--- 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 d67785d96faddbae64f9fedb300f542eafff7f6c..12b94e81489c59bcd0dacd8046932a0a00b7deba 100644 (file)
--- 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,