procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer defface's ':slant italic' to obsolete alias ':italic t'

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2025-01-21 09:56:59 +01:00
parent 375befcacc
commit 64d314e0f6
18 changed files with 103 additions and 103 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
etc/themes/manoj-dark-theme.el
View file

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

4
etc/themes/modus-themes.el
View file

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

2
lisp/emacs-lisp/eieio-custom.el
View file

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

26
lisp/gnus/gnus-art.el
View file

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

24
lisp/gnus/gnus-cite.el
View file

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

12
lisp/gnus/gnus-srvr.el
View file

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

14
lisp/gnus/gnus.el
View file

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

10
lisp/gnus/message.el
View file

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

2
lisp/gnus/mm-decode.el
View file

@ -66,7 +66,7 @@
(background light))
(:foreground "red3"))
(t
(:italic t)))
(:slant italic)))
"Face used for displaying output from commands."
:group 'mime-display)

28
lisp/mh-e/mh-e.el
View file

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

2
lisp/net/dictionary.el
View file

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

8
lisp/org/org-faces.el
View file

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

2
lisp/proced.el
View file

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

8
lisp/progmodes/prolog.el
View file

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

16
lisp/progmodes/verilog-mode.el
View file

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

8
lisp/progmodes/vhdl-mode.el
View file

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

2
lisp/transient.el
View file

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

16
lisp/vc/ediff-init.el
View file

@ -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,