Commit 58b64ac7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(various face definitions): Use :weight and :slant.

parent feaf529a
......@@ -173,27 +173,27 @@ when editing big diffs)."
(defface diff-header-face
'((((type tty pc) (class color) (background light))
(:foreground "blue1" :bold t))
(:foreground "blue1" :weight bold))
(((type tty pc) (class color) (background dark))
(:foreground "green" :bold t))
(:foreground "green" :weight bold))
(((class color) (background light))
(:background "grey85"))
(((class color) (background dark))
(:background "grey45"))
(t (:bold t)))
(t (:weight bold)))
"`diff-mode' face inherited by hunk and index header faces.")
(defvar diff-header-face 'diff-header-face)
(defface diff-file-header-face
'((((type tty pc) (class color) (background light))
(:foreground "yellow" :bold t))
(:foreground "yellow" :weight bold))
(((type tty pc) (class color) (background dark))
(:foreground "cyan" :bold t))
(:foreground "cyan" :weight bold))
(((class color) (background light))
(:background "grey70" :bold t))
(:background "grey70" :weight bold))
(((class color) (background dark))
(:background "grey60" :bold t))
(t (:bold t))) ; :height 1.3
(:background "grey60" :weight bold))
(t (:weight bold))) ; :height 1.3
"`diff-mode' face used to highlight file header lines.")
(defvar diff-file-header-face 'diff-file-header-face)
......@@ -219,9 +219,9 @@ when editing big diffs)."
(defface diff-changed-face
'((((type tty pc) (class color) (background light))
(:foreground "magenta" :bold t :italic t))
(:foreground "magenta" :weight bold :slant italic))
(((type tty pc) (class color) (background dark))
(:foreground "yellow" :bold t :italic t))
(:foreground "yellow" :weight bold :slant italic))
(t ()))
"`diff-mode' face used to highlight changed lines.")
(defvar diff-changed-face 'diff-changed-face)
......
......@@ -63,7 +63,7 @@
;; have to be fixed-width. So we just pick one that looks different from the
;; default.
(defface fixed
'((t (:bold t)))
'((t (:weight bold)))
"Face used for text that must be shown in fixed width.
Currently, emacs can only display fixed-width fonts, but this may change.
This face is used for text specifically marked as fixed-width, for example
......@@ -71,7 +71,7 @@ in text/enriched files."
:group 'enriched)
(defface excerpt
'((t (:italic t)))
'((t (:slant italic)))
"Face used for text that is an excerpt from another document.
This is used in Enriched mode for text explicitly marked as an excerpt."
:group 'enriched)
......
......@@ -61,9 +61,9 @@ The Lisp code is executed when the node is selected.")
:group 'info)
(defface info-node
'((((class color) (background light)) (:foreground "brown" :bold t :italic t))
(((class color) (background dark)) (:foreground "white" :bold t :italic t))
(t (:bold t :italic t)))
'((((class color) (background light)) (:foreground "brown" :weight bold :slant italic))
(((class color) (background dark)) (:foreground "white" :weight bold :slant italic))
(t (:weight bold :slant italic)))
"Face for Info node names."
:group 'info)
......@@ -74,9 +74,9 @@ The Lisp code is executed when the node is selected.")
:group 'info)
(defface info-xref
'((((class color) (background light)) (:foreground "magenta4" :bold t))
(((class color) (background dark)) (:foreground "cyan" :bold t))
(t (:bold t)))
'((((class color) (background light)) (:foreground "magenta4" :weight bold))
(((class color) (background dark)) (:foreground "cyan" :weight bold))
(t (:weight bold)))
"Face for Info cross-references."
:group 'info)
......
......@@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-info.el,v 1.6 2000/12/18 03:17:31 monnier Exp $
;; Revision: $Id: pcvs-info.el,v 1.7 2001/07/16 07:46:48 pj Exp $
;; This file is part of GNU Emacs.
......@@ -70,10 +70,10 @@ to confuse some users sometimes."
(defface cvs-header-face
'((((class color) (background dark))
(:foreground "lightyellow" :bold t))
(:foreground "lightyellow" :weight bold))
(((class color) (background light))
(:foreground "blue4" :bold t))
(t (:bold t)))
(:foreground "blue4" :weight bold))
(t (:weight bold)))
"PCL-CVS face used to highlight directory changes."
:group 'pcl-cvs)
......@@ -91,7 +91,7 @@ to confuse some users sometimes."
(:foreground "red"))
(((class color) (background light))
(:foreground "red"))
(t (:italic t)))
(t (:slant italic)))
"PCL-CVS face used to highlight unknown file status."
:group 'pcl-cvs)
......@@ -109,21 +109,21 @@ to confuse some users sometimes."
(:foreground "orange"))
(((class color) (background light))
(:foreground "orange"))
(t (:italic t)))
(t (:slant italic)))
"PCL-CVS face used to highlight status of files needing action."
:group 'pcl-cvs)
(defface cvs-marked-face
'((((class color) (background dark))
(:foreground "green" :bold t))
(:foreground "green" :weight bold))
(((class color) (background light))
(:foreground "green3" :bold t))
(t (:bold t)))
(:foreground "green3" :weight bold))
(t (:weight bold)))
"PCL-CVS face used to highlight marked file indicator."
:group 'pcl-cvs)
(defface cvs-msg-face
'((t (:italic t)))
'((t (:slant italic)))
"PCL-CVS face used to highlight CVS messages."
:group 'pcl-cvs)
......
......@@ -552,40 +552,40 @@ when syntaxifying a chunk of buffer."
(defface cperl-nonoverridable-face
`((((class grayscale) (background light))
(:background "Gray90" :italic t :underline t))
(:background "Gray90" :slant italic :underline t))
(((class grayscale) (background dark))
(:foreground "Gray80" :italic t :underline t :bold t))
(:foreground "Gray80" :slant italic :underline t :weight bold))
(((class color) (background light))
(:foreground "chartreuse3"))
(((class color) (background dark))
(:foreground ,cperl-dark-foreground))
(t (:bold t :underline t)))
(t (:weight bold :underline t)))
"Font Lock mode face used to highlight array names."
:group 'cperl-faces)
(defface cperl-array-face
`((((class grayscale) (background light))
(:background "Gray90" :bold t))
(:background "Gray90" :weight bold))
(((class grayscale) (background dark))
(:foreground "Gray80" :bold t))
(:foreground "Gray80" :weight bold))
(((class color) (background light))
(:foreground "Blue" :background "lightyellow2" :bold t))
(:foreground "Blue" :background "lightyellow2" :weight bold))
(((class color) (background dark))
(:foreground "yellow" :background ,cperl-dark-background :bold t))
(t (:bold t)))
(:foreground "yellow" :background ,cperl-dark-background :weight bold))
(t (:weight bold)))
"Font Lock mode face used to highlight array names."
:group 'cperl-faces)
(defface cperl-hash-face
`((((class grayscale) (background light))
(:background "Gray90" :bold t :italic t))
(:background "Gray90" :weight bold :slant italic))
(((class grayscale) (background dark))
(:foreground "Gray80" :bold t :italic t))
(:foreground "Gray80" :weight bold :slant italic))
(((class color) (background light))
(:foreground "Red" :background "lightyellow2" :bold t :italic t))
(:foreground "Red" :background "lightyellow2" :weight bold :slant italic))
(((class color) (background dark))
(:foreground "Red" :background ,cperl-dark-background :bold t :italic t))
(t (:bold t :italic t)))
(:foreground "Red" :background ,cperl-dark-background :weight bold :slant italic))
(t (:weight bold :slant italic)))
"Font Lock mode face used to highlight hash names."
:group 'cperl-faces)))
......
......@@ -9424,8 +9424,8 @@ This does background highlighting of translate-off regions.")
'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
(defface vhdl-font-lock-prompt-face
'((((class color) (background light)) (:foreground "Red" :bold t))
(((class color) (background dark)) (:foreground "Pink" :bold t))
'((((class color) (background light)) (:foreground "Red" :weight bold))
(((class color) (background dark)) (:foreground "Pink" :weight bold))
(t (:inverse-video t)))
"Font lock mode face used to highlight prompts."
:group 'vhdl-highlight-faces
......@@ -9434,7 +9434,7 @@ 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 :bold t)))
(t (:slant italic :weight bold)))
"Font lock mode face used to highlight standardized attributes."
:group 'vhdl-highlight-faces
:group 'font-lock-highlighting-faces)
......@@ -9442,7 +9442,7 @@ This does background highlighting of translate-off regions.")
(defface vhdl-font-lock-enumvalue-face
'((((class color) (background light)) (:foreground "Gold4"))
(((class color) (background dark)) (:foreground "BurlyWood"))
(t (:italic t :bold t)))
(t (:slant italic :weight bold)))
"Font lock mode face used to highlight standardized enumeration values."
:group 'vhdl-highlight-faces
:group 'font-lock-highlighting-faces)
......@@ -9450,7 +9450,7 @@ This does background highlighting of translate-off regions.")
(defface vhdl-font-lock-function-face
'((((class color) (background light)) (:foreground "Orchid4"))
(((class color) (background dark)) (:foreground "Orchid1"))
(t (:italic t :bold t)))
(t (:slant italic :weight bold)))
"Font lock mode face used to highlight standardized functions and packages."
:group 'vhdl-highlight-faces
:group 'font-lock-highlighting-faces)
......@@ -9458,14 +9458,14 @@ This does background highlighting of translate-off regions.")
(defface vhdl-font-lock-directive-face
'((((class color) (background light)) (:foreground "CadetBlue"))
(((class color) (background dark)) (:foreground "Aquamarine"))
(t (:italic t :bold t)))
(t (:slant italic :weight bold)))
"Font lock mode face used to highlight directives."
:group 'vhdl-highlight-faces
:group 'font-lock-highlighting-faces)
(defface vhdl-font-lock-reserved-words-face
'((((class color) (background light)) (:foreground "Orange" :bold t))
(((class color) (background dark)) (:foreground "Yellow" :bold t))
'((((class color) (background light)) (:foreground "Orange" :weight bold))
(((class color) (background dark)) (:foreground "Yellow" :weight bold))
(t ()))
"Font lock mode face used to highlight additional reserved words."
:group 'vhdl-highlight-faces
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment