Mercurial > emacs

changeset 42455:7662f312caf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(various face definitions): Use :weight and :slant.
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Dec 2001 20:43:36 +0000
parents 0aa467a4e4be
children 8a4077ab418c
files lisp/diff-mode.el lisp/enriched.el lisp/info.el lisp/pcvs-info.el lisp/progmodes/cperl-mode.el lisp/progmodes/vhdl-mode.el
diffstat 6 files changed, 49 insertions(+), 49 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/diff-mode.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/diff-mode.el	Mon Dec 31 20:43:36 2001 +0000
@@ -173,27 +173,27 @@
 
 (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 @@
 
 (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)
--- a/lisp/enriched.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/enriched.el	Mon Dec 31 20:43:36 2001 +0000
@@ -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 @@
   :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)
--- a/lisp/info.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/info.el	Mon Dec 31 20:43:36 2001 +0000
@@ -61,9 +61,9 @@
   :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 @@
   :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)
 
--- a/lisp/pcvs-info.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/pcvs-info.el	Mon Dec 31 20:43:36 2001 +0000
@@ -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 @@
 
 (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 @@
      (: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 @@
      (: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)
 
--- a/lisp/progmodes/cperl-mode.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/progmodes/cperl-mode.el	Mon Dec 31 20:43:36 2001 +0000
@@ -552,40 +552,40 @@
 
       (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)))
 
--- a/lisp/progmodes/vhdl-mode.el	Mon Dec 31 20:35:03 2001 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Mon Dec 31 20:43:36 2001 +0000
@@ -9424,8 +9424,8 @@
  '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 @@
 (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 @@
 (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 @@
 (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 @@
 (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